Topspeed_JPI/TS-V3/INCLUDE/SETJMP.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  SETJMP.DEF - Modula-2 interface to SETJMP.H                             *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1989..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  
   11  (*# project("#set tsc='on'") *)
   12  (*# call(o_a_size=>off, o_a_copy=>off, c_conv=>on, result_optional=>on) *)
   13  (*# module(implementation=>off, init_code=>off) *)
   14  (*# name(prefix=>c) *)
   15  
   16  
   17  DEFINITION MODULE setjmp;
   18  
   19  TYPE
   20      jmp_buf = RECORD
   21                    j_sp,
   22                    j_ss,
   23                    j_flag,
   24                    j_cs,
   25                    j_ip,
   26                    j_bp,
   27                    j_di,
   28                    j_es,
   29                    j_si,
   30                    j_ds: CARDINAL;
   31                END;
*****                ^ not supported yet
   32  
   33  PROCEDURE longjmp(VAR _env: jmp_buf; _val: CARDINAL);
   34  PROCEDURE setjmp(VAR _end: jmp_buf): CARDINAL;
*****            ^ duplicate identifier
   35  
   36  END setjmp.
*****      ^ not supported yet

    3 errors