/* 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 ); }