From ca96e1de9bce33c016b331cabddb4bd963d71e78 Mon Sep 17 00:00:00 2001 From: Taylor R Campbell Date: Thu, 19 Nov 2009 13:34:43 -0500 Subject: [PATCH] Mark OVERFLOW? ignored in FIXNUM-LSH methods on i386 and x86-64. --- src/compiler/machines/i386/rulfix.scm | 1 + src/compiler/machines/x86-64/rulfix.scm | 1 + 2 files changed, 2 insertions(+) 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))) -- 2.25.1