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

[gb at clozure.com]

Author: gb
Date: Mon Nov 10 01:40:52 2008
New Revision: 11342

Log:
FreeBSD x8632 exception decoding.

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 Mon Nov 10 01:40:52 2008
@@ -265,6 +265,29 @@
      #$EBP
      #$ESI
      #$EDI)
+      ))
+
+#+freebsdx8632-target
+(progn
+  (defconstant gp-regs-offset 0)
+  (defmacro xp-gp-regs (xp)
+    `(pref ,xp :ucontext_t.uc_mcontext))
+  (defun xp-mxcsr (xp)
+    (pref (pref xp :ucontext_t.uc_mcontext.mc_fpstate) :savexmm.sv_env.en_=
mxcsr)
+)
+  (defconstant flags-register-offset 17)
+  (defconstant eip-register-offset 15)
+  (defparameter *encoded-gpr-to-indexed-gpr*
+    #(
+      12                                ;eax
+      11                                ;ecx
+      10                                ;edx
+      9                                 ;ebx
+      18                                ;esp
+      7                                 ;ebp
+      6                                 ;esi
+      5                                 ;edi
+      )
       ))
 =

 (defun indexed-gpr-lisp (xp igpr)