[Sbcl-commits] CVS: sbcl/src/compiler/x86 float.lisp,1.17,1.18

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

Update of /cvsroot/sbcl/sbcl/src/compiler/x86
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25438/src/compiler/x86

Modified Files:
	float.lisp 
Log Message:
0.8.9.36:
	Commit "ignore during cross-compilation" patch (CSR sbcl-devel
	2004-04-05)
	... bad treatment of IGNORE now gets a full WARNING during
		cross-compilation;
	... fix all the badness this reveals;
	... implement SAME-ARG checking in LOGFOO type derivers;
	... also add one more IGNORABLE in PCL (from Marcus Pearce);
	... test for bad (signed-byte <N>) bug.


Index: float.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/compiler/x86/float.lisp,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- float.lisp	15 Mar 2004 15:55:22 -0000	1.17
+++ float.lisp	13 Apr 2004 10:30:39 -0000	1.18
@@ -68,6 +68,7 @@
 ;;; this is the right thing to do anyway; omitting them can lead to
 ;;; system corruption on conforming code.  -- CSR
 (defun maybe-fp-wait (node &optional note-next-instruction)
+  (declare (ignore node))
   #+nil
   (when (policy node (or (= debug 3) (> safety speed))))
   (when note-next-instruction