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 39c4725771ebf9d96ed39cba441b3c1d89b811af..60616b687720d37c0a9d34413f6b43758f312990 100644 (file)
--- 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 b74cc50421219b48cb2bac236c39c3620d813ed1..81a1f5fb6d45856fdc190ce85084f7f913f4e4fd 100644 (file)
--- 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)))