Changeset 9835


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

%STATIC-INVERSE-CONS.

File:
1 edited

Legend:

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

    r9833 r9835  
    846846  (single-value-return))
    847847
    848        
     848(defx86lapfunction %static-inverse-cons ((n arg_z))
     849  (check-nargs 1)
     850  (ref-global tenured-area temp0)
     851  (movq (@ target::area.low (% temp0)) (% imm0))
     852  (leaq (@ target::fulltag-cons (% imm0) (% n) 2) (% arg_z))
     853  (single-value-return))
     854
    849855
    850856 
Note: See TracChangeset for help on using the changeset viewer.