initializeChildWatcher

"This is a process which waits for the death of a child processes. Use SIGCHLD events rather than a Delay to poll."

| processSynchronizationDelay |

childWatcher ifNil: [

childWatcher := [[

"OSProcess authors suspected that there were various ways in which OS signals

could be missed under conditions of heavy load. For that reason, we use

#waitTimeoutMSecs: with the semaphore, so that if a signal is missed,

we time out and rescan occasionally anyway (#updateActiveChildrenAndNotifyDead

sends queryExitStatus which sends waitpid() )

"

self sigChldSemaphore waitTimeoutMSecs: 1000.

self updateActiveChildrenAndNotifyDead.

] repeat] newProcess.

childWatcher resume.

"name selected to look reasonable in the process browser"

childWatcher name: ((ReadStream on: childWatcher hash asString) next: 5)

, ': the OSSubprocess child watcher'

]

The problem is that now above process is hung on the "processSynchronizationDelay wait.". At least that's what I can see from the process browser.����That should not hung, of course, and should stop waiting after 20 ms.��

If I inspect the Delay instance in question (doing the wait) I see that the print string is bad....��"a Delay(20 msecs; 3641032396485 msecs remaining)". WTF? 20ms ��and you remain 3641032396485 to wait??? I attach an screenshot of the Delay instance in case there could be something wrong.

Maybe it is wrong to keep and re-use same instance of Delay? (note it is outside the closure) (this was not a problem in the past).��

Thanks in advance for any clue.