source: benchmark/ctxswitch/cfa_cor.cfa @ b4107c8

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

#include "bench.h"

coroutine GreatSuspender {};
void main( __attribute__((unused)) GreatSuspender & this ) {
        while ( true ) {
                suspend();
        }
}
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: //