Update of /cvsroot/sbcl/sbcl/src/compiler
In directory usw-pr-cvs1:/tmp/cvs-serv11158/src/compiler
Modified Files:
array-tran.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: array-tran.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/array-tran.lisp,v
retrieving revision 1.25
retrieving revision 1.26
diff -C2 -d -r1.25 -r1.26
*** array-tran.lisp 15 Apr 2002 15:58:24 -0000 1.25
--- array-tran.lisp 1 May 2002 13:56:51 -0000 1.26
***************
*** 200,204 ****
;; #\NULL for convenience in calling out to C.)
:n-pad-elements 1)
! (single-float 0.0s0 32 ,sb!vm:simple-array-single-float-widetag)
(double-float 0.0d0 64 ,sb!vm:simple-array-double-float-widetag)
#!+long-float (long-float 0.0L0 #!+x86 96 #!+sparc 128
--- 200,204 ----
;; #\NULL for convenience in calling out to C.)
:n-pad-elements 1)
! (single-float 0.0f0 32 ,sb!vm:simple-array-single-float-widetag)
(double-float 0.0d0 64 ,sb!vm:simple-array-double-float-widetag)
#!+long-float (long-float 0.0L0 #!+x86 96 #!+sparc 128
***************
*** 214,218 ****
((signed-byte 30) 0 32 ,sb!vm:simple-array-signed-byte-30-widetag)
((signed-byte 32) 0 32 ,sb!vm:simple-array-signed-byte-32-widetag)
! ((complex single-float) #C(0.0s0 0.0s0) 64
,sb!vm:simple-array-complex-single-float-widetag)
((complex double-float) #C(0.0d0 0.0d0) 128
--- 214,218 ----
((signed-byte 30) 0 32 ,sb!vm:simple-array-signed-byte-30-widetag)
((signed-byte 32) 0 32 ,sb!vm:simple-array-signed-byte-32-widetag)
! ((complex single-float) #C(0.0f0 0.0f0) 64
,sb!vm:simple-array-complex-single-float-widetag)
((complex double-float) #C(0.0d0 0.0d0) 128
|
