Changeset 11292


Ignore:
Timestamp:
Nov 3, 2008, 6:37:07 AM (11 years ago)
Author:
gb
Message:

solarisx8662 exception decoding.

File:
1 edited

Legend:

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

    r11003 r11292  
    246246     39                                ;edi
    247247      )))
     248
     249#+solarisx8632-target
     250(progn
     251  (defconstant gp-regs-offset 0)
     252  (defmacro xp-gp-regs (xp)
     253    `(pref (pref ,xp :ucontext.uc_mcontext) :mcontext_t.gregs))
     254  (defun xp-mxcsr (xp)
     255    (pref xp :ucontext.uc_mcontext.fpregs.fp_reg_set.fpchip_state.mxcsr))
     256  (defconstant flags-register-offset #$EFL)
     257  (defconstant eip-register-offset #$EIP)
     258  (defparameter *encoded-gpr-to-indexed-gpr*
     259    (vector
     260     #$EAX
     261     #$ECX
     262     #$EDX
     263     #$EBX
     264     #$ESP
     265     #$EBP
     266     #$ESI
     267     #$EDI)
     268      ))
    248269
    249270(defun indexed-gpr-lisp (xp igpr)
Note: See TracChangeset for help on using the changeset viewer.