/* Tests setjmp/longjmp */

proc dojmp( jb )
{
    oadl::longjmp( jb, 1 );
}

proc main()
{
    var jb = new JmpBuf();
    if( oadl::setjmp( jb ) ) {
        "Got here!\n";
        oadl::halt();
    }
    "See if we get there...\n";
    dojmp( jb );
}