Changeset 11887


Ignore:
Timestamp:
Apr 4, 2009, 9:28:27 AM (10 years ago)
Author:
gb
Message:

in (X)CMAIN callback:SIGBUS with code = -1 -> INVALID-MEMORY-OPERATION.

File:
1 edited

Legend:

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

    r11342 r11887  
    430430                        :void))))
    431431          ((= signal #+win32-target 10 #-win32-target #$SIGBUS)
    432            (%error (make-condition 'invalid-memory-access
    433                     :address addr
    434                     :write-p (not (zerop code)))
    435                    ()
    436                    frame-ptr))))
     432           (if (= code -1)
     433             (%error (make-condition 'invalid-memory-operation)
     434                     ()
     435                     frame-ptr)
     436             (%error (make-condition 'invalid-memory-access
     437                                     :address addr
     438                                     :write-p (not (zerop code)))
     439                     ()
     440                     frame-ptr)))))
    437441  0)
    438442
Note: See TracChangeset for help on using the changeset viewer.