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

* Added (ikarus system $flonums) library (empty).

This commit is contained in:
Abdulaziz Ghuloum 2007-06-08 09:07:02 +03:00
parent f3e5772e76
commit cd788e4bed
3 changed files with 21 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
src/ikarus.boot
View File

Binary file not shown.

4
src/makefile.ss
View File

@ -125,6 +125,7 @@
[$strings (ikarus system $strings) #f]
[$vectors (ikarus system $vectors) #f]
[$bignums (ikarus system $bignums) #f]
[$flonums (ikarus system $flonums) #f]
[$bytes (ikarus system $bytevectors) #f]
[$fx (ikarus system $fx) #f]
[$rat (ikarus system $ratnums) #f]
@ -154,6 +155,7 @@
[$chars (ikarus system $chars) #f]
[$strings (ikarus system $strings) #f]
[$vectors (ikarus system $vectors) #f]
[$flonums (ikarus system $flonums) #f]
[$bignums (ikarus system $bignums) #f]
[$bytes (ikarus system $bytevectors) #f]
[$fx (ikarus system $fx) #f]
@ -558,6 +560,8 @@
[$bytevector-u8-ref $bytes]
[$bytevector-set! $bytes]
; [$flonum-u8-ref $flonums]
[$make-bignum $bignums]
[$bignum-positive? $bignums]
[$bignum-size $bignums]

19
src/pass-specify-rep-primops.ss
View File

@ -725,6 +725,21 @@
[(P x) (sec-tag-test (T x) vector-mask vector-tag #f flonum-tag)]
[(E x) (nop)])
(define-primop $flonum-u8-ref unsafe
[(V s i)
(record-case i
[(constant i)
(unless (and (fixnum? i) (fx<= 0 i) (fx<= i 7))
(interrupt))
(prm 'sll
(prm 'logand
(prm 'bref (T s)
(K (+ i (- disp-flonum-data record-tag))))
(K 255))
(K fx-shift))]
[else (interrupt)])]
[(P s i) (K #t)]
[(E s i) (nop)])
/section)
@ -1110,7 +1125,7 @@
(unless (fixnum? i) (interrupt))
(prm 'sll
(prm 'logand
(prm 'mref (T s)
(prm 'bref (T s)
(K (+ i (- disp-bytevector-data bytevector-tag))))
(K 255))
(K fx-shift))]
@ -1134,7 +1149,7 @@
(prm 'sra
(prm 'sll
(prm 'logand
(prm 'mref (T s)
(prm 'bref (T s)
(K (+ i (- disp-bytevector-data bytevector-tag))))
(K 255))
(K (- (* wordsize 8) 8)))