Changes in libcfa/src/concurrency/coroutine.hfa [427854b:ac2b598]

File:

• libcfa/src/concurrency/coroutine.hfa (modified) (2 diffs)

libcfa/src/concurrency/coroutine.hfa

@@ -46 +46 @@
 //-----------------------------------------------------------------------------
 // Public coroutine API
+static inline void suspend(void);
+
+forall(dtype T | is_coroutine(T))
+static inline T & resume(T & cor);
+
 forall(dtype T | is_coroutine(T))
 void prime(T & cor);
@@ -91 +96 @@
 
 // Suspend implementation inlined for performance
-extern "C" {
-        static inline void __cfactx_suspend(void) {
-                // optimization : read TLS once and reuse it
-                // Safety note: this is preemption safe since if
-                // preemption occurs after this line, the pointer
-                // will also migrate which means this value will
-                // stay in syn with the TLS
-                $coroutine * src = TL_GET( this_thread )->curr_cor;
+static inline void suspend(void) {
+        // optimization : read TLS once and reuse it
+        // Safety note: this is preemption safe since if
+        // preemption occurs after this line, the pointer
+        // will also migrate which means this value will
+        // stay in syn with the TLS
+        $coroutine * src = TL_GET( this_thread )->curr_cor;
 
-                assertf( src->last != 0,
-                        "Attempt to suspend coroutine \"%.256s\" (%p) that has never been resumed.\n"
-                        "Possible cause is a suspend executed in a member called by a coroutine user rather than by the coroutine main.",
-                        src->name, src );
-                assertf( src->last->state != Halted,
-                        "Attempt by coroutine \"%.256s\" (%p) to suspend back to terminated coroutine \"%.256s\" (%p).\n"
-                        "Possible cause is terminated coroutine's main routine has already returned.",
-                        src->name, src, src->last->name, src->last );
+        assertf( src->last != 0,
+                "Attempt to suspend coroutine \"%.256s\" (%p) that has never been resumed.\n"
+                "Possible cause is a suspend executed in a member called by a coroutine user rather than by the coroutine main.",
+                src->name, src );
+        assertf( src->last->state != Halted,
+                "Attempt by coroutine \"%.256s\" (%p) to suspend back to terminated coroutine \"%.256s\" (%p).\n"
+                "Possible cause is terminated coroutine's main routine has already returned.",
+                src->name, src, src->last->name, src->last );
 
-                $ctx_switch( src, src->last );
-        }
+        $ctx_switch( src, src->last );
 }