/* Tests setjmp/longjmp */

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

proc main()
{
    var
        arr;

    arr = new Array(oadl::JMP_SIZE);
    if( oadl::setjmp( arr ) ) {
        "Got here!\n";
        oadl::halt();
    }
    "See if we get there...\n";
    dojmp( arr );
}