C/src/NT386/Csetjmp.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE Csetjmp;		(* for NT386/WIN32 *)

FROM Ctypes IMPORT int;

TYPE jmp_buf = ARRAY [0..7] OF int;

<*EXTERNAL "setjmp" *> PROCEDURE usetjmp (VAR env: jmp_buf): int;
<*EXTERNAL "longjmp" *> PROCEDURE ulongjmp (VAR env: jmp_buf; val: int);

END Csetjmp.