From: Stephen Adams <edu/mit/csail/zurich/adams>
Date: Sat, 29 Apr 1995 13:57:56 +0000 (+0000)
Subject: Fixed RTLGEN/INTEGER-CONSTANT? to reject non-integers.
X-Git-Tag: 20090517-FFI~6372
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=8a77f015a3558b29e3bae17bcb9057b823ff6588;p=mit-scheme.git

Fixed RTLGEN/INTEGER-CONSTANT? to reject non-integers.
---

diff --git a/v8/src/compiler/midend/rtlgen.scm b/v8/src/compiler/midend/rtlgen.scm
index 139a285cb..b63838331 100644
--- a/v8/src/compiler/midend/rtlgen.scm
+++ b/v8/src/compiler/midend/rtlgen.scm
@@ -1,6 +1,6 @@
 #| -*-Scheme-*-
 
-$Id: rtlgen.scm,v 1.26 1995/04/29 01:03:15 adams Exp $
+$Id: rtlgen.scm,v 1.27 1995/04/29 13:57:56 adams Exp $
 
 Copyright (c) 1994 Massachusetts Institute of Technology
 
@@ -3158,7 +3158,7 @@ MIT in each case. |#
 
 (define-integrable (rtlgen/integer-constant? syllable)
   (and (rtlgen/constant? syllable)
-       (number? (rtlgen/constant-value syllable))
+       (exact-integer? (rtlgen/constant-value syllable))
        (rtlgen/constant-value syllable)))
 
 (define-open-coder/pred %small-fixnum? 2
@@ -3621,8 +3621,8 @@ MIT in each case. |#
 		    (rtlgen/assign!*
 		     (list
 		      `(ASSIGN ,address (OBJECT->ADDRESS ,rand))
-		      `(ASSIGN ,field (OFFSET ,address (MACHINE-CONSTANT 0)))
-		      `(ASSIGN ,datum (OBJECT->DATUM ,field))
+		      `(ASSIGN ,field   (OFFSET ,address (MACHINE-CONSTANT 0)))
+		      `(ASSIGN ,datum   (OBJECT->DATUM ,field))
 		      `(ASSIGN ,constant (CONSTANT ,(- 0 shift)))
 		      `(ASSIGN ,datum2 (FIXNUM-2-ARGS FIXNUM-LSH ,datum ,constant #F))))
 		    (rtlgen/value-assignment
@@ -3651,8 +3651,8 @@ MIT in each case. |#
 		 `(FIXNUM-2-ARGS ,operation-name
 				 ,rand1 ,rand2 #F))))))))
   #| DIVIDE-FIXNUM GCD-FIXNUM |#
-  (define-fixnum-primitive/2 'PLUS-FIXNUM  'PLUS-FIXNUM)
-  (define-fixnum-primitive/2 'MINUS-FIXNUM 'MINUS-FIXNUM)
+  (define-fixnum-primitive/2 'PLUS-FIXNUM   'PLUS-FIXNUM)
+  (define-fixnum-primitive/2 'MINUS-FIXNUM  'MINUS-FIXNUM)
   (define-fixnum-primitive/2 'MULTIPLY-FIXNUM  'MULTIPLY-FIXNUM)
   (define-fixnum-primitive/2 'FIXNUM-QUOTIENT  'FIXNUM-QUOTIENT)
   (define-fixnum-primitive/2 'FIXNUM-REMAINDER 'FIXNUM-REMAINDER)
@@ -3710,9 +3710,9 @@ MIT in each case. |#
   (define-flonum-primitive/1 'FLONUM-NORMALIZE 'FLONUM-NORMALIZE)
   (define-flonum-primitive/1 'FLONUM-ROUND 'FLONUM-ROUND)
   (define-flonum-primitive/1 'FLONUM-ROUND->EXACT 'FLONUM-ROUND->EXACT)
-  (define-flonum-primitive/1 'FLONUM-SIN 'FLONUM-SIN)
+  (define-flonum-primitive/1 'FLONUM-SIN  'FLONUM-SIN)
   (define-flonum-primitive/1 'FLONUM-SQRT 'FLONUM-SQRT)
-  (define-flonum-primitive/1 'FLONUM-TAN 'FLONUM-TAN)
+  (define-flonum-primitive/1 'FLONUM-TAN  'FLONUM-TAN)
   (define-flonum-primitive/1 'FLONUM-TRUNCATE 'FLONUM-TRUNCATE) 
   (define-flonum-primitive/1 'FLONUM-TRUNCATE->EXACT 'FLONUM-TRUNCATE->EXACT)