home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Chip 2000 September
/
Chip_2000-09_cd1.bin
/
sharewar
/
Slunec
/
app
/
16
/
MISC.SWG
/
0005_TPU.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1996-09-04
|
3KB
|
78 lines
const
tpu_file_id = 'TPU9';
type
header_ptr = ^header_rec;
header_rec = record
file_id: array[0..3] of char; { 0-3 }
i4, { 4-5 }
i6, { 6-7 }
ofs_this_unit, { 8-9 }
ofs_hashtable, { A-B }
ofs_entry_pts, { C-D }
ofs_code_blocks, { E-F }
ofs_const_blocks, {10-11}
ofs_var_blocks, {12-13}
ofs_dll_list, {14-15}
ofs_unit_list, {16-17}
ofs_src_name, {18-19}
ofs_line_lengths, {1A-1B}
sym_size, {1C-1D}
code_size, {1E-1F}
const_size, {20-21}
reloc_size, {22-23}
const_reloc_size, {24-25}
var_size, {26-27}
ofs_full_hash: word; {28-29}
flags : unit_flags; {2A-2B}
other : array[$2C..$3F] of byte; {2C-3F}
end;
{$ELSE}
{BP 7.0}
const
tpu_file_id = 'TPUQ';
type
header_ptr = ^header_rec;
header_rec = record
file_id: array[0..3] of char; { 0-3 }
i4, { 4-5 }
i6, { 6-7 }
ofs_this_unit, { 8-9 }
ofs_hashtable, { A-B }
ofs_entry_pts, { C-D }
ofs_code_blocks, { E-F }
ofs_const_blocks, {10-11}
ofs_var_blocks, {12-13}
ofs_dll_list, {14-15}
ofs_unit_list, {16-17}
ofs_src_name, {18-19}
ofs_line_count, {1A-1B}
ofs_line_lengths, {1C-1D}
sym_size, {1E-1F}
browser_size, {20-21}
code_size, {22-23}
const_size, {24-25}
reloc_size, {26-27}
const_reloc_size, {28-29}
var_size, {2A-2B}
ofs_full_hash: word; {2C-2D}
flags : unit_flags; {2E-2F}
object_type_list, {30-31} { offset of last object type def
previous object in previous_object_def }
br_defs_end, {32-33}
br_symbol_refxx1 : word; {34-35}
next_tpu, {36-39} { next pointers used in TPUMOVER }
browser_ptr, {3A-3D}
code_ptr, {3E-41}
const_ptr, {42-45}
reloc_ptr, {46-49}
const_reloc_ptr : pointer; {4A-4D}
other : array[$4e..$5F] of byte; {4E-3F}
end;
{$ENDIF}