[Sbcl-commits] CVS: sbcl/src/code cross-misc.lisp,1.11,1.12

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

Update of /cvsroot/sbcl/sbcl/src/code
In directory sc8-pr-cvs1:/tmp/cvs-serv840/src/code

Modified Files:
	cross-misc.lisp 
Log Message:
0.8.2.40:
	Sparc build fix I
	... cross-compiler versions of ASH-RIGHT-[UN]SIGNED, to stop the
		compiler from going into an endless loop during compilation
		of STRING :-)
	Sparc build fix II
	... we don't support sigreturn via call_into_lisp on anything
		but x86 yet.


Index: cross-misc.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/cross-misc.lisp,v
retrieving revision 1.11
retrieving revision 1.12
diff -u -d -r1.11 -r1.12
--- cross-misc.lisp	17 Aug 2003 17:17:06 -0000	1.11
+++ cross-misc.lisp	18 Aug 2003 10:46:11 -0000	1.12
@@ -144,3 +144,10 @@
 (defun sb!kernel:%with-array-data (array start end)
   (assert (typep array '(simple-array * (*))))
   (values array start end 0))
+
+#!+sparc
+(progn
+  (defun sb!vm::ash-right-signed (num shift)
+    (ash num (- shift)))
+  (defun sb!vm::ash-right-unsigned (num shift)
+    (ash num (- shift))))