Copyright (C) 1994, Digital Equipment Corp. INTERFACECsetjmp ; (* for UMAX *) FROM Ctypes IMPORT int; TYPE jmp_buf = ARRAY [0..9] OF int; <*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.