commented out debug messages from System.moo
This commit is contained in:
parent
8e507223c0
commit
7ec3d19818
@ -168,33 +168,33 @@ class System(Apex)
|
|||||||
|
|
||||||
System logNl: "Interrupt detected - signal no - " & signo asString.
|
System logNl: "Interrupt detected - signal no - " & signo asString.
|
||||||
|
|
||||||
System logNl: "WWWWWWWWWWWWWWWWWWWWWWWWW ".
|
//System logNl: "WWWWWWWWWWWWWWWWWWWWWWWWW ".
|
||||||
// user-defined signal handler is not allowed for 16rFF
|
// user-defined signal handler is not allowed for 16rFF
|
||||||
if (signo == 16rFF) { goto done }.
|
if (signo == 16rFF) { goto done }.
|
||||||
System logNl: "OHHHHHHHHHHHHHH ".
|
//System logNl: "OHHHHHHHHHHHHHH ".
|
||||||
|
|
||||||
ifnot (self.shr isEmpty)
|
ifnot (self.shr isEmpty)
|
||||||
{
|
{
|
||||||
System logNl: "About to execute handler for the signal detected - " & signo asString.
|
//System logNl: "About to execute handler for the signal detected - " & signo asString.
|
||||||
self.shr do: [ :handler | handler value: signo ].
|
self.shr do: [ :handler | handler value: signo ].
|
||||||
}
|
}
|
||||||
else
|
else
|
||||||
{
|
{
|
||||||
System logNl: "Jumping to done detected - signal no - " & signo asString.
|
//System logNl: "Jumping to done detected - signal no - " & signo asString.
|
||||||
if (signo == 2) { goto done }.
|
if (signo == 2) { goto done }.
|
||||||
}.
|
}.
|
||||||
}.
|
}.
|
||||||
System logNl: "Waiting for signal on os_intr_sem...".
|
//System logNl: "Waiting for signal on os_intr_sem...".
|
||||||
os_intr_sem wait.
|
os_intr_sem wait.
|
||||||
}.
|
}.
|
||||||
done:
|
done:
|
||||||
System logNl: "Jumped to done detected - signal no - " & signo asString.
|
//System logNl: "Jumped to done detected - signal no - " & signo asString.
|
||||||
nil.
|
nil.
|
||||||
]
|
]
|
||||||
ensure: [
|
ensure: [
|
||||||
| pid proc oldps |
|
| pid proc oldps |
|
||||||
|
|
||||||
System logNl: "Aborting signal handler......".
|
//System logNl: "Aborting signal handler......".
|
||||||
// stop subscribing to signals.
|
// stop subscribing to signals.
|
||||||
os_intr_sem signal.
|
os_intr_sem signal.
|
||||||
os_intr_sem unsignal.
|
os_intr_sem unsignal.
|
||||||
|
Loading…
Reference in New Issue
Block a user