Changeset 9642 for branches

Timestamp:

May 30, 2008, 1:52:08 PM (16 years ago)

Author:

R. Matthew Emerson

Message:

%return-address-function, %return-address-offset: test the 3 bit
fulltag of the potential tra, not the 2 bit lisptag.

File:

• branches/ia32/level-0/X86/X8632/x8632-def.lisp (modified) (2 diffs)

branches/ia32/level-0/X86/X8632/x8632-def.lisp

@@ -211 +211 @@
 
 (defx8632lapfunction %return-address-function ((r arg_z))
-  (extract-lisptag r imm0)
+  (extract-fulltag r imm0)
   (cmpb ($ x8632::fulltag-tra) (% imm0.b))
   (jne @fail)
@@ -222 +222 @@
   (single-value-return))
 
-;;; xxx this may need twiddling to refer to the right place
 (defx8632lapfunction %return-address-offset ((r arg_z))
-  (extract-lisptag r imm0)
+  (extract-fulltag r imm0)
   (cmpb ($ x8632::fulltag-tra) (% imm0.b))
   (jne @fail)