steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

vm: fix fixnum* overflow case for 4-bit tags

db4
Slava Pestov 2009-11-03 21:40:47 -06:00
parent 109aa88b06
commit 9ffb01a9bd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
vm/cpu-ppc.S
View File

@ -43,7 +43,7 @@ DEF(void,primitive_fixnum_multiply,(void *vm)):
stw r6,0(DS_REG) stw r6,0(DS_REG)
blr blr
multiply_overflow: multiply_overflow:
srawi r4,r4,3 srawi r4,r4,4
b MANGLE(overflow_fixnum_multiply) b MANGLE(overflow_fixnum_multiply)
/* Note that the XT is passed to the quotation in r11 */ /* Note that the XT is passed to the quotation in r11 */

2
vm/cpu-x86.S
View File

@ -33,7 +33,7 @@ DEF(void,primitive_fixnum_multiply,(void *myvm)):
pop ARG2 pop ARG2
ret ret
multiply_overflow: multiply_overflow:
sar $3,ARITH_TEMP_1 sar $4,ARITH_TEMP_1
mov ARITH_TEMP_1,ARG0 mov ARITH_TEMP_1,ARG0
mov ARITH_TEMP_2,ARG1 mov ARITH_TEMP_2,ARG1
pop ARG2 pop ARG2