Changeset 10898 for trunk/source/level-1

Timestamp:

Sep 27, 2008, 6:53:58 AM (12 years ago)

Author:

gb

Message:

Win32 XP hacking stuff.

File:

• trunk/source/level-1/x86-trap-support.lisp (modified) (2 diffs)

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

@@ -224 +224 @@
       #$REG_ESI                         ;esi
       #$REG_EDI                         ;edi
+      )))
+
+#+win32-target
+(progn
+  (defconstant gp-regs-offset 0)
+  (defmacro xp-gp-regs (xp)
+    `,xp)
+  (defun xp-mxcsr (xp)
+    (%get-unsigned-long (pref xp #>CONTEXT.ExtendedRegisters) 24))
+  (defconstant flags-register-offset 192)
+  (defconstant eip-register-offset 180)
+  (defparameter *encoded-gpr-to-indexed-gpr*
+    #(
+     176                                ;eax
+     172                                ;ecx
+     168                                ;edx
+     164                                ;ebx
+     196                                ;esp
+     180                                ;ebp
+     160                                ;esi
+     156                                ;edi
       )))
 
@@ -365 +386 @@
                         :unsigned-fullword code
                         :void))))
-          ((= signal #$SIGBUS)
+          ((= signal #+win32-target 10 #-win32-target #$SIGBUS)
            (%error (make-condition 'invalid-memory-access
                     :address addr