From 7a970db55d635e0dcec056f84efc3fcec0490b3f Mon Sep 17 00:00:00 2001 From: Abdulaziz Ghuloum Date: Sat, 19 Jan 2008 09:47:15 -0500 Subject: [PATCH] Fixes bug 184265: flonum? assemble bug --- scheme/ikarus.intel-assembler.ss | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/scheme/ikarus.intel-assembler.ss b/scheme/ikarus.intel-assembler.ss index b32cbbc..ed11c88 100644 --- 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)