Changeset 6280


Ignore:
Timestamp:
Apr 16, 2007, 6:15:33 PM (15 years ago)
Author:
gb
Message:

Memory-fault errors on PPC, too.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/ppc-trap-support.lisp

    r5894 r6280  
    474474                                        :address pc-or-index
    475475                                        :unsigned-fullword the-trap
    476                                         :signed-fullword  ignore-0
    477                                         :signed-fullword ignore-1)
    478   (declare (ignore ignore-1  ignore-0))
     476                                        :signed-fullword  arg-0
     477                                        :signed-fullword arg-1)
    479478  ;; twgti nargs,0
    480479  ;; time for event polling.
     
    488487                instr ra temp rs condition)
    489488            (cond
     489              ((= the-trap #$SIGBUS)
     490               (%error (make-condition 'invalid-memory-access
     491                                       :address arg-0
     492                                       :write-p (not (zerop arg-1)))
     493                       ()
     494                       frame-ptr))             
    490495             ;; tweqi RA nil-value - resolve-eep, or resolve-foreign-variable
    491496              ((and (match-instr the-trap
     
    703708                                        :address pc-or-index
    704709                                        :unsigned-fullword the-trap
    705                                         :signed-fullword  ignore-0
    706                                         :signed-fullword ignore-1)
    707   (declare (ignore ignore-1  ignore-0))
     710                                        :signed-doubleword  arg0
     711                                        :signed-doublewod arg1)
    708712  ;; tdgti nargs,0
    709713  ;; time for event polling.
     
    737741                    (setf (xp-gpr-lisp xp (RA-field the-trap))
    738742                          (fv.addr eep-or-fv))))))
     743              ((= the-trap #$SIGBUS)
     744               (%error (make-condition 'invalid-memory-access
     745                                       :address arg-0
     746                                       :write-p (not (zerop arg-1)))
     747                       ()
     748                       frame-ptr))
    739749              ;; tdnei RA,N; RA = nargs
    740750              ;; nargs check, no optional or rest involved
Note: See TracChangeset for help on using the changeset viewer.