Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv15452/src/code
Modified Files:
cross-misc.lisp
Log Message:
0.8.2.32:
* Provide cross-compiler versions of several internal
functions;
* BIGNUM-LOGNOT VOP is the same as LOGNOT-MOD32.
Index: cross-misc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/cross-misc.lisp,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -d -r1.7 -r1.8
--- cross-misc.lisp 2 Jul 2002 12:32:43 -0000 1.7
+++ cross-misc.lisp 16 Aug 2003 06:48:39 -0000 1.8
@@ -119,3 +119,19 @@
(defun symbol-hash (symbol)
(declare (type symbol symbol))
(sxhash symbol))
+
+;;; These functions are needed for constant-folding.
+(defun sb!kernel:simple-array-nil-p (object)
+ (typep object '(simple-array nil)))
+
+(defun sb!kernel:%negate (number)
+ (- number))
+
+(defun sb!kernel:%single-float (number)
+ (coerce number 'single-float))
+
+(defun sb!kernel:%double-float (number)
+ (coerce number 'double-float))
+
+(defun sb!kernel:%ldb (size posn integer)
+ (ldb (byte size posn) integer))
|