Update of /cvsroot/sbcl/sbcl
In directory usw-pr-cvs1:/tmp/cvs-serv22540
Modified Files:
package-data-list.lisp-expr version.lisp-expr
Log Message:
0.7.5.13:
Linux floating point fixes
... define an os_restore_fp_control() function in the runtime, and
use it in signal handlers (protected by #ifdef
LISP_FEATURE_LINUX in non-Linux-specific code)
... write useful definitions of it
... for x86 (probably correct)
... for ppc (works, but could do with fixing)
... delete a SET_FPU_CONTROL_WORD from initialization
... dunno why it was there; no observable symptoms. Shout
if some early x86/Linux system no longer works.
... export to C (via sbcl.h) Lisp's view of the floating point
control word
... delete some floating-point-related stale symbols and comments
from package-data-list.lisp-expr
Now floating point stuff mostly works (I think) on x86/Linux and
ppc/Linux, as well as sparc/SunOS. Other platforms still
probably don't work.
Index: package-data-list.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/package-data-list.lisp-expr,v
retrieving revision 1.164
retrieving revision 1.165
diff -u -d -r1.164 -r1.165
--- package-data-list.lisp-expr 2 Jul 2002 12:32:42 -0000 1.164
+++ package-data-list.lisp-expr 16 Jul 2002 13:48:02 -0000 1.165
@@ -552,11 +552,6 @@
;; WITH-STANDARD-IO-SYNTAX or something.)
"*ERROR-PRINT-LENGTH*" "*ERROR-PRINT-LEVEL*" "*ERROR-PRINT-LINES*"
- ;; KLUDGE: CMU CL had
- ;; "*IGNORE-FLOATING-POINT-UNDERFLOW*", which seemed
- ;; like a reasonable idea but doesn't seem to be supported
- ;; now? -- WHN 19991206
-
;; extended declarations..
"FREEZE-TYPE" "INHIBIT-WARNINGS"
"MAYBE-INLINE"
@@ -586,7 +581,6 @@
;; want to do this stuff.
"FLOAT-DENORMALIZED-P"
"FLOAT-NAN-P" "FLOAT-TRAPPING-NAN-P"
- "FLOATING-POINT-INVALID"
"FLOAT-INFINITY-P"
"SHORT-FLOAT-NEGATIVE-INFINITY"
"SHORT-FLOAT-POSITIVE-INFINITY"
Index: version.lisp-expr
===================================================================
RCS file: /cvsroot/sbcl/sbcl/version.lisp-expr,v
retrieving revision 1.472
retrieving revision 1.473
diff -u -d -r1.472 -r1.473
--- version.lisp-expr 16 Jul 2002 03:09:43 -0000 1.472
+++ version.lisp-expr 16 Jul 2002 13:48:04 -0000 1.473
@@ -18,4 +18,4 @@
;;; for internal versions, especially for internal versions off the
;;; main CVS branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.7.5.12"
+"0.7.5.13"
|