Topspeed_JPI/TS-V3/INCLUDE/ALLOC.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  ALLOC.DEF - Modula-2 interface to ALLOC.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 alloc;
   18  
   19  CONST
   20      _HEAPOK       =  0;
   21      _HEAPEMPTY    = -1;
   22      _HEAPBADBEGIN = -2;
   23      _HEAPBADNODE  = -3;
   24      _HEAPOVERFLOW = -4;
   25      _HEAPEND      = -5;
   26      _HEAPBADPTR   = -6;
   27  
   28  TYPE
   29      _heapinfoptr = POINTER TO _heapinfo;
*****                                ^ undeclared identifier
   30      _heapinfo = RECORD
   31                      _pentry : _heapinfoptr;
   32                      _size : CARDINAL;
   33                      _useflag : CARDINAL;
   34                  END;
*****                  ^ not supported yet
   35  
   36  PROCEDURE calloc(_num,_size: CARDINAL): ADDRESS;
*****                                          ^ undeclared identifier
   37  PROCEDURE free(_block: ADDRESS);
*****                         ^ undeclared identifier
   38  PROCEDURE malloc(_size: CARDINAL): ADDRESS;
*****                                     ^ undeclared identifier
   39  PROCEDURE realloc(_block: ADDRESS; _size: CARDINAL): ADDRESS;
*****                            ^ undeclared identifier
*****                                                       ^ undeclared identifier
   40  
   41  PROCEDURE _msize(_buffer: ADDRESS): CARDINAL;
*****                            ^ undeclared identifier
   42  PROCEDURE _memmax(): CARDINAL;
   43  PROCEDURE _memavl(): CARDINAL;
   44  PROCEDURE _heapchk(): INTEGER;
   45  PROCEDURE _heapset(_fill: CARDINAL): INTEGER;
   46  PROCEDURE _heapwalk(VAR _entry : _heapinfo): INTEGER;
   47  PROCEDURE _expand(buffer: ADDRESS; _size: CARDINAL): ADDRESS;
*****                            ^ undeclared identifier
*****                                                       ^ undeclared identifier
   48  PROCEDURE coreleft(): CARDINAL;
   49  PROCEDURE _freect(_size: CARDINAL): CARDINAL;
   50  
   51  (*# data(near_ptr=>on) *)
   52    TYPE
   53      _nheapinfoptr = POINTER TO _nheapinfo;
*****                                 ^ undeclared identifier
   54      _nheapinfo = RECORD
   55                       _pentry : _nheapinfoptr;
   56                       _size : CARDINAL;
   57                       _useflag : CARDINAL;
   58                   END;
*****                   ^ not supported yet
   59  
   60  PROCEDURE _ncalloc(num,_size: CARDINAL): NearADDRESS;
*****                                           ^ undeclared identifier
   61  PROCEDURE _nfree(_block: NearADDRESS);
*****                           ^ undeclared identifier
   62  PROCEDURE _nmalloc(_size: CARDINAL): NearADDRESS;
*****                                       ^ undeclared identifier
   63  PROCEDURE _nrealloc(_block: NearADDRESS; _size: CARDINAL): NearADDRESS;
*****                              ^ undeclared identifier
*****                                                             ^ undeclared identifier
   64  
   65  PROCEDURE _nmsize(_buffer: NearADDRESS): CARDINAL;
*****                             ^ undeclared identifier
   66  PROCEDURE _nheapchk(): INTEGER;
   67  PROCEDURE _nheapset(_fill: CARDINAL): INTEGER;
   68  PROCEDURE _nheapwalk(VAR _entry : _nheapinfo): INTEGER;
   69  PROCEDURE _nexpand(buffer: NearADDRESS; _size: CARDINAL): NearADDRESS;
*****                             ^ undeclared identifier
*****                                                            ^ undeclared identifier
   70  
   71  (*# data(near_ptr=>off) *)
   72  TYPE
   73      _fheapinfoptr = POINTER TO _fheapinfo;
*****                                 ^ undeclared identifier
   74      _fheapinfo = RECORD
   75                       _pentry : _fheapinfoptr;
   76                       _size : CARDINAL;
   77                       _useflag : CARDINAL;
   78                   END;
*****                   ^ not supported yet
   79  
   80  PROCEDURE _fcalloc(num,_size: CARDINAL): FarADDRESS;
*****                                           ^ undeclared identifier
   81  PROCEDURE _ffree(_block: FarADDRESS);
*****                           ^ undeclared identifier
   82  PROCEDURE _fmalloc(_size: CARDINAL): FarADDRESS;
*****                                       ^ undeclared identifier
   83  PROCEDURE _frealloc(_block: FarADDRESS; _size: CARDINAL): FarADDRESS;
*****                              ^ undeclared identifier
*****                                                            ^ undeclared identifier
   84  
   85  PROCEDURE _fmsize(_buffer: FarADDRESS): CARDINAL;
*****                             ^ undeclared identifier
   86  PROCEDURE _fheapchk(): INTEGER;
   87  PROCEDURE _fheapset(_fill: CARDINAL): INTEGER;
   88  PROCEDURE _fheapwalk(VAR _entry : _fheapinfo): INTEGER;
   89  PROCEDURE _fexpand(buffer: FarADDRESS; _size: CARDINAL): FarADDRESS;
*****                             ^ undeclared identifier
*****                                                           ^ undeclared identifier
   90  
   91  (* **** Huge objects still need to be handled. *)
   92  PROCEDURE hfree(_block: FarADDRESS);
*****                          ^ undeclared identifier
   93  PROCEDURE halloc(_size: LONGCARD): FarADDRESS;
*****                          ^ undeclared identifier
*****                                     ^ undeclared identifier
   94  PROCEDURE hrealloc(_block: FarADDRESS; _size: LONGCARD): FarADDRESS;
*****                             ^ undeclared identifier
*****                                                ^ undeclared identifier
*****                                                           ^ undeclared identifier
   95  VAR
   96    _MaxReallocHugeSegments: CARDINAL;
   97  
   98  PROCEDURE nearcoreleft(): CARDINAL;
   99  PROCEDURE farcoreleft(): LONGCARD;
*****                           ^ undeclared identifier
  100  
  101  CONST
  102      farmalloc  ::= _fmalloc;
*****                 ^ not supported yet
  103      farcalloc  ::= _fcalloc;
*****                 ^ not supported yet
  104      farfree    ::= _ffree;
*****                 ^ not supported yet
  105      farrealloc ::= _frealloc;
*****                 ^ not supported yet
  106  
  107  END alloc.
*****      ^ not supported yet

   42 errors