Changeset 5577

Timestamp:

Dec 3, 2006, 4:11:25 AM (18 years ago)

Author:

Gary Byers

Message:

Define RIP-REGISTER-OFFSET, which isn't necessarily 16.

File:

• trunk/ccl/level-1/x86-trap-support.lisp (modified) (3 diffs)

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

@@ -28 +28 @@
   (defmacro xp-gp-regs (xp) xp)
   (defconstant flags-register-offset #$REG_EFL)
+  (defconstant rip-register-offset #$REG_RIP)
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(13                                ;rax
@@ -52 +53 @@
   (defmacro xp-gp-regs (xp) xp)
   (defconstant flags-register-offset 22)
+  (defconstant rip-register-offset 20)
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(7                                 ;rax
@@ -100 +102 @@
 
   (defconstant flags-register-offset 17)
+  (defconstant rip-register-offset 16)  
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(0                                 ;rax