Changeset 10006


Ignore:
Timestamp:
Jul 11, 2008, 1:30:06 AM (11 years ago)
Author:
gz
Message:

Merge r9833-r9835

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-0/X86/x86-misc.lisp

    r10005 r10006  
    664664  @done
    665665  (single-value-return))
     666
    666667(defx86lapfunction %%tcr-interrupt ((target arg_z))
    667668  (check-nargs 1)
     
    702703  (movl ($ target::nil-value) (%l arg_z))
    703704  (single-value-return))
    704 
    705705
    706706(defx86lapfunction %get-spin-lock ((p arg_z))
     
    874874  (single-value-return))
    875875 
     876(defx86lapfunction %staticp ((x arg_z))
     877  (check-nargs 1)
     878  (ref-global tenured-area temp0)
     879  (movq (% x) (% imm0))
     880  (subq (@ target::area.low (% temp0)) (% imm0))
     881  (shrq ($ target::dnode-shift) (% imm0))
     882  (cmpq (@ target::area.static-dnodes (% temp0)) (% imm0))
     883  (leaq (@ (% imm0) target::fixnumone) (% arg_z))
     884  (movl ($ target::nil-value) (%l imm0))
     885  (cmovaeq (% imm0) (% arg_z))
     886  (single-value-return))
     887
     888(defx86lapfunction %static-inverse-cons ((n arg_z))
     889  (check-nargs 1)
     890  (ref-global tenured-area temp0)
     891  (movq (@ target::area.low (% temp0)) (% imm0))
     892  (leaq (@ target::fulltag-cons (% imm0) (% n) 2) (% arg_z))
     893  (single-value-return))
    876894
    877895
Note: See TracChangeset for help on using the changeset viewer.