[Sbcl-commits] CVS: sbcl/src/compiler/x86 float.lisp,1.11,1.12 parms.lisp,1.26,1.27

[Christophe R. <cr...@us...>]

Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory usw-pr-cvs1:/tmp/cvs-serv11158/src/compiler/x86

Modified Files:
	float.lisp parms.lisp 
Log Message:
0.7.3.7:
	More CLISP bootstrapping fixes:
	... #\f is the exponent marker for single-floats, not #\s, so
		s/*fp-constant-0s0*/*fp-constant-0f0*/ (and 1s0->1f0)
		use 0f0 rather than 0s0 in initializing them, in genesis,
		and in transformations
	... don't do possibly-destructive operations on possibly-read-only
		strings in genesis
	Now first genesis runs under clisp!


Index: float.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/float.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -C2 -d -r1.11 -r1.12
*** float.lisp	1 Mar 2002 22:51:27 -0000	1.11
--- float.lisp	1 May 2002 13:56:51 -0000	1.12
***************
*** 433,438 ****
    (:generator 2
       (ecase (sb!c::constant-value (sb!c::tn-leaf x))
!        (0f0 (load-symbol-value y *fp-constant-0s0*))
!        (1f0 (load-symbol-value y *fp-constant-1s0*))
         (0d0 (load-symbol-value y *fp-constant-0d0*))
         (1d0 (load-symbol-value y *fp-constant-1d0*))
--- 433,438 ----
    (:generator 2
       (ecase (sb!c::constant-value (sb!c::tn-leaf x))
!        (0f0 (load-symbol-value y *fp-constant-0f0*))
!        (1f0 (load-symbol-value y *fp-constant-1f0*))
         (0d0 (load-symbol-value y *fp-constant-0d0*))
         (1d0 (load-symbol-value y *fp-constant-1d0*))

Index: parms.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/parms.lisp,v
retrieving revision 1.26
retrieving revision 1.27
diff -C2 -d -r1.26 -r1.27
*** parms.lisp	25 Apr 2002 19:26:55 -0000	1.26
--- parms.lisp	1 May 2002 13:56:51 -0000	1.27
***************
*** 268,273 ****
      *fp-constant-0d0*
      *fp-constant-1d0*
!     *fp-constant-0s0*
!     *fp-constant-1s0*
      ;; The following are all long-floats.
      *fp-constant-0l0*
--- 268,273 ----
      *fp-constant-0d0*
      *fp-constant-1d0*
!     *fp-constant-0f0*
!     *fp-constant-1f0*
      ;; The following are all long-floats.
      *fp-constant-0l0*