Changeset 9642 for branches/ia32/level-0


Ignore:
Timestamp:
May 30, 2008, 8:52:08 PM (11 years ago)
Author:
rme
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/ia32/level-0/X86/X8632/x8632-def.lisp

    r9461 r9642  
    211211
    212212(defx8632lapfunction %return-address-function ((r arg_z))
    213   (extract-lisptag r imm0)
     213  (extract-fulltag r imm0)
    214214  (cmpb ($ x8632::fulltag-tra) (% imm0.b))
    215215  (jne @fail)
     
    222222  (single-value-return))
    223223
    224 ;;; xxx this may need twiddling to refer to the right place
    225224(defx8632lapfunction %return-address-offset ((r arg_z))
    226   (extract-lisptag r imm0)
     225  (extract-fulltag r imm0)
    227226  (cmpb ($ x8632::fulltag-tra) (% imm0.b))
    228227  (jne @fail)
Note: See TracChangeset for help on using the changeset viewer.