equal
deleted
inserted
replaced
259 ]. |
259 ]. |
260 "calculate the end-time" |
260 "calculate the end-time" |
261 now := OperatingSystem getMillisecondTime. |
261 now := OperatingSystem getMillisecondTime. |
262 endTime := OperatingSystem millisecondTimeAdd:now and:milliSeconds. |
262 endTime := OperatingSystem millisecondTimeAdd:now and:milliSeconds. |
263 |
263 |
264 timeoutBlock := [timeoutOccured := true. timeoutBlock := nil. Processor resume:currentProcess]. |
264 timeoutBlock := [ |
|
265 timeoutOccured := true. |
|
266 timeoutBlock := nil. |
|
267 Processor resume:currentProcess. |
|
268 ]. |
265 Processor addTimedBlock:timeoutBlock for:currentProcess atMilliseconds:endTime. |
269 Processor addTimedBlock:timeoutBlock for:currentProcess atMilliseconds:endTime. |
266 ]. |
270 ]. |
267 [ |
271 [ |
268 currentProcess suspendWithState:#wait. |
272 currentProcess suspendWithState:#wait. |
269 ] ifCurtailed:[ |
273 ] ifCurtailed:[ |
304 ! ! |
308 ! ! |
305 |
309 |
306 !SemaphoreSet class methodsFor:'documentation'! |
310 !SemaphoreSet class methodsFor:'documentation'! |
307 |
311 |
308 version |
312 version |
309 ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010-02-05 12:58:13 cg Exp $' |
313 ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.20 2013-02-08 16:08:28 stefan Exp $' |
310 ! |
314 ! |
311 |
315 |
312 version_CVS |
316 version_CVS |
313 ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.19 2010-02-05 12:58:13 cg Exp $' |
317 ^ '$Header: /cvs/stx/stx/libbasic/SemaphoreSet.st,v 1.20 2013-02-08 16:08:28 stefan Exp $' |
314 ! ! |
318 ! ! |
|
319 |