Changeset 11065


Ignore:
Timestamp:
Oct 12, 2008, 10:01:33 AM (11 years ago)
Author:
gb
Message:

In both x8664 and x8632 versions of BOGUS-THING-P: %RETURN-ADDRESS-OFFSET
of a TRA can't be 0, but can be null. (If it's NIL, we might want to
check and see if it's in the kernel before declaring the object to be
bogus.)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/x86-threads-utils.lisp

    r10128 r11065  
    160160        #.x8664::fulltag-tra-1)
    161161       (let* ((disp (%return-address-offset thing)))
    162          (or (eql 0 disp)
    163              (let* ((f (%return-address-function thing)))
    164                (and (typep f 'function) (valid-header-p f))))))
     162         (and disp
     163              (let* ((f (%return-address-function thing)))
     164                (and (typep f 'function) (valid-header-p f))))))
    165165      (#.x8664::fulltag-cons t)
    166166      (#.x8664::fulltag-nil (null thing))
     
    181181                           (on-any-tsp-stack x))
    182182                      (and (eql fulltag x8632::fulltag-tra)
    183                            (eql 0 (%return-address-offset x)))
     183                           (%return-address-offset x))
    184184                      (and (typep x 'ivector)
    185185                           (on-any-csp-stack x))
Note: See TracChangeset for help on using the changeset viewer.