source: benchmark/ctxswitch/cfa_cor_then.cfa@ b4107c8

#include <kernel.hfa>
#include <thread.hfa>

#include "bench.h"

void noOp(void) {}

coroutine GreatSuspender {};

void ?{}( GreatSuspender & this ) {
        prime(this);
}

void main( __attribute__((unused)) GreatSuspender & this ) {
        while( true ) {
                suspend_then(noOp);
        }
}

int main( int argc, char * argv[] ) {
        BENCH_START()
        GreatSuspender s;
        BENCH(
                for ( i; times ) {
                        resume( s );
                },
                result
        )
        printf( "%g\n", result );
}

// Local Variables: //
// tab-width: 4 //
// End: //