Changeset 10488

Timestamp:

Aug 18, 2008, 12:36:25 PM (11 years ago)

Author:

gb

Message:

In %CHECK-ANCHORED-UUO, use target::fulltag-misc (not target::tag-misc)
on x8632.

File:

• trunk/source/level-1/x86-trap-support.lisp (modified) (1 diff)

trunk/source/level-1/x86-trap-support.lisp

@@ -235 +235 @@
   (if (eql 0 (%get-xcf-byte xcf skip))
     (let* ((new-rpc (+ #+x8664-target target::tag-function
-                       #+x8632-target target::tag-misc
+                       #+x8632-target target::fulltag-misc
                        (logior (ash (%get-xcf-byte xcf -1) 24)
                                (ash (%get-xcf-byte xcf -2) 16)