Function SetJmp (Var Env : Jmp_Buf) : longint;
SetJmp fills env with the necessary data for a jump back to the point where it was called. It returns zero if called in this way.
If the function returns nonzero, then it means that a call to LongJmp with env as an argument was made somewhere in the program.
None.
program example79;
{ Program to demonstrate the setjmp, longjmp functions }
procedure dojmp(var env : jmp_buf; value : longint);
begin
value:=2;
Writeln ('Going to jump !');
{ This will return to the setjmp call,
and return value instead of 0 }
longjmp(env,value);
end;
var env : jmp_buf;
begin
if setjmp(env)=0 then
begin
writeln ('Passed first time.');
dojmp(env,2);
end
else
writeln ('Passed second time.');
end.