More floating-point parameters.

diff --git a/src/runtime/arith.scm b/src/runtime/arith.scm
index edf7ca3fec58343fd010c881f1ffd8f366f0b10b..fe9c3989a66d636c18c6a79f8c0adb8a16e27fdc 100644 (file)
--- a/src/runtime/arith.scm
+++ b/src/runtime/arith.scm
@@ -106,6 +106,9 @@ USA.
 (define flo:subnormal-exponent-min-base-2)
 (define flo:subnormal-exponent-min-base-e)
 (define flo:subnormal-exponent-min-base-10)
+(define flo:smallest-positive-subnormal)
+(define flo:smallest-positive-normal)
+(define flo:largest-positive-normal)
 (define flo:significand-digits-base-2)
 (define flo:significand-digits-base-10)
 (define int:flonum-integer-limit)
@@ -148,6 +151,12 @@ USA.
        (flo:/ flo:normal-exponent-min-base-e (flo:log 10.)))
   (set! flo:subnormal-exponent-min-base-10
        (flo:/ flo:subnormal-exponent-min-base-e (flo:log 10.)))
+  (set! flo:smallest-positive-subnormal
+       (flo:ldexp 1. flo:subnormal-exponent-min-base-2))
+  (set! flo:smallest-positive-normal
+       (flo:ldexp 1. flo:normal-exponent-min-base-2))
+  (set! flo:largest-positive-normal
+       (flo:ldexp 1. flo:normal-exponent-max-base-2))
   unspecific)
 
 (define (initialize-package!)

diff --git a/src/runtime/runtime.pkg b/src/runtime/runtime.pkg
index cd40c1ba0e3274b188472ee038b246a094a787c3..546d9a6e68eeaf96341ce3fc4b975d1dada60594 100644 (file)
--- a/src/runtime/runtime.pkg
+++ b/src/runtime/runtime.pkg
@@ -3359,6 +3359,7 @@ USA.
          exact-nonnegative-integer?
          exact-positive-integer?
          flo:error-bound
+         flo:largest-positive-normal
          flo:log-error-bound
          flo:normal-exponent-max-base-10
          flo:normal-exponent-max-base-2
@@ -3369,6 +3370,8 @@ USA.
          flo:radix
          flo:significand-digits-base-10
          flo:significand-digits-base-2
+         flo:smallest-positive-normal
+         flo:smallest-positive-subnormal
          flo:subnormal-exponent-min-base-10
          flo:subnormal-exponent-min-base-2
          flo:subnormal-exponent-min-base-e