conservatory
/
ikarus
4
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

* The CODE/digit assembly helper now accepts imm,imm memory reference.

This commit is contained in:
Abdulaziz Ghuloum 2007-06-16 12:08:38 +03:00
parent 6d8c626017
commit 1750aba832
4 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
benchmarks/BUGS
View File

@ -3,7 +3,6 @@
* ray needs many fl procedures * ray needs many fl procedures
* quicksort needs bignum modulo. * quicksort needs bignum modulo.
* scheme needs complex? and other stuff. * scheme needs complex? and other stuff.
* simplex needs flpositive?
* slatex needs string-ci=? * slatex needs string-ci=?
* compiler needs string-downcase * compiler needs string-downcase

BIN
src/ikarus.boot
View File

Binary file not shown.

2
src/ikarus.intel-assembler.ss
View File

@ -355,6 +355,8 @@
(CODE c (ModRM 2 /d a0 (IMM32 a1 ac)))] (CODE c (ModRM 2 /d a0 (IMM32 a1 ac)))]
[(and (reg? a0) (reg? a1)) [(and (reg? a0) (reg? a1))
(CODE c (ModRM 1 /d '/4 (SIB 0 a0 a1 (IMM8 0 ac))))] (CODE c (ModRM 1 /d '/4 (SIB 0 a0 a1 (IMM8 0 ac))))]
[(and (imm? a0) (imm? a1))
(CODE c (ModRM 0 /d '/5 (IMM32*2 a0 a1 ac)))]
[else (error 'CODE/digit "unhandled ~s ~s" a0 a1)])))] [else (error 'CODE/digit "unhandled ~s ~s" a0 a1)])))]
[else (error 'CODE/digit "unhandled ~s" dst)]))) [else (error 'CODE/digit "unhandled ~s" dst)])))

2
src/ikarus.numerics.ss
View File

@ -1328,7 +1328,7 @@
(f (fl/ ac (car rest)) (cdr rest))))] (f (fl/ ac (car rest)) (cdr rest))))]
[(x) [(x)
(if (flonum? x) (if (flonum? x)
(fl/ 1.0 x) ($fl/ 1.0 x)
(error 'fl/ "~s is not a flonum" x))])) (error 'fl/ "~s is not a flonum" x))]))
(flcmp flfl= flfx= fxfl= flbn= bnfl= $fl=) (flcmp flfl= flfx= fxfl= flbn= bnfl= $fl=)