Copyright (C) 1994, Digital Equipment Corp.
INTERFACE Csetjmp; (* for SOLsun *)
FROM Ctypes IMPORT int;
TYPE jmp_buf = ARRAY [0..18] OF int;
large enough for a sigjmp_buf. Apparently the BSD
compatibility library implements setjmp with sigsetjmp...
<*EXTERNAL*> PROCEDURE setjmp (VAR env: jmp_buf): int;
<*EXTERNAL*> PROCEDURE longjmp (VAR env: jmp_buf; val: int);
<*EXTERNAL "setjmp" *> PROCEDURE usetjmp (VAR env: jmp_buf): int;
<*EXTERNAL "longjmp" *> PROCEDURE ulongjmp (VAR env: jmp_buf; val: int);
END Csetjmp.