Changeset 9832


Ignore:
Timestamp:
Jun 26, 2008, 11:27:44 PM (11 years ago)
Author:
gb
Message:

%STATICP.

File:
1 edited

Legend:

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

    r8579 r9832  
    10261026  (strcx. rzero rzero imm0)
    10271027  (blr))
     1028
     1029(defppclapfunction %staticp ((x arg_z))
     1030  (check-nargs 1)
     1031  (ref-global temp0 tenured-area)
     1032  (ldr imm1 target::area.low temp0)
     1033  (sub imm0 x imm1)
     1034  (ldr imm1 target::area.static-dnodes temp0)
     1035  (srri imm0 imm0 target::dnode-shift)
     1036  (li arg_z nil)
     1037  (cmplr imm0 imm1)
     1038  (bgelr)
     1039  (box-fixnum arg_z imm0)
     1040  (blr))
    10281041 
    10291042
Note: See TracChangeset for help on using the changeset viewer.