Update of /cvsroot/sbcl/sbcl/src/compiler/sparc
In directory sc8-pr-cvs1:/tmp/cvs-serv31620/src/compiler/sparc
Modified Files:
float.lisp
Log Message:
0.8.0.16:
Code deletion, yay
... since we've expunged *BYTES-CONSED-BETWEEN-GCS* everywhere else,
we might as well stop it being set and confusing people, so
delete it;
... since our CMUCL brethren have decided that 12Mb is a good value
for (BYTES-CONSED-BETWEEN-GCS), let's follow that. Note that
this increases the default on x86, but decreases the historical
default on non-x86 (though in recent times a refactor had
likewise changed that default);
... fix an error caught by new function warning stuff: bogus
parenthesis in a sparc VOP.
Index: float.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/sparc/float.lisp,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -d -r1.4 -r1.5
--- float.lisp 22 Jul 2002 20:22:42 -0000 1.4
+++ float.lisp 29 May 2003 16:14:45 -0000 1.5
@@ -118,7 +118,7 @@
(defun move-long-reg (dst src)
(cond
((member :sparc-v9 *backend-subfeatures*)
- (inst fmovq dst src)
+ (inst fmovq dst src))
(t
(dotimes (i 4)
(let ((dst (make-random-tn :kind :normal
@@ -127,7 +127,7 @@
(src (make-random-tn :kind :normal
:sc (sc-or-lose 'single-reg)
:offset (+ i (tn-offset src)))))
- (inst fmovs dst src)))))))
+ (inst fmovs dst src))))))
(macrolet ((frob (vop sc format)
`(progn
|