Changeset 13922 for branches/arm/level-1/arm-trap-support.lisp
- Timestamp:
- Jul 5, 2010, 4:05:59 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
branches/arm/level-1/arm-trap-support.lisp
r13903 r13922 31 31 (setq register-number (require-type register-number '(integer -3 (18))))) 32 32 (the fixnum (* (the fixnum (+ register-number 3)) arm::node-size))) 33 (defconstant xp-cpsr-regno 16) 33 34 ) 34 35 … … 44 45 (with-xp-registers-and-gpr-offset (xp register-number) (registers offset) 45 46 (values (%get-signed-long registers offset)))) 46 47 47 48 48 (defun xp-gpr-signed-doubleword (xp register-number) … … 60 60 :signed-fullword fnreg 61 61 :signed-fullword offset) 62 (error "xcmain callback") 63 ) 62 (cond ((eql signal 0) (cmain)) 63 ((or (eql signal #$SIGBUS) 64 (eql signal #$SIGSEGV)) 65 (%error (make-condition 'invalid-memory-access 66 :address arg 67 :write-p (eql signal #$SIGBUS)) 68 () 69 (%get-frame-ptr))) 70 (t 71 (error "cmain callback: signal = ~d, arg = #x~x, fnreg = ~d, offset = ~d" 72 signal arg fnreg offset))))
Note: See TracChangeset
for help on using the changeset viewer.