Fixes bug 184265: flonum? assemble bug

2008-01-19 09:47:15 -05:00 · 2008-01-19 09:47:15 -05:00 · 7a970db55d
parent 5bf2afce78
commit 7a970db55d
1 changed files with 4 additions and 0 deletions
--- a/scheme/ikarus.intel-assembler.ss
+++ b/scheme/ikarus.intel-assembler.ss
@ -326,6 +326,10 @@
       (let ([d i1] [v (cadr i2)])
         (cons (reloc-word+ v d) ac))]
      [(and (int? i2) (obj? i1)) (IMM*2 i2 i1 ac)]
+      [(and (int? i1) (int? i2))
+       (IMM (bitwise-and (+ i1 i2) 
+              (- (expt 2 (* wordsize 8)) 1))
+            ac)]
      [else (die 'assemble "invalid IMM*2" i1 i2)])))

 (define (SIB s i b ac)