Changeset 11150


Ignore:
Timestamp:
Oct 18, 2008, 5:48:27 AM (11 years ago)
Author:
gb
Message:

%kill-tcr, via trap.

Location:
trunk/source
Files:
4 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/compiler/arch.lisp

    r8578 r11150  
    6464(defconstant error-resume 14)
    6565(defconstant error-resume-all 15)
     66(defconstant error-kill 16)
    6667(defconstant error-cant-call 17)        ; Attempt to funcall something that is not a symbol or function.
    6768(eval-when (:compile-toplevel :load-toplevel :execute)
  • trunk/source/level-0/PPC/ppc-misc.lisp

    r10959 r11150  
    10111011  (blr))
    10121012
     1013(defppclapfunction %kill-tcr ((target arg_z))
     1014  (check-nargs 1)
     1015  (uuo_interr arch::error-kill rzero)
     1016  (ne0->boolean arg_z imm0 imm1)
     1017  (blr))
     1018
    10131019(defppclapfunction %atomic-pop-static-cons ()
    10141020  (li imm0 (+ (target-nil-value) (target::kernel-global static-conses)))
  • trunk/source/level-0/X86/X8632/x8632-misc.lisp

    r11057 r11150  
    730730  (single-value-return))
    731731
     732
     733(defx8632lapfunction %kill-tcr ((target arg_z))
     734  (check-nargs 1)
     735  (ud2a)
     736  (:byte 9)
     737  (testb (%b imm0) (%b imm0))
     738  (movl ($ (target-nil-value)) (%l arg_z))
     739  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
     740  (single-value-return))
     741
    732742(defx8632lapfunction %get-spin-lock ((p arg_z))
    733743  (check-nargs 1)
  • trunk/source/level-0/X86/x86-misc.lisp

    r10959 r11150  
    707707  (movl ($ (target-nil-value)) (%l arg_z))
    708708  (single-value-return))
     709
     710(defx86lapfunction %kill-tcr ((target arg_z))
     711  (check-nargs 1)
     712  (ud2a)
     713  (:byte 9)
     714  (testb (%b imm0) (%b imm0))
     715  (movl ($ (target-nil-value)) (%l arg_z))
     716  (cmovnel (@ (+ target::t-offset target::symbol.vcell) (% arg_z)) (%l arg_z))
     717  (single-value-return))
     718 
    709719
    710720(defx86lapfunction %get-spin-lock ((p arg_z))
Note: See TracChangeset for help on using the changeset viewer.