[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2014-05-4-gc1e7b4a

[Raymond Toy]

This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  c1e7b4aad739a7e71d0b0095893df6c257b7724a (commit)
      from  d87bebdf19729956c9a35c734d5d3cced17a5359 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit c1e7b4aad739a7e71d0b0095893df6c257b7724a
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Wed May 7 20:42:44 2014 -0700

    Oops. Need to add the package prefix for sigcontext.

diff --git a/src/compiler/ppc/float.lisp b/src/compiler/ppc/float.lisp
index 33e5ed0..200772f 100644
--- a/src/compiler/ppc/float.lisp
+++ b/src/compiler/ppc/float.lisp
@@ -1402,7 +1402,7 @@
 (export 'get-fp-operands)
 
 (defun get-fp-operation (scp)
-  (declare (type (alien (* sigcontext)) scp))
+  (declare (type (alien (* unix:sigcontext)) scp))
   ;; Get the offending FP instruction from the context.  We return the
   ;; operation associated with the FP instruction, the precision of
   ;; the operation, and the operands of the instruction.
@@ -1440,7 +1440,7 @@
 	(values fop format rd ra rb)))))
 
 (defun get-fp-operands (scp modes)
-  (declare (type (alien (* sigcontext)) scp))
+  (declare (type (alien (* unix:sigcontext)) scp))
   ;; From the offending FP instruction, get the operation and
   ;; operands, if we can.
   (multiple-value-bind (fop format rd rs1 rs2)

-----------------------------------------------------------------------

Summary of changes:
 src/compiler/ppc/float.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp