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

%STATICP.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-0/X86/x86-misc.lisp

    r8582 r9833  
    834834  (single-value-return))
    835835 
    836 
     836(defx86lapfunction %staticp ((x arg_z))
     837  (check-nargs 1)
     838  (ref-global tenured-area temp0)
     839  (movq (% x) (% imm0))
     840  (subq (@ target::area.low (% temp0)) (% imm0))
     841  (shrq ($ target::dnode-shift) (% imm0))
     842  (cmpq (@ target::area.static-dnodes (% temp0)) (% imm0))
     843  (leaq (@ (% imm0) target::fixnumone) (% arg_z))
     844  (movl ($ target::nil-value) (%l imm0))
     845  (cmovaeq (% imm0) (% arg_z))
     846  (single-value-return))
     847
     848       
    837849
    838850 
Note: See TracChangeset for help on using the changeset viewer.