From: Taylor R Campbell <campbell@mumble.net>
Date: Thu, 19 Nov 2009 18:34:43 +0000 (-0500)
Subject: Mark OVERFLOW? ignored in FIXNUM-LSH methods on i386 and x86-64.
X-Git-Tag: 20100708-Gtk~239
X-Git-Url: https://birchwood-abbey.net/git?a=commitdiff_plain;h=ca96e1de9bce33c016b331cabddb4bd963d71e78;p=mit-scheme.git

Mark OVERFLOW? ignored in FIXNUM-LSH methods on i386 and x86-64.
---

diff --git a/src/compiler/machines/i386/rulfix.scm b/src/compiler/machines/i386/rulfix.scm
index 39c472577..60616b687 100644
--- a/src/compiler/machines/i386/rulfix.scm
+++ b/src/compiler/machines/i386/rulfix.scm
@@ -486,6 +486,7 @@ USA.
 
 (define-arithmetic-method 'FIXNUM-LSH fixnum-methods/2-args
   (lambda (target source1 source2 overflow?)
+    overflow?                           ;ignore
     (prefix-instructions!
      (LAP ,@(load-machine-register! source1 eax)
           ,@(load-machine-register! source2 ecx)))
diff --git a/src/compiler/machines/x86-64/rulfix.scm b/src/compiler/machines/x86-64/rulfix.scm
index b74cc5042..81a1f5fb6 100644
--- a/src/compiler/machines/x86-64/rulfix.scm
+++ b/src/compiler/machines/x86-64/rulfix.scm
@@ -433,6 +433,7 @@ USA.
 
 (define-arithmetic-method 'FIXNUM-LSH fixnum-methods/2-args
   (lambda (target source1 source2 overflow?)
+    overflow?                           ;ignore
     (prefix-instructions!
      (LAP ,@(load-machine-register! source1 rax)
           ,@(load-machine-register! source2 rcx)))