Copyright (C) 1994, Digital Equipment Corp. INTERFACECsetjmp ; (* 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.