diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp index a0ce9770c1320c17979420704cb7ca572328df94..f8fc0b27fbcbeed4fea21fb564b196b7eee54636 100644 --- a/compiler/sparc/float.lisp +++ b/compiler/sparc/float.lisp @@ -5,7 +5,7 @@ ;;; Carnegie Mellon University, and has been placed in the public domain. ;;; (ext:file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.46 2006/07/01 13:52:48 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/compiler/sparc/float.lisp,v 1.47 2006/11/16 15:37:04 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2914,8 +2914,9 @@ (ash (ldb (byte 4 1) index) 1)))))) (values fop format (fix-up-reg-index rs1) (fix-up-reg-index rs2)))))) -(defun get-fp-operands (scp) - (declare (type (alien (* sigcontext)) scp)) +(defun get-fp-operands (scp modes) + (declare (type (alien (* sigcontext)) scp) + (ignore modes)) ;; From the offending FP instruction, get the operation and ;; operands, if we can. (multiple-value-bind (fop format rs1 rs2)