C/src/ALPHA_OSF/Csetjmp.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE Csetjmp;		(* for ALPHA_OSF *)

FROM Ctypes IMPORT int, long;

TYPE jmp_buf = ARRAY [0..83] OF long;

<*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.