Mercurial > repos > rhope
comparison kernel.rhope @ 141:f2cb85c53ced
Fix Pause/Resume and rewrite Call Async in Rhope rather than C
author | Mike Pavone <pavone@retrodev.com> |
---|---|
date | Sat, 20 Nov 2010 17:48:22 -0500 |
parents | fc3815b7462f |
children | 7bbdc034e347 |
comparison
equal
deleted
inserted
replaced
140:c14698c512f1 | 141:f2cb85c53ced |
---|---|
285 ]|[[Int32[Trunc UInt16[[data]Index[1]]]]LShift[16]] | 285 ]|[[Int32[Trunc UInt16[[data]Index[1]]]]LShift[16]] |
286 ]|[[Int32[Trunc UInt16[[data]Index[2]]]]LShift[8]] | 286 ]|[[Int32[Trunc UInt16[[data]Index[2]]]]LShift[8]] |
287 ]|[Int32[Trunc UInt16[[data]Index[3]]]] | 287 ]|[Int32[Trunc UInt16[[data]Index[3]]]] |
288 } | 288 } |
289 | 289 |
290 _Call Async[func,cont:out] | |
291 { | |
292 Resume[cont,0] | |
293 { out <- Call[func] } | |
294 } | |
295 Call Async[func:out] | |
296 { | |
297 out <- Pause[_Call Async[func,?]] | |
298 } | |
299 | |
300 Yield[:out] | |
301 { | |
302 out <- Pause[Resume[?,Yes]] | |
303 } | |
304 |