Continuation.st
changeset 8559 aca77c69cd91
parent 8558 09e2910c1e4f
child 8582 115869898a97
equal deleted inserted replaced
8558:09e2910c1e4f 8559:aca77c69cd91
    63     |cont id|
    63     |cont id|
    64 
    64 
    65     cont := super new.
    65     cont := super new.
    66 %{
    66 %{
    67     int __cId;
    67     int __cId;
       
    68     extern int __continuationCreate();
    68 
    69 
    69     __cId = __threadContinuation(cont);
    70     __cId = __continuationCreate(cont);
    70     if (__cId) {
    71     if (__cId) {
    71         id = __MKSMALLINT(__cId);
    72         id = __MKSMALLINT(__cId);
    72     }
    73     }
    73 %}.
    74 %}.
    74     id isNil ifTrue:[
    75     id isNil ifTrue:[
    87 ! !
    88 ! !
    88 
    89 
    89 !Continuation class methodsFor:'documentation'!
    90 !Continuation class methodsFor:'documentation'!
    90 
    91 
    91 version
    92 version
    92     ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.4 2004-09-20 10:54:54 cg Exp $'
    93     ^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.5 2004-09-20 14:27:04 cg Exp $'
    93 ! !
    94 ! !