C/src/LINUXELF/Csetjmp.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE Csetjmp;		(* for LINUX *)

FROM Ctypes IMPORT long, int, void_star;

TYPE
  ptr_t = void_star;

  jmp_buf = RECORD
        bx, si, di: long;
        bp, sp, pc: ptr_t; END;

<*EXTERNAL "__setjmp" *> 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.