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

of a flonum.

scheme/makefile.ss

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

scheme/pass-specify-rep-primops.ss

@@ -980,6 +980,15 @@
        (prm 'fl:store x (K (- disp-flonum-data vector-tag)))
        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 ;;; ratnums