[Openmcl-cvs-notifications] r8015 - /trunk/ccl/level-1/x86-trap-support.lisp

[gb at clozure.com]

Author: gb
Date: Tue Jan  8 02:00:02 2008
New Revision: 8015

Log:
Fix typo in linuxx8664 version of xp-mxcsr.

Modified:
    trunk/ccl/level-1/x86-trap-support.lisp

Modified: trunk/ccl/level-1/x86-trap-support.lisp
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D
--- trunk/ccl/level-1/x86-trap-support.lisp (original)
+++ trunk/ccl/level-1/x86-trap-support.lisp Tue Jan  8 02:00:02 2008
@@ -29,7 +29,7 @@
   (defconstant flags-register-offset #$REG_EFL)
   (defconstant rip-register-offset #$REG_RIP)
   (defun xp-mxcsr (xp)
-    (pref x :ucontext.uc_mcontext.fpregs.mxcsr))
+    (pref xp :ucontext.uc_mcontext.fpregs.mxcsr))
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(13                                ;rax
       14                                ;rcx