changed the list manupluation style in managing process switching

This commit is contained in:
hyunghwan.chung
2016-02-19 15:52:56 +00:00
parent 734082db91
commit 351239bdf4
5 changed files with 258 additions and 172 deletions

View File

@ -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
{