💾 Archived View for spam.works › mirrors › textfiles › programming › tpudoc1.txt captured on 2023-11-14 at 11:52:20.
⬅️ Previous capture (2023-06-16)
-=-=-=-=-=-=-
----------------------------- INSIDE TURBO PASCAL 5.5 UNITS ----------------------------- by William L. Peavy ----------------- Revised: August 11, 1990 ABSTRACT This document provides a revised report on researches into the structure and content of Unit (.TPU) files produced by Turbo Pascal (version 5.5) from Borland International. No assurances are possible regarding when (if ever) further updates will be available so the material is released to the Turbo Pascal user community in its admittedly imcomplete state since very little of consequence really remains to be done. COMMENTS Comments and feed-back are welcome -- especially new contributions. I can be reached via the following services: CompuServ (70042,2310) HalPC Telecom-1 (William;Peavy) HalPC Telecom-2 (Wm;Peavy) Table Of Contents Introduction ................................................ 3 1. Gross File Structure ..................................... 3 1.1 User Units .......................................... 4 2. Locators ................................................. 5 2.1 Local Links ......................................... 5 2.2 Global Links ........................................ 5 2.3 Table Offsets ....................................... 5 3. Unit Header .............................................. 6 3.1 Description ......................................... 6 3.2 File Size ........................................... 9 4. Symbol Dictionaries ...................................... 9 4.1 Organization ........................................ 9 4.2 Interface Dictionary ............................... 10 4.3 DEBUG Dictionary ................................... 10 4.4 Dictionary Elements ................................ 10 4.4.1 Hash Tables .................................. 10 4.4.1.1 Size ................................... 11 4.4.1.2 Scope .................................. 12 4.4.1.3 Special Cases .......................... 12 4.4.2 Dictionary Headers ........................... 13 4.4.3 Dictionary Stubs ............................. 13 4.4.3.1 Label Declaratives ("O") ............... 13 4.4.3.2 Un-Typed Constants ("P") ............... 14 4.4.3.3 Named Types ("Q") ...................... 14 4.4.3.4 Variables, Fields, Typed Cons ("R") .... 15 4.4.3.5 Subprograms & Methods ("S") ............ 16 4.4.3.6 Turbo Std Procedures ("T") ............. 17 4.4.3.7 Turbo Std Functions ("U") .............. 17 4.4.3.8 Turbo Std "NEW" Routine ("V") .......... 17 4.4.3.9 Turbo Std Port Arrays ("W") ............ 17 4.4.3.10 Turbo Std External Variables ("X") .... 17 4.4.3.11 Units ("Y") ........................... 18 4.4.4 Type Descriptors ............................. 19 4.4.4.1 Scope .................................. 19 4.4.4.2 Prefix Part ............................ 20 4.4.4.3 Suffix Parts ........................... 21 4.4.4.3.1 Un-Typed ......................... 21 4.4.4.3.2 Structured Types ................. 22 4.4.4.3.2.1 ARRAY Types ................ 22 4.4.4.3.2.2 RECORD Types ............... 22 4.4.4.3.2.3 OBJECT Types ............... 23 4.4.4.3.2.4 FILE (non-TEXT) Types ...... 23 4.4.4.3.2.5 TEXT File Types ............ 23 4.4.4.3.2.6 SET Types .................. 24 - i - Table Of Contents 4.4.4.3.2.7 POINTER Types .............. 24 4.4.4.3.2.8 STRING Types ............... 24 4.4.4.3.3 Floating-Point Types ............. 24 4.4.4.3.4 Ordinal Types .................... 24 4.4.4.3.4.1 "Integers" ................. 25 4.4.4.3.4.2 BOOLEANs ................... 25 4.4.4.3.4.3 CHARs ...................... 25 4.4.4.3.4.4 ENUMERATions ............... 26 4.4.4.3.5 SUBPROGRAM Types ................. 26 5. Maps and Lists .......................................... 27 5.1 PROC Map ........................................... 27 5.2 CSeg Map ........................................... 28 5.3 Typed CONST DSeg Map ............................... 28 5.4 Global VAR DSeg Map ................................ 29 5.5 Donor Unit List .................................... 29 5.6 Source File List ................................... 30 5.7 DEBUG Trace Table .................................. 31 6. Code, Data, Relocation Info ............................. 32 6.1 Object CSegs ....................................... 32 6.2 CONST DSegs ........................................ 32 6.3 Relocation Data Table .............................. 33 7. Supplied Program ........................................ 34 7.1 TPUNEW ............................................. 35 | 7.2 TPURPT1 ............................................ 35 7.3 TPUAMS1 ............................................ 35 7.4 TPUUNA1 ............................................ 35 7.5 Modifications ...................................... 36 7.6 Notes on Program Logic ............................. 36 | 7.6.1 Formatting the Dictionary .................... 37 | 7.6.2 The Disassembler ............................. 38 | 8. Unit Libraries .......................................... 41 8.1 Library Structure .................................. 41 8.2 The TPUMOVER Utility ............................... 41 9. Application Notes ....................................... 41 10. Acknowledgements ....................................... 42 11. References ............................................. 43 - ii - Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- INTRODUCTION This document is the outcome of an inquiry conducted into the structure and content of Borland Turbo Pascal (Version 5.5) Unit files. The original purpose of the inquiry was to provide a body of theory enabling Cross-Reference programs to resolve references to symbols defined in .TPU files where qualification was not explicitly provided. As is so often the case, one thing led to another and the scope of the inquiry was expanded dramatically. While this document should not be regarded as definitive, the author feels that the entire Turbo Pascal User community might gain from the information extracted from these files at the cost of so much time and effort. The material contained herein represents the findings and interpretations of the author. A great deal of guess-work was required and no assurances are given as to the accuracy of either the findings of fact or the inferences contained herein which are the sole work-product of the author. In particular, the author had access only to materials or information that any normal Borland customer has access to. Further, no Borland source-codes were available as the Library Routine source is not licensed to the author. In short, there was nothing irregular about how these findings were achieved. The material contained herein is placed in the public domain free of copyright for use of the general public at its own risk. The author assumes no liability for any damages arising from the use of this material by others. If you make use of this information and you get burned, TOUGH! The author accepts no obligation to correct any such errors as may exist in the supplied programs or in the findings of fact or opinion contained herein. On the other hand, this is not a "complete" work in that a great many questions remain open, especially as regards fine details. (The author is not a practitioner of Intel 80xxx Assembly Language and several open questions might best be addressed by persons competent in this area.) The author welcomes the input of interested readers who might be able to "flesh-out" some of these open questions with "hard" answers. 1. GROSS FILE STRUCTURE A Turbo Pascal Unit file (Version 5.5 only) consists of an array of bytes that is some exact multiple of sixteen (16). "Signature" information allows the compiler to verify that the .TPU file was compiled with the correct compiler version and to verify that the file is of the correct size. The fine structure of the file will be addressed in later sections at ever increasing levels of detail. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 3 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- Graphically, the file may be regarded as having the following general layout: +-------------------+ | Unit Header | Main Index to Unit File +-------------------+ | Dictionaries: | | a) Interface | | b) Debugger * | For Local Symbol Access +-------------------+ | PROC Map | +-------------------+ | CSeg Map * | May be Empty +-------------------+ | CONST DSeg Map * | May be Empty +-------------------+ | VAR DSeg Map * | May be Empty +-------------------+ | Donor Units * | May be Empty +-------------------+ | Source Files | +-------------------+ | Trace Table * | May be Empty +-------------------+ | CODE Segment(s) * | May be Empty +-------------------+ | DATA Segment(s) * | May be Empty +-------------------+ | RELO Data * | May be Empty +-------------------+ 1.1 USER UNITS Units prepared by the compiler available to ordinary users have a very straight-forward appearance and content. There may even be a little "wasted" space that might be removed if the compiler were just a little cleverer. The SYSTEM.TPU file is quite another thing however. The SYSTEM.TPU file (found in TURBO.TPL) is extraordinary in that great pains seem to have been taken to compact it. Further, it contains a great many types of entries that just don't seem to be achievable by ordinary users and I suspect that much (if not all) of it was "hand-coded" in Assembler Language. In the following sections, the details of these optimizations will be explained in the context of the structural element then under discussion. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 4 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 2. LOCATORS The data in these files has need of structure and organization to support efficient access by the various programs such as the compiler, the linker and the debugger. This organization is built on a solid foundation of locators employed in the unit's data structures. 2.1 LOCAL LINKS Local Links (LL's) are items of type WORD (2 bytes) which contain an offset which is relative to the origin of the unit file itself. This implies that a unit must be somewhat less than 64K bytes in size. If the .TPU file is loaded into the heap, then LL's can be used to locate any byte in the segment beginning with the load point of the file. 2.2 GLOBAL LINKS Global Links (LG's) are used to locate type descriptors which may reside in other Units (i.e., units external to the present unit). LG's are structured items consisting of two (2) words. The first of these is an LL that is relative to the origin of the (possibly) external unit. The second word is an LL which locates the stub of the unit entry in the current unit dictionary for the (possibly) external unit. This dictionary entry provides the name of the unit that contains the item the LG points to. This provides a handy mechanism for locating type descriptors which are defined in other separately compiled units. 2.3 TABLE OFFSETS Finally, various data-structures within a .TPU file are organized as arrays of fixed-length records or as lists of variable-length records. Efficient access to such records is achieved by means of offsets rather than subscripts (an addressing technique denied Pascal). These offsets are relative to the origin of the array or list being referenced rather than the origin of the unit. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 5 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 3. UNIT HEADER The Unit Header comprises the first 64 bytes of the .TPU file. It contains LL's that effectively locate all other sections of the .TPU file plus statistics that enable a little cross-checking to be performed. Some parts of the Unit Header appear to be reserved for future use since no unit examined by this author has ever contained non-zero data in these apparently reserved fields. 3.1 DESCRIPTION The Unit Header provides a high-level locator table whereby each major structure in the unit file can be addressed. The following provides a Pascal-like explanation of the layout of the header followed by further narrative discussion of the contents of the individual fields in the Unit Header. Type HdrAry = Array[0..3] of Char; LL = Word; UnitHeader = Record FilHd : HdrAry; { +00 : = 'TPU6' } Fillr : HdrAry; { +04 : = $00000000 } UDirE : LL; { +08 : to Dictionary Head-This Unit } UGHsh : LL; { +0A : to Interface Hash Header } UHPrc : LL; { +0C : to PROC Map } UHCsg : LL; { +0E : to CSeg Map } UHDsT : LL; { +10 : to DSeg Map-Typed CONST's } UHDsV : LL; { +12 : to DSeg Map-GLOBAL Variables } URULt : LL; { +14 : to Donor Unit List } USRCF : LL; { +16 : to Source file List } UDBTS : LL; { +18 : to Debug Trace Step Controls } UndNC : LL; { +1A : to end non-code part of Unit } ULCod : Word; { +1C : Size of Code } ULTCon: Word; { +1E : Size of Typed Constant Data } ULPtch: Word; { +20 : Size of Relo Patch List } Unknx : Word; { +22 : Number of Virtual Objects??? } ULVars: Word; { +24 : Size of GLOBAL VAR Data } UHash2: LL; { +26 : to Debug Hash Header } UOvrly: Word; { +28 : Number of Procs to Overlay?? } UVTPad: Array[0..10] of Word; { +2A : Reserved for Future Expansion? } End; { UnitHeader } FilHd contains the characters "TPU6" in that order. This is clear evidence that this unit was compiled by Turbo Pascal Version 5.5. Fillr is apparently reserved and contains binary zeros. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 6 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- UDirE contains an LL (WORD) which points to the Dictionary Header in which the name of this unit is found. UGHsh contains an LL (WORD) which points to a Hash table that is the root of the Interface Dictionary tree. UHPrc contains an LL (WORD) which points to the PROC Map for this unit. The PROC Map contains an entry for each Procedure or Function declared in the unit (except for INLINE types), plus an entry for the Unit Initialization section. The length of the PROC Map (in bytes) is determined by subtracting this LL (at 000C) from the LL at offset 000E. UHCsg contains an LL (WORD) which points to the CSeg (CODE Segment) Map for this unit. The CSeg Map contains an entry for each CODE Segment produced by the compiler plus an entry for each of the CODE Segments included via the {$L filename.OBJ} compiler directive. The length of this Map (in bytes) is obtained by subtracting this LL (at 000E) from the word at 0010. The result may be zero in which case the CSeg Map is empty. UHDsT contains an LL (WORD) which points to the DSeg (DATA Segment) Map that maps the initializing data for Typed CONST items plus templates for VMT's (Virtual Method Tables) that are associated with OBJECTS which employ Virtual Methods. The length of this Map (in bytes) is obtained by subtracting this LL (at 0010) from the word at 0012. The result may be zero in which case this DSeg Map is empty. UHDsV contains an LL (WORD) which points to the DSeg (DATA Segment) Map that contains the specifications for DSeg storage required by VARiables whose scope is GLOBAL. The length of this Map (in bytes) is obtained by subtracting this LL (at 0012) from the word at 0014. The result may be zero in which case this DSeg Map is empty. URULt contains an LL (WORD) which points to a table of units which contribute either CODE or DATA Segments to the .EXE file for a program using this Unit. This is called the "Donor Unit Table". The length of this table (in bytes) is obtained by subtracting this LL (at 0014) from the word at 0016. The result may be zero in which case this table is empty. USRCF contains an LL (WORD) which points to a list of "source" files. These are the files whose CODE or DATA Segments are included in this Unit by the compiler. Examples are the Pascal Source for the Unit itself, plus the .OBJ files included via the {$L filename.OBJ} compiler directive. The length of this table (in bytes) is obtained by subtracting this LL (at 0016) from the word at 0018. The result may be zero in which case this table is empty. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 7 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- UDBTS contains an LL (WORD) which points to a Trace Table used by the DEBUGGER for "stepping" through a Function or Procedure contained in this Unit. The length of this table (in bytes) is obtained by subtracting this LL (at 0018) from the word at 001A. The result may be zero in which case this table is empty. UndNC contains an LL (WORD) which points to the first free byte which follows the Trace Table (if any). It serves as a delimiter for determinimg the size of the Trace Table. This LL (when rounded up to the next integral multiple of 16) serves to locate the start of the code/data segments. ULCod is a WORD that contains the total byte count of all CODE Segments compiled into this Unit. ULTCon is a WORD that contains the total byte count of all Typed CONST and VMT DATA Segments compiled into this unit. ULPtch is a WORD that contains the total byte count of the Relocation Data Table for this unit. Unknx is a WORD whose usage is poorly understood. It appears always to be zero except when the Unit contains OBJECTs which employ Virtual Methods. ULVars is a WORD that contains the total byte count of all GLOBAL VAR DATA Segments compiled into this unit. UHash2 contains an LL (WORD) which points to a Hash Table which is the root of the DEBUGGER Dictionary. If Local Symbols were generated by the compiler (directive {$L+}) then ALL symbols declared in the unit can be accessed from this Hash Table. In the SYSTEM.TPU file, there is no such Dictionary and the LL stored here points to the INTERFACE Dictionary. This is an example of Hash Table "Folding" to save space which has been observed only in SYSTEM.TPU. UOvrly is a WORD whose usage is poorly understood. This word is usually zero unless the Unit was compiled with the Overlay Directive {$O+}. UVTPad begins a series of eleven (11) words that are apparently reserved for future use. Nothing but zeros have ever been seen here by this author. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 8 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 3.2 FILE SIZE An independent check on the size of the .TPU file is available using information contained in the Unit Header. This is also important for .TPL (Unit Library) organization. To compute the file size, refer to the four (4) words at offsets 001A, 001C, 001E and 0020. Round the contents of each of these words to the lowest multiple of 16 that is greater than or equal to the content of that word. Then form the sum of the rounded words. This is the .TPU file size in bytes. 4. SYMBOL DICTIONARIES This area contains all available documentation of declared symbols and procedure blocks defined within the unit. Depending on compiler options in effect when the unit was compiled, this section will contain at a minimum, the INTERFACE declarations, and at a maximum, ALL declarations. The information stored in the dictionary is highly dependent on the context of the symbol declared. We defer further explanation to the appropriate section which follows. 4.1 ORGANIZATION The dictionary is organized with a Hash Table as its root. The hash table is used to provide rapid access to arbitrary symbols. Since Turbo Pascal compiles very rapidly, I presume the hash function to be worthwhile to say the least. The dictionary itself may be thought of as an n-way tree. Each subtree has its roots in a hash table. There may be a great many hash tables in a given unit and their number depends on unit complexity as well as the options chosen when the unit was compiled. Use of the {$L+} directive produces the densest trees. The hash tables are explained in detail a few sections further on. Hash tables point to Dictionary Headers. When two or more symbols produce the same hash function result, a collision is said to occur. Collisions are resolved by the time-honored method of chaining together the Dictionary Headers of those symbols having the same hash function result. Dictionary supersetting is accomplished using these chains. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 9 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.2 INTERFACE DICTIONARY The INTERFACE dictionary contains all symbols and the necessary explanatory data for the INTERFACE section of a Unit. Symbols get added to the Unit using increasing storage addresses until the IMPLEMENTATION section is encountered. 4.3 DEBUG DICTIONARY The DEBUG dictionary (if present) is a superset of the INTERFACE dictionary. It is used by the Turbo Debugger to support its many features when tracing through a unit. If present, this dictionary is rooted in its own hash table. The hash table is effectively initialized when the IMPLEMENTATION keyword is processed by the compiler. This takes the form (initially) of an unmodified copy of the INTERFACE hash table, to which symbols are added in the usual fashion. Thus, the hash chains constructed or extended at this time lead naturally to the INTERFACE chains and this is how the superset is effectively implemented. 4.4 DICTIONARY ELEMENTS The dictionary contains four major elements. These are: hash tables, Dictionary Headers, Dictionary Stubs and Type Descriptors. The distinction between Dictionary Headers and Stubs is essentially arbitrary and is made in this document to assist in exposition. They might just as easily be regarded as a single element (such as symbol entry). 4.4.1 HASH TABLES As has been intimated, Hash Tables are the glue that binds the dictionary entries together and gives the dictionary its "shape". They effectively implement the scope rules of the language and speed access to essential information. Each Hash table begins with a 2-byte size descriptor. This descriptor contains the number of bytes in the table proper (less 2). Thus, the descriptor directly points to the last bucket in the hash table. For a hash table of 128 bytes, the size descriptor contains 126. The first bucket in the table immediately follows the size descriptor. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 10 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.1.1 SIZE So far, three different hash table sizes have been observed. The INTERFACE and DEBUG hash tables are usually 128 bytes (64 entries) in size plus 2 bytes of size description, but the SYSTEM.TPU unit is a special case, containing only 16 entries. Hash tables which anchor subtrees whose scope is relatively local usually contain four (4) entries (8 bytes). Graphically, a Hash Table with four slots has the following layout: +--------------------+ | 0006h | Size Descriptor +====================+ | slot 0 | an LL or zero +--------------------+ | slot 1 | an LL or zero +--------------------+ | slot 2 | an LL or zero +--------------------+ | slot 3 | an LL or zero +--------------------+ It should be noted that the Size Descriptor furnishes an upper bound for the hash function itself. Thus, it seems possible that a single hash function is used for all hash tables and that its result is ANDed with the Size Descriptor to get the final result. Because the sizes are chosen as they are (powers of 2) this is feasible. Note that in the above example, 6 = 2 * (n - 1) where n = 4 {slot count}. All of the hash tables observed so far have this property. What you get is a really efficient MOD function. Suppose that the hash of a given symbol is 13 and the proper slot must be located for a hash table of four entries. If we let "h" be the raw result of 13, then our final hash is (h SHL 1) AND ((4-1) SHL 1) or (13 SHL 1) AND 6 = 2 ! One final note on this subject. Given these properties, "Folding" of sparse hash tables is a rather trivial exercise so long as the new hash table also contains a number of slots that is a power of 2. This point is intriguing when one recalls that the SYSTEM.TPU hash table has only 16 slots rather than the usual 64. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 11 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.1.2 SCOPE The INTERFACE and DEBUG dictionary hash tables are Global in Scope even though the symbols accessed directly via the DEBUG hash table may be private. On the other hand, other hash tables are purely local in scope. For example, the fields declared within a record are reached via a small local hash table, as are the parameters and local variables declared within procedures and functions. Even OBJECTS use this technique to provide access to Methods and Object Fields. Access to such local scope fields/methods requires use of qualified names which ensures conformity to Pascal scope rules. The method is truly simple and elegant. 4.4.1.3 SPECIAL CASES The SYSTEM.TPU Unit is a special case. Its INTERFACE and DEBUG hash tables have apparently been "hand-tuned" for small size. Each contains only sixteen (16) entries. In addition, the DEBUG hash table is empty since there is no local symbol generation in this unit. Therefore, the DEBUG hash table does not exist as a separate entity, its function being served by the INTERFACE hash table. The pointer to the DEBUG hash table (in the Unit Header) has the same value as the pointer to the INTERFACE hash table (SYSTEM unit ONLY). ---------------------------------------------------------------------- Rev: August 11, 1990 Page 12 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.2 DICTIONARY HEADERS This is the structure that anchors all information known by the compiler about any symbol. The format is as follows: +00: An LL which points to the next (previous) symbol in the same scope which had the same hash function value. +02: A character that defines the category the symbol belongs to and defines the format of the Dictionary Stub which follows the Dictionary Header. +03: A String (in the Pascal sense) of variable size that contains the text of the symbol (in UPPER-CASE letters only). The SizeOf function is not defined for these strings since they are truncated to match the symbol size. The "value" of the SizeOf function can be determined by adding 1 to the first byte in the string. Thus, Ord(Symbol[0])+1 is the expression that defines the Size of the symbol string. Turbo Pascal defines a symbol as a string of relatively arbitrary size, the most significant 63 characters of which will be stored in the dictionary. Thus, we conclude that the maximum size of such a string is 64 bytes. 4.4.3 DICTIONARY STUBS Dictionary Stubs immediately follow their respective headers and their format is determined by the category character in the Dictionary Header. The function of the stub is to organize the information appropriate to the symbol and provide a means of accessing additional information such as type descriptors, constant values, parameter lists and nested scopes. The format of each Stub is presented in the following sub-sections. 4.4.3.1 LABEL DECLARATIVES ("O") This Stub consists of a WORD whose function is (as yet) unknown. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 13 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.3.2 UN-TYPED CONSTANTS ("P") This Stub consists of (2) two fields: +00: An LG which points to a Type Descriptor (usually in SYSTEM.TPU). This establishes the minimum storage requirement for the constant. The rules vary with the type, but the size of the constant data field (which follows) is defined using the Type Descriptor(s). +04: The value of the constant. For ordinal types, this value is stored as a LONGINT (size=4 bytes). For Floating-Point types, the size is implicit in the type itself. For String types, the size is determined from the length of the string which is stored in the initial byte of the constant. 4.4.3.3 NAMED TYPES ("Q") This Stub consists of an LG (4-bytes) that points to the Type Descriptor for this symbol. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 14 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.3.4 VARIABLES, FIELDS, TYPED CONS ("R") This Stub contains information required to allocate and describe these types of entities. The format and content is as follows: +00: A one-byte flag that precisely identifies the class of the item being described. The known values and their proper interpretation is as follows: 0 -> Global Variables Allocated in DS; 1 -> Typed Constants Allocated in DS; 2 -> LOCAL Variables & VALUE Parameters on STACK; 6 -> ADDRESS Parameters allocated on STACK; 8 -> Fields suballocated in RECORDS and OBJECTS, plus METHODS declared for OBJECTS. +01: A WORD containing the allocation offset in bytes; +03: A WORD whose content depends on the one-byte flag that this stub begins with. The context-dependent values observed thus far are: If the flag is 0, 2 or 6, then this word is an LL that locates the containing scope or zero if none; If the flag is 8, then this word is an LL that locates the Dictionary Header for the next field or method defined within the Record or Object; If the flag is 1, then this word is an offset within the CONST DSeg Map that locates the text of the Typed Constant Data. +05: An LG that locates the proper Type Descriptor for this symbol. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 15 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.3.5 SUBPROGRAMS & METHODS ("S") Subprograms, especially since Object Methods are supported, have a rather involved stub. Its format is as follows: +00: A byte that contains bit-switches. These bit switches have a great deal to do with the size of this stub and with the proper interpretation of what follows. The observed values of the bit-switches are as follows: xxxxxxx1 -> Symbol declared in INTERFACE; xxxxxx1x -> Symbol is an INLINE Declarative; xxxx1x0x -> Symbol has EXTERNAL attribute; x001xxxx -> Symbol is an ordinary Object Method; x011xxxx -> Symbol is a CONSTRUCTOR Method; x101xxxx -> Symbol is a DESTRUCTOR Method; +01: A Word whose interpretation depends on whether we have an INLINE Declarative Subprogram or not. If this is an INLINE Declarative Subprogram, then this word contains the byte-count of the INLINE code text at the end of this stub. Otherwise, this word is the offset within the PROC Map that locates the object code for this Subprogram. +03: A Word that contains an LL which locates the containing scope in the dictionary, or zero if none. +05: A Word that contains an LL which locates the local Hash Table for this scope. A local hash table provides access to all formal parameters of the Subprogram as well as all Symbols whose declarations are local to the scope of this Subprogram. +07: A Word that is zero unless the symbol is a Virtual Method. In this case, then the content is the offset within the VMT for the owning object that defines where the FAR POINTER to this Virtual Method is stored. +09: A Word that is zero unless the symbol is a Method. In this case, then the content is an LL which locates the next METHOD for this Object. +0B: A complete Type-Descriptor for this Subprogram. The length is variable and depends upon the number of Formal Parameters declared in the header. A complete description of this subfield is found in a later section (4.4.4.3.2.6). +??: If this Symbol represents an INLINE Declarative Subprogram, then the object-code text begins here. The byte-count of the text occurs at offset 0001h in this stub. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 16 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.3.6 TURBO STD PROCEDURES ("T") This Stub consists of two bytes, the first of which is unique for each | procedure and increments by 4. I have found nothing in the SYSTEM | unit (which is where this entry appears) that this seems directly | related to. The second byte is always zero. | 4.4.3.7 TURBO STD FUNCTIONS ("U") This Stub consists of two bytes, the first of which is unique for each | function and increments by 4. I have found nothing in the SYSTEM unit | (which is where this entry appears) that this seems directly related | to. I wouldn't be surprised if this byte were an index into a TURBO | compiler table that points to specialized parse tables/action routines | for handling these functions and their non-standard parameter lists. | The second byte seems to be a flag having the values $00, $40 and $C0. | I strongly suspect that the flag $C0 marks exactly those functions | which may be evaluated at compile-time. The meaning behind the other | values is not known to me. | 4.4.3.8 TURBO STD "NEW" ROUTINE ("V") This Stub consists of a WORD whose function is (as yet) unknown. This | is the only Standard Turbo routine that can behave as a procedure as | well as a function (returning a pointer value). | 4.4.3.9 TURBO STD PORT ARRAYS ("W") This Stub consists of a byte whose value is 0 for byte arrays, and 1 for word arrays. 4.4.3.10 TURBO STD EXTERNAL VARIABLES ("X") This Stub consists of an LG (4-bytes) that points to the Type Descriptor for this symbol. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 17 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.3.11 UNITS ("Y") Unit Stubs have the following content: +00: A Word whose apparently reserved for use by the Compiler or Linker. +02: A Word that seems to contain some kind of "signature" used to detect inconsistent Unit Versions. This author suspects that this consists of some kind of sum-check or hash total but has not yet identified the algorithm which computes the value stored in this word. +04: A Word that contains an LL which locates the Successor Unit in the "Uses" list. In fact, the "Uses" lists of both the INTERFACE and IMPLEMENTATION sections of the Unit are merged by this Word into a single list. A value of zero is used to indicate no successor. +06: A Word that contains an LL which locates the Predecessor Unit in the "Uses" list. For the SYSTEM unit entry, this value is always zero to indicate no predecessor. For the Unit being compiled, this LL locates the final Unit in the combined "Uses" list. In effect, the two LL's at offsets 0004 and 0006 organize the units into both forward and backward linked chains. The entry for the unit being compiled is effectively the head of both the forward and the backward chains. The final unit in the merged "Uses" list is the tail of the forward chain, and the SYSTEM unit is the tail of the backward chain. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 18 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4 TYPE DESCRIPTORS Type Descriptors store much of the semantic information that applies to the symbols declared in the unit. Implementation details can be managed using high-level abstractions and these abstractions can be shared. 4.4.4.1 SCOPE Type Descriptor sharing can occur across the boundaries which are implicit in unit modules. Thus, a type defined in one unit may be "imported" by some other module. Also, the pre-defined Pascal Types (plus the Turbo Pascal extensions) are defined in the SYSTEM.TPU unit and there needs to be a means of "importing" such Type Descriptors during compilation. This is precisely the objective of the LG locator which was described in section 2.2 (above). Type Descriptors are NEVER copied between units. The binding always occurs by reference at compile time and this helps support the technique of modifying a unit and compiling it to a .TPU file, then re-compiling all units/programs that "USE" it. Type Descriptors have many roles so their format varies. We have divided these structures into two parts: The PREFIX Part (which is always present and) whose format is fairly constant and the SUFFIX Part whose content and format depends on the attributes that are part of the type definition. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 19 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.2 PREFIX PART The Prefix Part of every Type Descriptor consists of four (4) bytes. The usage is consistent for all types observed by this author and the format is as follows: +00: A Byte that identifies the format of the Suffix part. This is essentially based on several high-level categories which the Suffix Parts support directly. The observed set of values is as follows: 00h -> an un-typed entity; 01h -> an ARRAY type; 02h -> a RECORD type; 03h -> an OBJECT type; 04h -> a FILE type (other than TEXT); 05h -> a TEXT File type; 06h -> a SUBPROGRAM type; 07h -> a SET type; 08h -> a POINTER type; 09h -> a STRING type; 0Ah -> an 8087 Floating-Point type; 0Bh -> a REAL type; 0Ch -> a Fixed-Point ordinal type; 0Dh -> a BOOLEAN type; 0Eh -> a CHAR type; 0Fh -> an Enumerated ordinal type. +01: A Byte used as a modifier. Since the above scheme is too general for machine-dependent details such as storage width and sign control, this modifier byte supplies additional data as required. The author has identified several cases in which this information is vital but has not spent very much time on the subject. The chief areas of importance seem to be in the 8087 Floating-Point types, and the Fixed-Point ordinal types. The semantics seem to be as follows: 0A 00 -> The type "SINGLE" 0A 02 -> The type "EXTENDED" 0A 04 -> The type "DOUBLE" 0A 06 -> The type "COMP" 0C 00 -> an un-named BYTE integer 0C 01 -> The type "SHORTINT" 0C 02 -> The type "BYTE" 0C 04 -> an un-named WORD integer 0C 05 -> The type "INTEGER" 0C 06 -> The type "WORD" 0C 0C -> an un-named double-word integer 0C 0D -> The type "LONGINT" ---------------------------------------------------------------------- Rev: August 11, 1990 Page 20 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- One important feature of the above semantics is the fact that an un-typed CONST declaration refers to the above two bytes to determine the storage space needed in the dictionary for the data value of the constant. This can be a little involved however as the constant may contain its own length descriptor (as in the case of a character string) in which case it may be sufficient to identify the high-level type category without any modifier byte. +02: A Word that contains the number of bytes of storage that are required to contain an object/entity of this type. For types that represent variable-length objects/entities such as strings, this word may define the value returned by the SIZEOF function as applied to the type. 4.4.4.3 SUFFIX PARTS Suffix Parts further refine the implementation details of the type and also provide subrange constraints where appropriate. In some cases the Suffix part is empty since all semantic data for the type is contained in the Prefix part. 4.4.4.3.1 UN-TYPED This Suffix Part is empty. Nothing is known about an un-typed entity. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 21 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.3.2 STRUCTURED TYPES The structured types represent aggregates of lower-level types. We include ARRAY, RECORD, OBJECT, FILE, TEXT, SET, POINTER and STRING types in this category. 4.4.4.3.2.1 ARRAY TYPES The Suffix Part of the ARRAY type is so constructed as to be able to support recursive or nested definition of arrays. The suffix format is as follows: +00: An LG that locates the Type Descriptor for the "base-type" of the array. This is the type of the entity being arrayed and may itself be an array. +04: An LG that locates the Type Descriptor for the array bounds which is a constrained ordinal type or subrange. 4.4.4.3.2.2 RECORD TYPES RECORD types have nested scopes. The Suffix part provides a base structure by which to locate the fields local to the scope of the Record type itself. The format is as follows: +00: A Word containing an LL which locates the local Hash Table that provides access to the fields in the nested scope. +02: A Word containing an LL which locates the Dictionary Header of the initial field in the nested scope. This supports a "left-to-right" traversal of the fields in a record. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 22 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.3.2.3 OBJECT TYPES OBJECT types also have nested scopes. The Suffix part provides a base structure by which to locate the fields and METHODS local to the scope of the OBJECT type itself. In addition, inheritance and VMT particulars are stored. The format is as follows: +00: A Word containing an LL which locates the local Hash Table that provides access to the fields and METHODS local to the nested scope. +02: A Word containing an LL which locates the Dictionary Header of the initial field or METHOD in the nested scope. This supports a "left-to-right" traversal of the fields and METHODS in an OBJECT. +04: An LG which locates the Type Descriptor of the Parent Object. This field is zero if there is no such Parent. +08: A Word which contains the size in bytes of the VMT for this Object. This field is zero if the object employs no Virtual Methods. +0A: A Word which contains the offset within the CONST DSeg Map that locates the VMT skeleton or template segment. This field equals FFFFh if the object employs no Virtual Methods. +0C: A Word which contains the offset within an Object instance where the NEAR POINTER to the VMT for the object is stored (within the DATA SEGMENT). This field equals FFFFh if the object employs no Virtual Methods. +0E: A Word which contains an LL which locates the Dictionary Header for the name of the OBJECT itself. 4.4.4.3.2.4 FILE (NON-TEXT) TYPES This Suffix consists of an LG that locates the Type Descriptor of the base type of the file. Note that the Type Descriptor may be that of an un-typed entity (for un-typed files). 4.4.4.3.2.5 TEXT FILE TYPES This Suffix consists of an LG that locates the Type Descriptor of the base type of the file -- in this case SYSTEM.CHAR. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 23 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.3.2.6 SET TYPES This Suffix consists of an LG that locates the base-type of the set itself. Pascal limits such entities to simple ordinals whose cardinality is limited to 256. 4.4.4.3.2.7 POINTER TYPES This Suffix consists of an LG that locates the base-type of the entity pointed at. 4.4.4.3.2.8 STRING TYPES This is a special case of an ARRAY type. The format is as follows: +00: An LG to the Type Descriptor SYSTEM.CHAR which is the base type of all Turbo Pascal Strings. +04: An LG to the Type Descriptor for the array bounds constraints for the string. 4.4.4.3.3 FLOATING-POINT TYPES The Suffix part for all Floating-Point types is EMPTY. All data needed to specify these approximate number types is contained in the Prefix part. The Types included in this class are SINGLE, DOUBLE, EXTENDED, COMP and REAL. 4.4.4.3.4 ORDINAL TYPES The Ordinal Types consist of the various "integer" types plus the BOOLEAN, CHAR and Enumerated types. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 24 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.3.4.1 "INTEGERS" These types include BYTE, SMALLINT, WORD, INTEGER and LONGINT. Their Suffix parts are identical in format: +00: A double-word containing the LOWER bound of the subrange constraint on the type; +04: A double-word containing the UPPER bound of the subrange constraint on the type; +08: An LG that locates the Type Descriptor of the largest upward compatible type. This is the Type Descriptor that is used to control the width of an un-typed constant in the dictionary stub. For the "integer" types, this is an LG to SYSTEM.LONGINT. 4.4.4.3.4.2 BOOLEANS This type Suffix has the following format: +00: A double-word containing the LOWER bound of the subrange constraint on the type; +04: A double-word containing the UPPER bound of the subrange constraint on the type; +08: An LG that locates the Type Descriptor SYSTEM.BOOLEAN. There is no "upward compatible" type. 4.4.4.3.4.3 CHARS This type Suffix has the following format: +00: A double-word containing the LOWER bound of the subrange constraint on the type; +04: A double-word containing the UPPER bound of the subrange constraint on the type; +08: An LG that locates the Type Descriptor SYSTEM.CHAR. There is no "upward compatible" type. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 25 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 4.4.4.3.4.4 ENUMERATIONS This type Suffix is unusual and has the following format: +00: A double-word containing the LOWER bound of the subrange constraint on the type; +04: A double-word containing the UPPER bound of the subrange constraint on the type; +08: An LG that locates the Prefix of the current Type Descriptor. There is no upward compatible type. What follows is a full-fledged SET Type Descriptor whose base type is the Type Descriptor of the Enumerated Type itself. The author has not yet discovered the reason for this. 4.4.4.3.5 SUBPROGRAM TYPES The length of this Suffix is variable. The format is as follows: +00: An LG that locates the Type Descriptor of the FUNCTION result returned by the Subprogram. This field is zero if the Subprogram is a PROCEDURE. +04: A Word that contains the number of Formal Parameters in the Function/Procedure header. If non-zero, then this word is followed by the parameter list itself as a simple array of parameter descriptors. The format of a parameter descriptor is as follows: 0000: An LG that locates the Type Descriptor of the corresponding parameter; 0004: A Byte that identifies the parameter passing mechanism used for this entry as follows: 02h -> VALUE of parameter is passed on STACK, 06h -> ADDRESS of parameter is passed on STACK. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 26 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 5. MAPS AND LISTS The "MAPS and LISTS" are not part of the symbol dictionary. Rather, these structures provide access to the Code and Data Segments produced by the compiler or included via the {$L name.OBJ} directive. The format and purpose (as understood by this author) of each of these tables is explained in the following sections. 5.1 PROC MAP The PROC Map provides a means of associating the various Function and Procedure declarations with the Code Segments. There is some evidence that the Compiler produces CODE (and DATA) Segments for EACH of the Subprograms defined in the Unit as well as for the un-named Unit Initialization code block. There is also evidence that EXTERNAL PROCs | must be assembled separately in order to exploit fully the Turbo "Smart Linker" since Turbo Pascal places some significant restrictions on EXTERNAL routines in the area of Segment Names and Types. Specifically, only code segments named "CODE" and data segments named "DATA" will be used by the "Smart Linker" as sources of code and data for inclusion in a Turbo Pascal .EXE file. The first entry in the PROC Map is reserved for Unit Initialization block. If there is no Unit Initialization block, this entry will be | filled with $FF. In addition, each and every PROC in the Unit has an | entry in this table. If an EXTERNAL routine is included, then ALL PUBLIC PROC definitions in that routine must be declared in the Unit Source Code with the EXTERNAL attribute. The size of the PROC Map Table (in Bytes) is implied in the Unit Header by the LL's that occur at offsets +0C and +0E. The Format of a single PROC Map Entry is as follows: +00: A Word that contains an offset within the CSeg Map. This is used to locate the code segment containing the PROC. +02: A Word that contains an offset within the CODE Segment that defines the PROC entry point relative to the load point of the referenced CODE Segment. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 27 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 5.2 CSEG MAP The CSeg Map provides a convenient descriptor table for each CODE Segment present in the Unit and serves to relate these segments with the Segment Relocation Data and the Segment Trace Table. It seems reasonable to infer that the "Smart Linker" is able to include/exclude code/data at the SEGMENT level only. The CSeg Map is an array of fixed-length records whose format is as follows: +00: A Word apparently reserved for use by TURBO. +02: A Word that contains the Segment Length (in bytes). +04: A Word that contains the Length of the Relocation Data Table for this Code Segment (in bytes). +06: A Word that contains the offset of the Trace Table Entry for this Segment (if it was compiled with DEBUG Support). If there is no Trace Table for this segment, then this Word contains FFFFh. 5.3 TYPED CONST DSEG MAP The CONST DSeg Map provides a convenient descriptor table for each DATA Segment present in the Unit which was spawned by the presence of Typed Constants or VMT's in the Pascal Code. It serves to relate these segments with the Segment Relocation Data and with the Code Segments that refer to these DATA elements. The CONST DSeg Map is an array of fixed-length records whose format is as follows: +00: A Word apparently reserved for use by TURBO. +02: A Word that contains the Segment Length (in bytes). +04: A Word that contains the Length of the Relocation Data Table for this DATA Segment (in bytes). +06: A Word that contains an LL which locates the OBJECT that owns this VMT skeleton or zero if the segment is not a VMT skeleton. It is possible to determine the containing scope for a Typed Constant declaration but -- unless it is for a VMT -- the job is a bit tedious. Essentially, one has to search the Symbol Dictionary for a declaration whose offset points to a given entry and the complete path to that symbol must be recorded. Our program doesn't do this but it can be done if the required dictionary entries are present. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 28 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 5.4 GLOBAL VAR DSEG MAP The VAR DSeg Map provides a convenient descriptor table for each DATA Segment present in the Unit. One entry exists for each CODE segment which refers to GLOBAL VAR's allocated in the DATA Segment. These references may be seen in the Relocation Data Table. Each EXTERNAL CSeg having a segment named DATA also spawns an entry in this table. Only the Code Segments that meet these criteria cause entries to be generated in the VAR Dseg Map. The VAR DSeg Map is an array of fixed-length records whose format is as follows: +00: A Word apparently reserved for use by TURBO. +02: A Word that contains the Segment Length (in bytes). This may be zero, especially if the EXTERNAL routine contains a DATA segment whose sole purpose is to declare one or more EXTRN symbols that are defined in some DATA segment external to the Assembly. +04: A Word apparently reserved for use by TURBO. +06: A Word apparently reserved for use by TURBO. To determine the identity of the CSeg that owns some particular entry in this table, examine the Relocation Data for ALL CSegs. Each CSeg which makes reference to a DATA segment has an entry in this table. 5.5 DONOR UNIT LIST This list contains an entry for each Unit (taken from the "USES" list) which MAY contribute either CODE or DATA to the executable file. Not all units do make such a contribution as some exist merely to define a collection of Types, etc. A Unit gets into this list if there exists a single Relocation Data Entry that references CODE or DATA in that Unit. The list is comprised of elements whose SIZE is variable and whose format is as follows: +00: A WORD apparently reserved for use by TURBO. +02: A variable-length String containing the unit name. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 29 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 5.6 SOURCE FILE LIST This list contains an entry for each "source" file used to compile the Unit. This includes the Primary Pascal file, files containing Pascal code included by means of the {$I filename.xxx} compiler directive, and .OBJ files included by the {$L filename.OBJ} compiler directive. The order of entries in this list is critical since it maps the CODE segments stored in the unit. The order of the entries is as follows: 1) The Primary Pascal file; 2) All Included Pascal files; 3) All Included .OBJ files. Mapping of CSegs to files is done as follows: a) Each .OBJ file contributes a SINGLE Code Segment (if any). Note that this author has not observed an .OBJ module that contains only a DATA Segment (but that seems a distinct possibility). b) The Primary Pascal file (augmented by all included Pascal Files) contributes zero or more CODE Segments. Therefore, there are at least as many CSeg entries as .OBJ files. If more, then the excess entries (those at the front of the list) belong to the Pascal files that make up the Pascal source for the unit. The format of an entry in this list is as follows: +00: A flag byte that indicates the type of file represented; 04h -> the Primary Pascal Source File, 03h -> an Included Pascal Source File, 05h -> an .OBJ file that contains a CODE segment. +01: A Word apparently reserved for use by the Compiler/Linker. +03: A Word that is zero for .OBJ files and which contains the file directory time-stamp for Pascal Files. +05: A Word that is zero for .OBJ files and which contains the file directory date-stamp for Pascal Files. +07: A variable-sized string containing the filename and extension of the file used during compilation. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 30 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 5.7 DEBUG TRACE TABLE If Debug support was selected at compile time, then all Pascal code which supports Debugging produces an entry in this table. The table entries themselves are variable in size and have the following format: +00: A Word which contains an LL that locates the Directory Header of the Symbol (a PROC name) this entry represents. +02: A Word which contains the offset (within the Source File List) of the entry that names the file that generated the CSeg being traced. This allows the file included by means of the {$I filename} directive to be identified for DEBUG purposes, as well as code produced from the Primary File. +04: A Word containing the number of bytes of data that precede the BEGIN statement code in the segment. For Pascal PROCS these bytes consist of literal constants, un-typed | constants, and other data such as range-checking limits, | etc. +06: A Word containing the Line Number of the BEGIN statement for the PROC. +08: A Word containing the number of lines of Source Code to Trace in this Segment. +0A: An array of bytes whose size is at least the number of source code lines in the PROC. Each byte contains the number of bytes of object code in the corresponding source line. This appears to be an array of SHORTINT since if a "line" contains more than 127 bytes, then a single byte of $80 precedes the actual byte count as a sort of "escape" and the next byte records the up to 255 bytes for the | line. This situation has not yet been fully explored. We | do not yet know what happens in the event a line is | credited with spawning more than 255 bytes of code. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 31 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 6. CODE, DATA, RELOCATION INFO This area begins at the start of the next free PARAGRAPH. This means that its offset from the beginning of the Unit ALWAYS ends in the digit zero. This area contains the CODE segments, CONST DATA segments, and the Relocation Data required for linking. 6.1 OBJECT CSEGS Each CODE segment included in the unit appears here as specified by the CSeg Map Table. Depending on usage, these segments may appear in the executable file. There are no filler bytes between segments. 6.2 CONST DSEGS This section begins at the start of the first free PARAGRAPH following the end of the Object CSegs. This means that its offset from the beginning of the Unit ALWAYS ends in the digit zero. A DATA segment fragment appears here for each CSeg that declares a typed constant, and for each OBJECT which employs Virtual Methods. There are no filler bytes between segments. If local symbols were generated, there is always enough information to allow documenting the scope of the declaration as well as interpreting the data in the display since the needed type declarations would also be available. Our program doesn't go to this extreme however. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 32 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 6.3 RELOCATION DATA TABLE This table begins at the start of the first free PARAGRAPH following the end of the CONST DSegs. This means that its offset from the beginning of the Unit ALWAYS ends in the digit zero. There are two | sections in this table: one for code, and one for data. Both | sections are aligned on paragraph boundaries. This may result in a | "slack" entry between the code and data sub-sections, but this entry | is included in the byte tally for the section stored in the Unit | Header Table at ULPtch (offset +20). | The table begins with entries for the CSeg Map and ends with entries for the CONST DSeg Map. The appropriate Map entry specifies the number of bytes of Relocation Data for the corresponding segment. This number may be zero in which case there is no Relocation Data for the given segment. | The Table consists of an array of eight (8) byte entries whose format is as follows: +00: A Byte containing the offset within the Donor Unit List of the Unit name that this entry refers to. This can be the compiled Unit or some previously compiled external unit. +01: A Byte that defines the type of reference being made and implies the size of the pointer needed (WORD or DWORD). The known and/or observed values are as follows: 00h -> a WORD refers to a PROC Map. 10h -> a WORD refers to a PROC Map. 20h -> a WORD refers to a PROC Map. 30h -> a DWORD pointer refers to a PROC Map. 50h -> a WORD refers to a CSeg Map. 60h -> a WORD refers to an unknown Map. 70h -> a DWORD pointer refers to a CSeg Map. 90h -> a WORD refers to a VAR DSeg Map. A0h -> a WORD refers to a DSeg Map for SEG address. | D0h -> a WORD refers to a CONST DSeg Map. +02: A Word containing the offset within the Map table referenced according to the above code scheme. +04: A Word containing an offset within the target segment which will be added to the effective address. For example, a reference to the VAR DSeg Map will require a final offset to locate the item (variable) within the DATA SEGMENT being referenced here. This may also be needed for references to LITERAL DATA embedded in a CODE SEGMENT. +06: A Word containing the offset within the CODE or DATA segment owning this entry that contains the area to be | patched with the value of the final effective address. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 33 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- For some truly wild guessing about the flag byte above, the following | pattern seems to be emerging. Look at bits 7-4 of this byte. It | appears that the type of Map reference may be coded into bits 7-6 and | that the size or type of reference may be coded into bits 5-4. Note | that bits 7-6 are "00" for PROC Map items, "01" for CSeg Map items, | "10" for Global DSeg Map items, and "11" for Const DSeg Map items. It | appears that the size or type of reference may be coded into bits 5-4. | Note that all FAR (DWORD) pointer references show these bits as "11" | and that a SEGMENT Register value appears as "10" and that WORD values | otherwise appear as "01" or "00". Further, no type 00h item has been | seen which has a non-zero effective address adjustment. This all | seems to suggest the following code structure: | 7654 3210 (bits 3-0 don't seem to be used) | 00-- ---- Locate item via a PROC Map, | 01-- ---- Locate item via a CSeg Map, | 10-- ---- Locate item via a Global DSeg Map, | 11-- ---- Locate item via a Const DSeg Map, | --00 ---- WORD offset has NO effective address adjustment, | --01 ---- WORD offset HAS an effective address adjustment, | --10 ---- WORD is content of a SEGMENT Register such as DS | or CS. | --11 ---- DWORD (FAR) pointer is supplied with possible | effective address adjustment. | The evidence in support of this conjecture is both slim and vast. It | all depends on how much data one looks at. I have looked at a lot of | data from the Borland supplied units and I haven't found anything to | refute the above. Accordingly, the supplied program interprets this | flag byte according to this scheme. | 7. SUPPLIED PROGRAM In order that the above information be made constructively useful, the author has designed a program that automates the process of discovery. It is not a "handsome" program and it is not a work of art. It does give useful results provided your PC has enough available memory. It should be obvious that the program was not designed "top-down". Rather, it just evolved as each new discovery was made. Later on, it seemed reasonable to try to document some of the relations between the various lists and tables and the program tries to make some of these relations clear, albeit with varying degrees of success. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 34 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 7.1 TPUNEW | This is the main program. It will ask for the name of the unit to be documented. Reply with the unit name only. The program will append the ".TPU" extension and will search for the proper file. The program will then ask if Dis-Assembly is desired and will require a "y" or "n" answer. The current directory will be searched first, followed by all directories in the current PATH. The program will NOT search a ".TPL" (Turbo Pascal Library) file. If the desired unit is found, the program will write a report to the current directory named "unitname.lst" which contains its analysis. The format of the report is such that it may be copied to a printer if that printer supports TTY control codes with form-feeds. Be judicious in doing this however since there can be a lot of information. The Turbo SYSTEM.TPU unit file produces almost ninety (90) pages without | the disassembly option. When disassembly is requested for the SYSTEM | unit, the size of the output file exceeds 700K bytes. | 7.2 TPURPT1 This is a Unit that contains the text-file output primitives required by the main program. It's not very pretty but it does work. 7.3 TPUAMS1 This Unit contains all Type Definitions, Structures, and "Canned" Functions and Procedures required by the main program. All structures documented in this report are also documented in TPUAMS1 by means of the TYPE mechanism. Some of the structures are difficult if not impossible to handle using ISO Pascal but Turbo Pascal provides the means for getting the job done. 7.4 TPUUNA1 This unit is a rudimentary disassembler. The output will not assemble and may look strange to a real assembler programmer since this author is not so-qualified. However, the basis for support of 80286, 80386 etc. processors is present as well as coprocessor support. Of perhaps the greatest interest is that it does appear to decode the emulated coprocessor instructions that are implemented via INT 34-3D. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 35 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- Be warned however. The output is not guaranteed since this was coded by myself and I am perhaps the rankest amateur that ever approached this quite awful assembler language. For convenience, the operand coding mimics TASM "Ideal" mode. As is usual with programs of this type, error-recovery is minimal and no context checking is performed. If the operation code is found to be valid, then a valid instruction is assumed -- even if invalid operands are present. The only positives that apply to this program are that it doesn't slow the cpu down (although a lot more output is produced), and it does let one "tune" code for compactness by letting one view the results of the coding directly. Also, incomplete instructions are handled as data | rather than overrunning into the next proc. | 7.5 MODIFICATIONS It was intended from the beginning that this program should be able to be enhanced to permit external units to be referenced during the analysis of any given unit, even if they were library components. The author hopes that users so-inclined will find the code pliable enough to engineer such enhancements. No small amount of care was expended to make pointer references flexible enough so that more than one unit could be addressed at one time. However, none of the references to external units are resolved by the program as it now stands. This program was NOT intended as a pilot for some future product. It | WAS intended as a rather "ersatz" tool for myself. | 7.6 NOTES ON PROGRAM LOGIC | The following sections discuss a few of the methods employed by the supplied program. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 36 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 7.6.1 FORMATTING THE DICTIONARY | Printing the unit dictionary area in a way that exposes its underlying | semantics is no small task. The unit dictionary area itself is a | rather amorphous-looking mass of data composed of hash tables, | dictionary headers and stubs, type descriptors, etc. In order to | present all this information in a meaningful way, we have to reveal | its structure and this cannot be done by means of a sequential | "browse" technique. Rather, we have to visit all nodes in the | dictionary area so that each may be formatted in a way that exposes | their function and meaning. This is made necessary by the fact that | items are added to the dictionary as encountered and no convenient | ordering of entry types exists. What we have here is the problem of | finding a minimal "cover" for the dictionary area that properly | exposes the content and structure of the dictionary area. | To do this, we construct (in the heap) a stack and a queue, both of | which are initially empty. The entries we put in the stack identify | the class of entry (Hash Table, Dictionary Header, Type Descriptor or | In-Line Code group), the location of the structure, and the location | of its immediate "owner" or "parent" dictionary entry (which allows | some limited information about scope to be printed). | To the empty stack, we add an entry for the unit name dictionary | entry, the INTERFACE hash table, and the DEBUG hash table. All these | are located via direct pointers (LL's) in the Unit Header Table. We | then pop one entry off the stack and begin our analysis. | a) If the entry we popped off the stack is not present in the | queue, we add it and call a routine that can interpret the entry | (aka, "cover") for a Dictionary Header, Hash Table, or Type | Descriptor. (This may lead to additional entries being added to | the stack such as nested-scope hash tables, Dictionary Headers, | Type Descriptors or In-Line Code group entries.) | b) While the stack is not empty, we pop another entry and repeat | step "a" (above) until no more entries are available. | The result is a queue containing one entry for each structure in the | unit dictionary area that is identifiable via traversal. (In | practice, the method we use is similar to a "breadth-first" traversal | of an n-way tree that is implemented in non-recursive fashion.) Each | entry in the queue contains the information described above and the | queue itself thus forms a set of descriptors that drive the process of | formatting the dictionary area for display. The process may be | likened to "painting by the numbers" or to finding a way to lay tile | on a flat surface using tiles of four different irregular shapes until | the floor is exactly covered. | There is one significant limitation that needs to be pointed out. It | is not always possible to determine the "parent" or "owner" of a node | with certainty. The following discussion illustrates the problem of | finding the "real" parent of a Type Descriptor. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 37 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- Almost every "type" in Pascal is actually derived from the basic types | that are (in Turbo Pascal) defined in the SYSTEM.TPU unit -- e.g. | "INTEGER", "BYTE", etc. In addition, several of the Type Descriptors | in the SYSTEM unit are referenced by more than one Dictionary Entry. | Thus, we find that a "many-to-one" relationship may exist between | Dictionary Entries and Type Descriptors. How does one find out which | is the entry that actually gave rise to the Type Descriptor? | The Dictionary Area of a unit has some special properties, one of | which is the fact that the Dictionary Entries for named Types are | often located quite near their primary type descriptors. The | Dictionary Area seems to be treated as an upward growing heap with the | various structures being added by Turbo as needed. This makes it | likely that the Type "Q" header which gives rise to a type descriptor | is quite likely to occur earlier in the Dictionary Area than any other | header which refers to the same descriptor. We take advantage of this | property to allocate "ownership" but it may not be "fool-proof". Some | type descriptors are spawned by other type descriptors, especially for | structured types. We don't attempt to allocate "ownership" to these | "lower-level" descriptors. | 7.6.2 THE DISASSEMBLER | To start with, I apologize up front for mistakes which are bound to be | present in this routine. I am not a MASM or TASM programmer and I | will not pretend otherwise. This being the case, the formatting I | have chosen for the operands may be erroneous or misleading and might | (if submitted to one of the "real" assemblers) produce object code | quite different from what is expected. I hope not, but I have to | admit it's possible. | My intention in adding this unit was to permit tuning of object code | to be made possible. With practice and some effort, one can observe | the effect on the object module caused by specific Pascal coding. | Thus, where compactness is an issue of paramount importance, TPUUNA1 | can be of help. In some cases, a simple re-arrangement of the local | variable declarations in a procedure can have a significant effect of | the size of the code if it means the difference between 1 and 2-byte | displacements for each instruction that references a specific local | variable. Potential applications along these lines seem almost | unlimited. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 38 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- I adopted an operand format not unlike that of TASM "Ideal" mode since | it was more convenient to do so and looked more readable to me. I | relied on several reference books for guidance in decoding the entire | mess and I found that there were several flaws (read ERRORS) in some | of them which made the job that much more difficult. I then | compounded my problems by attempting to handle 80286 and 80386 | specific code even though Turbo Pascal does not generate code specific | to these processors. I simply felt that the effort involved in | writing any sort of Dis-Assembly program for Turbo Pascal units was an | effort best experienced not more than once. With all this self- | flagellation out of my system once and for all, I will try to show the | basic strategy of the program and to explain the limitations and some | of the discoveries I made. | The routine is intended to be idiotically simple - i.e., no smarter | than the DEBUG command in principle. The basic idea is: pass some | text to the routine and get back ONE line derived from some prefix of | that text. Repeat as necessary until all text is gone. Thus, there | is no attempt to check the context of the text being processed. Also, | some configurations of the "modR/M" byte may invalid for selected | instructions. I don't try to screen these out since the intent was to | look at the presumably correct code produced by TURBO Pascal -- not | devious assembly language. Also, this program regards WAIT operations | as "stand-alone" -- i.e., it doesn't check to see if a coprocessor | operation follows for which the WAIT might be regarded as a prefix. | One area of real difficulty was figuring out the Floating-Point | emulations used by Turbo Pascal that are implemented by means of | interrupts $34 through $3D. I don't know if I got it right, but the | results seem reasonable and consistent. In the listing, the Interrupt | is produced on one line, followed by its parameters on the next line. | The parameter line is given the op-code "EMU_xxxx" where "xxxx" is the | coprocessor op-code I felt was being emulated. Interrupt $3C was a | real puzzler but after seeing a lot of code in context, I think that | the segment override is communicated to the emulator by means of the | first byte after the $3C. | Normally, in a non-emulator environment, all coprocessor operations | (ignoring any WAIT prefixes) begin with $D8-$DF. What Borland (and | maybe Microsoft) seem to have done here is to change the $D8-$DF so | that bits 7 and 6 of this byte are replaced with the one's complement | of the 2-bit segment register number found in various 8086 | instructions. This seems to be how an override for the DS register is | passed to the emulator. I don't KNOW this to be the correct | interpretation, but the code I have examined in context seems to work | under this scheme, so TPUUNA uses it to interpret the operand | accordingly. | For 80x86 machines, the problem was somewhat simpler. TPUUNA takes a | quick look at the first byte of the text. Almost any byte is valid as | the initial byte of an instruction, but some instructions require more | than one byte to hold the complete operation code. Thus, step 1 | classifies bytes in several ways that lead to efficient recognition of | valid operation codes. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 39 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- Once the instruction has been identified in this way, it is more or | less easy to link to supplemental information that provides operand | editing guidance, etc. | The tables that embody the recognition scheme were constructed using | PARADOX 3.0 (another fine Borland product) and suitably coded queries | were used to generate the actual Turbo Pascal code for compilation. | For those that are interested, TPUUNA supports the address-size and | operand-size prefixes of the 80386 as well as 32-bit operands and | addresses but remember that Turbo Pascal doesn't generate these. A | trivial change is provided for which allows segments which default to | 32-bit mode to be handled as well. | There is a simple mode variable that gets passed to TPUUNA by its | caller which specifies the most-capable processor whose code is to be | handled. Codes are provided for the 8086 (8088 is the same), 80186 | (same as 80286 except no protected mode instructions), 80286 (80186 | plus protected mode operation), and 80386. | No such specifier is provided for coprocessor support. What is there | is what I think an 80387 supports. I don't think that this is really | a problem if you don't try to use TPUUNA for anything but Turbo Pascal | code. | Error recovery is predictably simple. The initial text byte is output | as the operand of a DB pseudo-op and provision is made to resume work | at the next byte of text. | I hope this program is found to be useful in spite of the errors it | must surely contain. I have yet to make much sense of the rules for | MASM or TASM operand coding and I found very little of value in many | of the so-called "texts" on the subject. I found myself in the | position of that legendary American watching a Cricket match in | England for the first time ("You mean it has RULES?"). | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 40 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 8. UNIT LIBRARIES This author has examined .TPL files in passing and concludes that their structure is trivial in the extreme. The following notes should be of some help. 8.1 LIBRARY STRUCTURE A Turbo Pascal Library (.TPL) file appears to be a simple catenation of Turbo Pascal Unit (.TPU) files. Since the length of a Unit may be determined from the Unit Header (see section 3.2), it is simple to see that one may "browse" through a .TPL file looking for an external unit such as SYSTEM.TPU. If this seems to be too much effort, then there is always the TPUMOVER Utility program supplied by Borland. 8.2 THE TPUMOVER UTILITY Quite simply, this Utility allows one to extract units from .TPL files in order to subject them to the analysis performed by TPUMAIN. Read your Turbo Pascal User's Guide for instructions on the operation and use of this utility. 9. APPLICATION NOTES One of the more obvious applications of this information would seem to be in the area of a Cross-Reference Generator. There is a very fine example of such a program in the public domain that was written by Mr. R. N. Wisan called "PXL". This program has been around since the days of Turbo Pascal Version 1. The program has been continually enhanced by the author in the way of features and for support of the newer Turbo Pascal versions. It does not however solve the problem of telling one which unit contains the definition of a given symbol. In fairness to "PXL" however, this is no small problem since the format of .TPU files keeps changing (Turbo 5.5 Units are not object-code compatible with Turbo 5.0 Units, and so on...) and Mr. Wisan probably has more than enough other projects to keep himself occupied. However, for the user who is willing to work a little (maybe a lot?), this document would seem to provide the information needed to add such a function to his own pet cross-reference generator. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 41 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 10. ACKNOWLEDGEMENTS This project would have been totally infeasible without the aid of some very fine tools. As it was, several hundred man hours have been expended on it and as you can see, there are a few unresolved issues that have been (graciously) left for others to address. The tools used by this author consisted of: 1) Turbo Pascal 5.5 Professional by Borland International 2) Microsoft WORD (version 5.0) 3) LIST (version 6.4a) by Vernon D. Buerg 4) the DEBUG utility in MS-DOS Version 3.3. 5) PARADOX 3.0 by Borland International | 6) QUATTRO PRO by Borland International | 7) TURBO ASSEMBLER 1.1 by Borland International | (PARADOX and QUATTRO PRO were used for data collection and analysis in | the course of coding the recognizer tables for the disassembler unit.) | The references listed were of great value in this project. [Intel85] | was a valuable source of information about coprocessor instructions as | well as offering hints about the differences between the 8086/8088 and | the 80286. The [Borland] TASM manuals offered further info on the | 80186. [Nelson] provided presentations of well-organized data | directed at the problem of disassembly but the tables were flawed by a | number of errors which crept into my databases and which caused much | of the extra debugging effort. [Intel89] offered valuable insights on | the 80386 addressing schemes as well as the 32-bit data extensions. | Finally, [Brown] provided valuable clues on the Floating-Point | emulators used by Borland (and Microsoft?). As you can see, the | amount of hard information available to me on this project was quite | limited since I am unaware of any other existing body of literature on | this subject. | That's it folks. Does anyone wonder why it took several hundred man hours to get to this point? It took a lot of hard (and at times tedious) work coupled with a great many lucky guesses to achieve what you see here. ---------------------------------------------------------------------- Rev: August 11, 1990 Page 42 Inside TURBO Pascal 5.5 Units ---------------------------------------------------------------------- 11. REFERENCES [Bor88a], TURBO ASSEMBLER REFERENCE GUIDE, Borland International, | 1988. | [Bor88b], TURBO ASSEMBLER USER'S GUIDE, Borland International, 1988. | [Bor88c], TURBO PASCAL REFERENCE GUIDE Version 5.0, Borland | International, 1988. | [Bor88d], TURBO PASCAL USER'S GUIDE Version 5.0, Borland | International, 1988. | [Bor89], TURBO PASCAL 5.5 OBJECT-ORIENTED PROGRAMMING GUIDE, Borland | International, 1989. | [Brown], INTER489.ARC, Ralf Brown, 1989 | [Intel85], iAPX 286 PROGRAMMER'S REFERENCE MANUAL INCLUDING THE iAPX | 286 NUMERIC SUPPLEMENT, Intel Corporation, 1985, (order | number 210498-003). | [Intel89], 386 SX MICROPROCESSOR PROGRAMMER'S REFERENCE MANUAL, Intel | Corporation, 1989, (order number 240331-001). | [Nelson], THE 80386 BOOK: ASSEMBLY LANGUAGE PROGRAMMER'S GUIDE FOR | THE 80386, Ross P. Nelson, Microsoft Press, 1988. | [Scanlon], 80286 ASSEMBLY LANGUAGE ON MS-DOS COMPUTERS, Leo J. | Scanlon, Brady 1986. | ---------------------------------------------------------------------- Rev: August 11, 1990 Page 43