Ignore:
Timestamp:
Sep 27, 2008, 6:53:58 AM (11 years ago)
Author:
gb
Message:

Win32 XP hacking stuff.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/x86-trap-support.lisp

    r10788 r10898  
    224224      #$REG_ESI                         ;esi
    225225      #$REG_EDI                         ;edi
     226      )))
     227
     228#+win32-target
     229(progn
     230  (defconstant gp-regs-offset 0)
     231  (defmacro xp-gp-regs (xp)
     232    `,xp)
     233  (defun xp-mxcsr (xp)
     234    (%get-unsigned-long (pref xp #>CONTEXT.ExtendedRegisters) 24))
     235  (defconstant flags-register-offset 192)
     236  (defconstant eip-register-offset 180)
     237  (defparameter *encoded-gpr-to-indexed-gpr*
     238    #(
     239     176                                ;eax
     240     172                                ;ecx
     241     168                                ;edx
     242     164                                ;ebx
     243     196                                ;esp
     244     180                                ;ebp
     245     160                                ;esi
     246     156                                ;edi
    226247      )))
    227248
     
    365386                        :unsigned-fullword code
    366387                        :void))))
    367           ((= signal #$SIGBUS)
     388          ((= signal #+win32-target 10 #-win32-target #$SIGBUS)
    368389           (%error (make-condition 'invalid-memory-access
    369390                    :address addr
Note: See TracChangeset for help on using the changeset viewer.