Index: /trunk/ccl/level-1/x86-trap-support.lisp
===================================================================
--- /trunk/ccl/level-1/x86-trap-support.lisp	(revision 5576)
+++ /trunk/ccl/level-1/x86-trap-support.lisp	(revision 5577)
@@ -28,4 +28,5 @@
   (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,4 +53,5 @@
   (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,4 +102,5 @@
 
   (defconstant flags-register-offset 17)
+  (defconstant rip-register-offset 16)  
   (defparameter *encoded-gpr-to-indexed-gpr*
     #(0					;rax