Changeset 6280

Timestamp:

Apr 16, 2007, 11:15:33 AM (18 years ago)

Author:

Gary Byers

Message:

Memory-fault errors on PPC, too.

File:

• trunk/ccl/level-1/ppc-trap-support.lisp (modified) (4 diffs)

trunk/ccl/level-1/ppc-trap-support.lisp

@@ -474 +474 @@
                                         :address pc-or-index 
                                         :unsigned-fullword the-trap
-                                        :signed-fullword  ignore-0
-                                        :signed-fullword ignore-1)
-  (declare (ignore ignore-1  ignore-0))
+                                        :signed-fullword  arg-0
+                                        :signed-fullword arg-1)
   ;; twgti nargs,0
   ;; time for event polling.
@@ -488 +487 @@
                 instr ra temp rs condition)
             (cond
+              ((= the-trap #$SIGBUS)
+               (%error (make-condition 'invalid-memory-access
+                                       :address arg-0
+                                       :write-p (not (zerop arg-1)))
+                       ()
+                       frame-ptr))              
              ;; tweqi RA nil-value - resolve-eep, or resolve-foreign-variable
               ((and (match-instr the-trap
@@ -703 +708 @@
                                         :address pc-or-index 
                                         :unsigned-fullword the-trap
-                                        :signed-fullword  ignore-0
-                                        :signed-fullword ignore-1)
-  (declare (ignore ignore-1  ignore-0))
+                                        :signed-doubleword  arg0
+                                        :signed-doublewod arg1)
   ;; tdgti nargs,0
   ;; time for event polling.
@@ -737 +741 @@
                     (setf (xp-gpr-lisp xp (RA-field the-trap))
                           (fv.addr eep-or-fv))))))
+              ((= the-trap #$SIGBUS)
+               (%error (make-condition 'invalid-memory-access
+                                       :address arg-0
+                                       :write-p (not (zerop arg-1)))
+                       ()
+                       frame-ptr))
               ;; tdnei RA,N; RA = nargs
               ;; nargs check, no optional or rest involved