diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-09-07 05:41:35 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-09-07 05:41:35 +0000 |
| commit | 18b7b4b5d3511211092796bd8d593d5c9debec02 (patch) | |
| tree | a90da73966bbb0311bf51c62e9ab8356465be694 /src/algebra/si.spad.pamphlet | |
| parent | 52642d936f26a18f7d3818fcabe3fad2bff157ea (diff) | |
| download | open-axiom-18b7b4b5d3511211092796bd8d593d5c9debec02.tar.gz | |
Ensure SingleFloat is 32-bit, DoubleFloat 64-bit.
* interp/types.boot: Tidy.
* interp/sys-constants.boot: Define limits for builtin numeric types.
* interp/sys-os.boot: Import sys-constants.
* interp/foam_l.lisp: Import sys-constants. Align builtin numeric
types with OpenAxiom runtime's.
* interp/fortcall.boot: Tidy.
* interp/i-output.boot: Likewise.
* interp/Makefile.pamphlet (foam_l.$(FASLEXT)): Now require
sys-constants.$(FASLEXT).
* algebra/si.spad.pamphlet: Use $ShortMinimum and $ShortMaximum
for SingleInteger limits.
* algebra/sf.spad.pamphlet: Use $DoubleFloatMaximum,
$DoubleFloatMinimum for DoubleFloat limits.
* algebra/strap: Update cached Lisp translation.
Diffstat (limited to 'src/algebra/si.spad.pamphlet')
| -rw-r--r-- | src/algebra/si.spad.pamphlet | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/algebra/si.spad.pamphlet b/src/algebra/si.spad.pamphlet index 65253830..48bf6ac4 100644 --- a/src/algebra/si.spad.pamphlet +++ b/src/algebra/si.spad.pamphlet @@ -236,8 +236,8 @@ SingleInteger(): Join(IntegerNumberSystem,Logic,OpenMath) with == add seed : % := 1$Lisp -- for random() - MAXINT ==> MOST_-POSITIVE_-FIXNUM$Lisp - MININT ==> MOST_-NEGATIVE_-FIXNUM$Lisp + MAXINT ==> _$ShortMaximum$Lisp + MININT ==> _$ShortMinimum$Lisp BASE ==> 67108864$Lisp -- 2**26 MULTIPLIER ==> 314159269$Lisp -- from Knuth's table MODULUS ==> 2147483647$Lisp -- 2**31-1 |