(* Copyright (c) xTech 1993,95.  All Rights Reserved *)
<*# IF __GEN_X86__ THEN *>
DEFINITION MODULE [2] setjmp;

IMPORT  SYSTEM;

TYPE
  jmp_buf = RECORD
    ebx,ecx,edx,esi,edi,ebp,eip,esp: CARDINAL;
    es,ds,cs,fs,gs,ss: SYSTEM.CARD16;
  END;

PROCEDURE setjmp(VAR point: jmp_buf): INTEGER;
PROCEDURE longjmp(VAR point: jmp_buf; n: INTEGER);

<*# ELSIF __GEN_C__ THEN *>
<*+ CSTDLIB  *>
<*+ NOHEADER *>
<*+ M2EXTENSIONS *>
DEFINITION MODULE [2] setjmp;

IMPORT SYSTEM;

TYPE jmp_buf;

PROCEDURE setjmp  (point: jmp_buf): SYSTEM.int;
PROCEDURE longjmp (point: jmp_buf; n: SYSTEM.int);
<*# ELSE *>
	*** not implemented ***
<*# END *>
END setjmp.
