Changeset 9942


Ignore:
Timestamp:
Jul 10, 2008, 8:53:13 AM (11 years ago)
Author:
gb
Message:

Some thread suspend/resume stuff moved to lower-level code.

File:
1 edited

Legend:

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

    r9620 r9942  
    508508;;; to do otherwise.  The caller really needs to hold the heap-segment
    509509;;; lock; this grabs the tcr queue lock as well.
    510 (defun %suspend-other-threads ()
    511   (ff-call (%kernel-import target::kernel-import-suspend-other-threads)
    512            :void))
    513 
    514 (defun %resume-other-threads ()
    515   (ff-call (%kernel-import target::kernel-import-resume-other-threads)
    516            :void))
     510
     511
    517512
    518513(defparameter *spin-lock-tries* 1)
     
    772767 
    773768 
    774 (defun %suspend-tcr (tcr)
    775   (with-macptrs (tcrp)
    776     (%setf-macptr-to-object tcrp tcr)
    777     (not (zerop (the fixnum
    778                   (ff-call (%kernel-import target::kernel-import-suspend-tcr)
    779                            :address tcrp
    780                            :unsigned-fullword))))))
    781 
    782 (defun %resume-tcr (tcr)
    783   (with-macptrs (tcrp)
    784     (%setf-macptr-to-object tcrp tcr)
    785     (not (zerop (the fixnum
    786                   (ff-call (%kernel-import target::kernel-import-resume-tcr)
    787                            :address tcrp
    788                            :unsigned-fullword))))))
     769
    789770
    790771
Note: See TracChangeset for help on using the changeset viewer.