Changeset 13353


Ignore:
Timestamp:
Jan 3, 2010, 7:44:59 PM (10 years ago)
Author:
gb
Message:

No extract-lisptag. lapmacro ...

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r13352 r13353  
    10551055(defppclapfunction %static-inverse-cons ((n arg_z))
    10561056  (check-nargs 1)
    1057   (extract-lisptag. imm0 arg_z)
     1057  (extract-lisptag imm0 arg_z)
     1058  (cmpri imm0 0)
     1059  (ref-global temp0 static-cons-area)
    10581060  (bne @fail)
    1059   (ref-global temp0 static-cons-area)
    10601061  (la n '-128 n)
    10611062  (ldr imm0 target::area.ndwords temp0)
Note: See TracChangeset for help on using the changeset viewer.