Changeset 9834


Ignore:
Timestamp:
Jun 27, 2008, 10:01:08 AM (11 years ago)
Author:
gb
Message:

%STATIC-INVERSE-CONS.

File:
1 edited

Legend:

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

    r9832 r9834  
    10391039  (box-fixnum arg_z imm0)
    10401040  (blr))
     1041
     1042(defppclapfunction %static-inverse-cons ((n arg_z))
     1043  (check-nargs 1)
     1044  (ref-global temp0 tenured-area)
     1045  (ldr imm1 target::area.low temp0)
     1046  (add imm1 n imm1)
     1047  (add imm1 n imm1)
     1048  (la arg_z target::fulltag-cons imm1)
     1049  (blr))
    10411050 
    10421051
Note: See TracChangeset for help on using the changeset viewer.