[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