|
@@ -23,14 +23,12 @@ PROCEDURE GetCurrentIndex- EXTERN "Activities.GetCurrentProcessorIndex" (): SIZE
|
|
(** A suspended processor must be resumed by a call to the ResumeAnyProcessor procedure. *)
|
|
(** A suspended processor must be resumed by a call to the ResumeAnyProcessor procedure. *)
|
|
PROCEDURE SuspendCurrentProcessor-;
|
|
PROCEDURE SuspendCurrentProcessor-;
|
|
BEGIN {UNCOOPERATIVE, UNCHECKED}
|
|
BEGIN {UNCOOPERATIVE, UNCHECKED}
|
|
- ASSERT (count > 1);
|
|
|
|
ASSERT (Unix.sem_wait (ADDRESS OF semaphore) = 0);
|
|
ASSERT (Unix.sem_wait (ADDRESS OF semaphore) = 0);
|
|
END SuspendCurrentProcessor;
|
|
END SuspendCurrentProcessor;
|
|
|
|
|
|
(** Resumes the execution of all suspended processors. *)
|
|
(** Resumes the execution of all suspended processors. *)
|
|
PROCEDURE ResumeAllProcessors-;
|
|
PROCEDURE ResumeAllProcessors-;
|
|
BEGIN {UNCOOPERATIVE, UNCHECKED}
|
|
BEGIN {UNCOOPERATIVE, UNCHECKED}
|
|
- ASSERT (count > 1);
|
|
|
|
ASSERT (Unix.sem_post (ADDRESS OF semaphore) = 0);
|
|
ASSERT (Unix.sem_post (ADDRESS OF semaphore) = 0);
|
|
END ResumeAllProcessors;
|
|
END ResumeAllProcessors;
|
|
|
|
|