Topspeed_JPI/TS/INCLUDE/SETJMP.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  SETJMP.DEF - Modula-2 interface to SETJMP.H                             *
*                                                                          *
*  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)

(*# project("#set tsc='on'") *)
(*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
(*# module(implementation=>off, init_code=>off) *)
(*# name(prefix=>c) *)


DEFINITION MODULE setjmp;

TYPE
    jmp_buf = RECORD
                  j_sp,
                  j_ss,
                  j_flag,
                  j_cs,
                  j_ip,
                  j_bp,
                  j_di,
                  j_es,
                  j_si,
                  j_ds: CARDINAL;
              END;

PROCEDURE longjmp(VAR _env: jmp_buf; _val: CARDINAL);
PROCEDURE setjmp(VAR _end: jmp_buf): CARDINAL;

END setjmp.