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

* Added $flonum-sbe primop for extracting the signed-biased-exponent 

of a flonum.
This commit is contained in:
Abdulaziz Ghuloum 2007-11-14 12:39:23 -05:00
parent 82eda09ea0
commit 79c31416cf
2 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
scheme/makefile.ss
View File

@ -433,6 +433,7 @@
[$fl>= $flonums] [$fl>= $flonums]
[$flround $flonums] [$flround $flonums]
[$fixnum->flonum $flonums] [$fixnum->flonum $flonums]
[$flonum-sbe $flonums]
[$make-bignum $bignums] [$make-bignum $bignums]
[$bignum-positive? $bignums] [$bignum-positive? $bignums]
[$bignum-size $bignums] [$bignum-size $bignums]

9
scheme/pass-specify-rep-primops.ss
View File

@ -980,6 +980,15 @@
(prm 'fl:store x (K (- disp-flonum-data vector-tag))) (prm 'fl:store x (K (- disp-flonum-data vector-tag)))
x))]) x))])
(define-primop $flonum-sbe unsafe
[(V x)
(prm 'sll
(prm 'srl
(prm 'mref (T x)
(K (- (+ disp-flonum-data 4) vector-tag)))
(K 20))
(K fixnum-shift))])
/section) /section)
(section ;;; ratnums (section ;;; ratnums