Changeset 13922 for branches/arm/level-1/arm-trap-support.lisp

Timestamp:

Jul 5, 2010, 4:05:59 PM (10 years ago)

Author:

gb

Message:

More files from last commit.

arm-callback-support.lisp, arm-error-signal.lisp,
arm-trap-support.lisp,l1-boot-3.lisp: try to get basic stuff working
well enough to enable callbacks. Enable callbacks.

arm-backtrace.lisp: a little bit of platform-specific code and some
code from the PPC port, so that backtrace sort of works.

File:

• branches/arm/level-1/arm-trap-support.lisp (modified) (3 diffs)

branches/arm/level-1/arm-trap-support.lisp

@@ -31 +31 @@
     (setq register-number (require-type register-number '(integer -3 (18)))))
   (the fixnum (* (the fixnum (+ register-number 3)) arm::node-size)))
+(defconstant xp-cpsr-regno 16)
 )
 
@@ -44 +45 @@
   (with-xp-registers-and-gpr-offset (xp register-number) (registers offset)
     (values (%get-signed-long registers offset))))
-
 
 (defun xp-gpr-signed-doubleword (xp register-number)
@@ -60 +60 @@
                      :signed-fullword fnreg
                      :signed-fullword offset)
-  (error "xcmain callback")
-  )
+  (cond ((eql signal 0) (cmain))
+        ((or (eql signal #$SIGBUS)
+             (eql signal #$SIGSEGV))
+         (%error (make-condition 'invalid-memory-access
+                                 :address arg
+                                 :write-p (eql signal #$SIGBUS))
+                 ()
+                 (%get-frame-ptr)))
+        (t
+         (error "cmain callback: signal = ~d, arg = #x~x, fnreg = ~d, offset = ~d"
+                signal arg fnreg offset))))