From 02ce9dfa21feca30a02ac492627e4e6a46c93c4f Mon Sep 17 00:00:00 2001
From: rtoy <rtoy>
Date: Thu, 16 Nov 2006 15:37:04 +0000
Subject: [PATCH] Match ppc changes.

---
 compiler/sparc/float.lisp | 7 ++++---
 1 file changed, 4 insertions(+), 3 deletions(-)

diff --git a/compiler/sparc/float.lisp b/compiler/sparc/float.lisp
index a0ce9770c..f8fc0b27f 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)
-- 
GitLab