Changeset 10335


Ignore:
Timestamp:
Aug 5, 2008, 1:35:59 AM (11 years ago)
Author:
rme
Message:

Conditionalize %CHECK-ANCHORED-UUO for x8632.

File:
1 edited

Legend:

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

    r10139 r10335  
    234234(defun %check-anchored-uuo (xcf skip)
    235235  (if (eql 0 (%get-xcf-byte xcf skip))
    236     (let* ((new-rpc (+ target::tag-function
     236    (let* ((new-rpc (+ #+x8664-target target::tag-function
     237                       #+x8632-target target::tag-misc
    237238                       (logior (ash (%get-xcf-byte xcf -1) 24)
    238239                               (ash (%get-xcf-byte xcf -2) 16)
    239240                               (ash (%get-xcf-byte xcf -3) 8)
    240241                               (%get-xcf-byte xcf -4)))))
    241       (%set-object xcf x8664::xcf.relative-pc new-rpc)
     242      (%set-object xcf target::xcf.relative-pc new-rpc)
    242243      -1)
    243244    skip))
Note: See TracChangeset for help on using the changeset viewer.