[Openmcl-cvs-notifications] r11866 - /trunk/source/lisp-kernel/x86-exceptions.h

gb at clozure.com gb at clozure.com
Tue Mar 31 06:20:56 EDT 2009


Author: gb
Date: Tue Mar 31 06:20:55 2009
New Revision: 11866

Log:
Need (for some value of 'need') an xpMXCSRptr macro for Win64, too.

Modified:
    trunk/source/lisp-kernel/x86-exceptions.h

Modified: trunk/source/lisp-kernel/x86-exceptions.h
=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/lisp-kernel/x86-exceptions.h (original)
+++ trunk/source/lisp-kernel/x86-exceptions.h Tue Mar 31 06:20:55 2009
@@ -93,6 +93,7 @@
 #define xpGPR(x,gprno) (xpGPRvector(x)[gprno])
 #define xpPC(x) xpGPR(x,Iip)
 #define eflags_register(xp) xp->EFlags
+#define xpMXCSRptr(x) (DWORD *)(&(x->MxCsr))
 #else
 #define xpGPRvector(x) ((DWORD *)(&(x)->Edi))
 #define xpGPR(x,gprno) (xpGPRvector(x)[gprno])



More information about the Openmcl-cvs-notifications mailing list