From 183cc6e1cb715bffc9a9bcdc3d9a06bec30dfaf1 Mon Sep 17 00:00:00 2001 From: "Guillermo J. Rozas" Date: Mon, 15 Feb 1993 23:17:39 +0000 Subject: [PATCH] Disable warning about 64-bit constants. --- v7/src/compiler/machines/alpha/lapgen.scm | 9 ++++++--- 1 file changed, 6 insertions(+), 3 deletions(-) diff --git a/v7/src/compiler/machines/alpha/lapgen.scm b/v7/src/compiler/machines/alpha/lapgen.scm index 4234c2916..26f385b50 100644 --- a/v7/src/compiler/machines/alpha/lapgen.scm +++ b/v7/src/compiler/machines/alpha/lapgen.scm @@ -1,8 +1,8 @@ #| -*-Scheme-*- -$Id: lapgen.scm,v 1.2 1992/10/15 16:46:07 jinx Exp $ +$Id: lapgen.scm,v 1.3 1993/02/15 23:17:39 gjr Exp $ -Copyright (c) 1992 Digital Equipment Corporation (D.E.C.) +Copyright (c) 1992-1993 Digital Equipment Corporation (D.E.C.) This software was developed at the Digital Equipment Corporation Cambridge Research Laboratory. Permission to copy this software, to @@ -608,7 +608,10 @@ case. (let ((label (immediate->label immediate))) (load-pc-relative target 'IMMEDIATE label)) |# - (warn "%load-immediate: generating 64-bit constant" (number->string immediate 16)) + #| + (warn "%load-immediate: generating 64-bit constant" + (number->string immediate 16)) + |# (with-values (lambda () (split-64-bits immediate)) (lambda (high low) (let ((left-half (load-immediate target high false))) -- 2.25.1