[Openmcl-cvs-notifications] r14841 - /trunk/source/level-1/x86-trap-support.lisp

[gb at clozure.com]

Author: gb
Date: Wed Jun 22 22:00:51 2011
New Revision: 14841

Log:
Fix typo in solaris/x64 xp-xmm-regs definition.

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

Modified: trunk/source/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/source/level-1/x86-trap-support.lisp (original)
+++ trunk/source/level-1/x86-trap-support.lisp Wed Jun 22 22:00:51 2011
@@ -124,7 +124,7 @@
   (defconstant rip-register-offset #$REG_RIP)
   (defun xp-mxcsr (xp)
     (pref xp :ucontext.uc_mcontext.fpregs.fp_reg_set.fpchip_state.mxcsr))
-  (defmacro xp-mmx-regs (xp)
+  (defmacro xp-xmm-regs (xp)
     `(pref ,xp :ucontext.uc_mcontext.fpregs.fp_reg_set.fpchip_state.xmm))
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(14                                ;rax