Copyright (C) 1994, Digital Equipment Corp.
INTERFACE Csetjmp; (* for HP-PA *)
FROM Ctypes IMPORT int, double;
TYPE jmp_buf = RECORD
RP : int;
SP : int;
RET0 : int;
GR0 : int;
GR3 : int;
GR4 : int;
GR5 : int;
GR6 : int;
GR7 : int;
GR8 : int;
GR9 : int;
GR10 : int;
GR11 : int;
GR12 : int;
GR13 : int;
GR14 : int;
GR15 : int;
GR16 : int;
GR17 : int;
GR18 : int;
JUNK1 : int;
SR3 : int;
FR12 : double;
FR13 : double;
FR14 : double;
FR15 : double;
ARG1 : int;
JUNK2 : int;
FR16 : double;
FR17 : double;
FR18 : double;
FR19 : double;
FR20 : double;
FR21 : double;
RPP : int;
LTP : int;
JUNK3 : int;
JUNK4 : int;
JUNK5 : int;
JUNK6 : int;
END;
<*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.