Changeset 8582


Ignore:
Timestamp:
Feb 25, 2008, 11:14:07 AM (12 years ago)
Author:
gb
Message:

x8664 LAP side of tcr-trap changes.

File:
1 edited

Legend:

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

    r8229 r8582  
    623623  (movl ($ x8664::t-value) (% arg_z.l))
    624624  @done
     625  (single-value-return))
     626
     627(defx86lapfunction %%tcr-interrupt ((target arg_z))
     628  (check-nargs 1)
     629  (ud2a)
     630  (:byte 4)
     631  (box-fixnum imm0 arg_z)
     632  (single-value-return))
     633
     634(defx86lapfunction %suspend-tcr ((target arg_z))
     635  (check-nargs 1)
     636  (ud2a)
     637  (:byte 5)
     638  (testl (%l imm0) (%l imm0))
     639  (movl ($ target::nil-value) (%l arg_z))
     640  (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     641  (single-value-return))
     642
     643(defx86lapfunction %suspend-other-threads ()
     644  (check-nargs 0)
     645  (ud2a)
     646  (:byte 6)
     647  (movl ($ target::nil-value) (%l arg_z))
     648  (single-value-return))
     649
     650(defx86lapfunction %resume-tcr ((target arg_z))
     651  (check-nargs 1)
     652  (ud2a)
     653  (:byte 7)
     654  (testl (%l imm0) (%l imm0))
     655  (movl ($ target::nil-value) (%l arg_z))
     656  (cmovel (@ target::t-offset (% arg_z)) (%l arg_z))
     657  (single-value-return))
     658
     659(defx86lapfunction %resume-other-threads ()
     660  (check-nargs 0)
     661  (ud2a)
     662  (:byte 8)
     663  (movl ($ target::nil-value) (%l arg_z))
    625664  (single-value-return))
    626665
Note: See TracChangeset for help on using the changeset viewer.