Ignore:
Timestamp:
Jul 16, 2008, 2:23:17 PM (11 years ago)
Author:
gb
Message:

Conditionalize for Solaris.

File:
1 edited

Legend:

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

    r8130 r10053  
    128128      14                                ;r14
    129129      15                                ;r15
     130      )))
     131
     132#+solarisx8664-target
     133(progn
     134  (defconstant gp-regs-offset (+ (get-field-offset :ucontext.uc_mcontext)
     135                                 (get-field-offset :mcontext_t.gregs)))
     136  (defmacro xp-gp-regs (xp) xp)
     137  (defconstant flags-register-offset #$REG_RFL)
     138  (defconstant rip-register-offset #$REG_RIP)
     139  (defun xp-mxcsr (xp)
     140    (pref xp :ucontext.uc_mcontext.fpregs.fp_reg_set.fpchip_state.mxcsr))
     141  (defparameter *encoded-gpr-to-indexed-gpr*
     142    #(14                                ;rax
     143      13                                ;rcx
     144      12                                ;rdx
     145      11                                ;rbx
     146      20                                ;rsp
     147      10                                ;rbp
     148      9                                 ;rsi
     149      8                                 ;rdi
     150      7                                 ;r8
     151      6                                 ;r9
     152      5                                 ;r10
     153      4                                 ;r11
     154      3                                 ;r12
     155      2                                 ;r13
     156      1                                 ;r14
     157      0                                 ;r15
    130158      )))
    131159
Note: See TracChangeset for help on using the changeset viewer.