* Added (ikarus system $flonums) library (empty).
This commit is contained in:
parent
f3e5772e76
commit
cd788e4bed
BIN
src/ikarus.boot
BIN
src/ikarus.boot
Binary file not shown.
|
@ -125,6 +125,7 @@
|
||||||
[$strings (ikarus system $strings) #f]
|
[$strings (ikarus system $strings) #f]
|
||||||
[$vectors (ikarus system $vectors) #f]
|
[$vectors (ikarus system $vectors) #f]
|
||||||
[$bignums (ikarus system $bignums) #f]
|
[$bignums (ikarus system $bignums) #f]
|
||||||
|
[$flonums (ikarus system $flonums) #f]
|
||||||
[$bytes (ikarus system $bytevectors) #f]
|
[$bytes (ikarus system $bytevectors) #f]
|
||||||
[$fx (ikarus system $fx) #f]
|
[$fx (ikarus system $fx) #f]
|
||||||
[$rat (ikarus system $ratnums) #f]
|
[$rat (ikarus system $ratnums) #f]
|
||||||
|
@ -154,6 +155,7 @@
|
||||||
[$chars (ikarus system $chars) #f]
|
[$chars (ikarus system $chars) #f]
|
||||||
[$strings (ikarus system $strings) #f]
|
[$strings (ikarus system $strings) #f]
|
||||||
[$vectors (ikarus system $vectors) #f]
|
[$vectors (ikarus system $vectors) #f]
|
||||||
|
[$flonums (ikarus system $flonums) #f]
|
||||||
[$bignums (ikarus system $bignums) #f]
|
[$bignums (ikarus system $bignums) #f]
|
||||||
[$bytes (ikarus system $bytevectors) #f]
|
[$bytes (ikarus system $bytevectors) #f]
|
||||||
[$fx (ikarus system $fx) #f]
|
[$fx (ikarus system $fx) #f]
|
||||||
|
@ -558,6 +560,8 @@
|
||||||
[$bytevector-u8-ref $bytes]
|
[$bytevector-u8-ref $bytes]
|
||||||
[$bytevector-set! $bytes]
|
[$bytevector-set! $bytes]
|
||||||
|
|
||||||
|
; [$flonum-u8-ref $flonums]
|
||||||
|
|
||||||
[$make-bignum $bignums]
|
[$make-bignum $bignums]
|
||||||
[$bignum-positive? $bignums]
|
[$bignum-positive? $bignums]
|
||||||
[$bignum-size $bignums]
|
[$bignum-size $bignums]
|
||||||
|
|
|
@ -725,6 +725,21 @@
|
||||||
[(P x) (sec-tag-test (T x) vector-mask vector-tag #f flonum-tag)]
|
[(P x) (sec-tag-test (T x) vector-mask vector-tag #f flonum-tag)]
|
||||||
[(E x) (nop)])
|
[(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)
|
/section)
|
||||||
|
|
||||||
|
@ -1110,7 +1125,7 @@
|
||||||
(unless (fixnum? i) (interrupt))
|
(unless (fixnum? i) (interrupt))
|
||||||
(prm 'sll
|
(prm 'sll
|
||||||
(prm 'logand
|
(prm 'logand
|
||||||
(prm 'mref (T s)
|
(prm 'bref (T s)
|
||||||
(K (+ i (- disp-bytevector-data bytevector-tag))))
|
(K (+ i (- disp-bytevector-data bytevector-tag))))
|
||||||
(K 255))
|
(K 255))
|
||||||
(K fx-shift))]
|
(K fx-shift))]
|
||||||
|
@ -1134,7 +1149,7 @@
|
||||||
(prm 'sra
|
(prm 'sra
|
||||||
(prm 'sll
|
(prm 'sll
|
||||||
(prm 'logand
|
(prm 'logand
|
||||||
(prm 'mref (T s)
|
(prm 'bref (T s)
|
||||||
(K (+ i (- disp-bytevector-data bytevector-tag))))
|
(K (+ i (- disp-bytevector-data bytevector-tag))))
|
||||||
(K 255))
|
(K 255))
|
||||||
(K (- (* wordsize 8) 8)))
|
(K (- (* wordsize 8) 8)))
|
||||||
|
|
Loading…
Reference in New Issue