changed the list manupluation style in managing process switching
This commit is contained in:
@ -28,7 +28,7 @@
|
||||
|
||||
#class(#pointer) Process(Object)
|
||||
{
|
||||
#dcl initial_context runnable_context state prev next sp sem_next.
|
||||
#dcl initial_context current_context state prev next sp sem_next.
|
||||
|
||||
#method new
|
||||
{
|
||||
@ -58,7 +58,10 @@
|
||||
|
||||
#method resume
|
||||
{
|
||||
^Processor resume: self.
|
||||
<primitive: #_process_resume>
|
||||
self primitiveFailed
|
||||
|
||||
##^Processor resume: self.
|
||||
}
|
||||
|
||||
#method terminate
|
||||
@ -67,6 +70,12 @@
|
||||
self primitiveFailed
|
||||
}
|
||||
|
||||
#method yield
|
||||
{
|
||||
<primitive: #_process_yield>
|
||||
self primitiveFailed
|
||||
}
|
||||
|
||||
#method sp
|
||||
{
|
||||
^sp.
|
||||
@ -96,7 +105,7 @@
|
||||
|
||||
#class ProcessScheduler(Object)
|
||||
{
|
||||
#dcl tally head tail active.
|
||||
#dcl tally active runnable.
|
||||
|
||||
#method new
|
||||
{
|
||||
|
Reference in New Issue
Block a user