Topspeed_JPI/TS-V3/INCLUDE/PACK.LST

Listing:

    1  (*%F _fptr *)
    2    ERROR - Packing is only available with far data pointers
    3  (*%E *)
    4  
    5  (*%T _fcall *) (*# call(near_call=>on,seg_name=>Btree) *) (*%E *)
    6  DEFINITION MODULE Pack;
    7  (*
    8          Copyright (C) 1990 Jensen & Partners International
    9  *)
   10  
   11    PROCEDURE Packer(n: CARDINAL; in: ADDRESS; out: ADDRESS): CARDINAL;
*****                                      ^ undeclared identifier
*****                                                    ^ undeclared identifier
   12    PROCEDURE Unpacker(n: CARDINAL; in: ADDRESS; out: ADDRESS);
*****                                        ^ undeclared identifier
*****                                                      ^ undeclared identifier
   13    PROCEDURE UnpackedSize(n: CARDINAL; in: ADDRESS): CARDINAL;
*****                                            ^ undeclared identifier
   14    PROCEDURE Packing(): BOOLEAN;
   15    PROCEDURE AdjustBlock(rs: CARDINAL): CARDINAL;
   16  
   17    END Pack.
*****        ^ not supported yet

    6 errors