hyung-hwan/moo
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

added Semaphore>>forMutualExclusion

Browse Source
This commit is contained in:
hyunghwan.chung 2016-05-18 15:10:00 +00:00
parent 04ccebe9b4
commit 50776d945f
2 changed files with 18 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
stix/kernel/Process.st
View File

@ -68,6 +68,14 @@
{ {
#dcl count waiting_head waiting_tail heapIndex fireTimeSec fireTimeNsec. #dcl count waiting_head waiting_tail heapIndex fireTimeSec fireTimeNsec.
#method(#class) forMutualExclusion
{
| sem |
sem := self new.
sem signal.
^sem
}
#method initialize #method initialize
{ {
self.count := 0. self.count := 0.
@ -104,11 +112,8 @@
#method critical: aBlock #method critical: aBlock
{ {
## TODO: implement this
"
self wait. self wait.
^aBlock ensure: [ self signal ] ^aBlock ensure: [ self signal ]
"
} }
## ================================================================== ## ==================================================================

21
stix/kernel/test-010.st
View File

@ -48,26 +48,25 @@
#method(#class) main #method(#class) main
{ {
## THIS CRASHES VM. PLEASE CHECK. CRASHES WHEN REPETITION IS 1000
|t1 t2 s1 s2 s3| |t1 t2 s1 s2 s3|
'START OF MAIN' dump. 'START OF MAIN' dump.
s1 := Semaphore new. s1 := Semaphore new.
s2 := Semaphore new. s2 := Semaphore forMutualExclusion.
t1 := [ t1 := [
100 timesRepeat: ['BLOCK #1' dump]. ##1000 timesRepeat: ['BLOCK #1' dump].
##s2 critical: [ s2 critical: [
## 10 timesRepeat: ['BLOCK #1' dump ] 10000 timesRepeat: ['BLOCK #1' dump ].
##] Exception signal: 'Raised Exception at process t1'.
]
] newProcess. ] newProcess.
t2 := [ t2 := [
100 timesRepeat: ['BLOCK #2' dump]. ##1000 timesRepeat: ['BLOCK #2' dump].
##s2 critical: [ s2 critical: [
## 10 timesRepeat: ['BLOCK #2' dump. ] 10000 timesRepeat: ['BLOCK #2' dump. ]
##]. ].
s1 signal. s1 signal.
] newProcess. ] newProcess.