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 >
Pascal/Delphi Source File  |  1996-09-04  |  3KB  |  78 lines
  1.  
  2. const
  3.  
  4.   tpu_file_id = 'TPU9';
  5.  
  6. type
  7.   header_ptr = ^header_rec;
  8.   header_rec = record
  9.     file_id: array[0..3] of char; { 0-3 }
  10.     i4,                           { 4-5 }
  11.     i6,                           { 6-7 }
  12.     ofs_this_unit,                { 8-9 }
  13.     ofs_hashtable,                { A-B }
  14.     ofs_entry_pts,                { C-D }
  15.     ofs_code_blocks,              { E-F }
  16.     ofs_const_blocks,             {10-11}
  17.     ofs_var_blocks,               {12-13}
  18.     ofs_dll_list,                 {14-15}
  19.     ofs_unit_list,                {16-17}
  20.     ofs_src_name,                 {18-19}
  21.     ofs_line_lengths,             {1A-1B}
  22.     sym_size,                     {1C-1D}
  23.     code_size,                    {1E-1F}
  24.     const_size,                   {20-21}
  25.     reloc_size,                   {22-23}
  26.     const_reloc_size,             {24-25}
  27.     var_size,                     {26-27}
  28.     ofs_full_hash: word;          {28-29}
  29.     flags : unit_flags;           {2A-2B}
  30.     other : array[$2C..$3F] of byte; {2C-3F}
  31.   end;
  32. {$ELSE}
  33.   {BP 7.0}
  34. const
  35.   tpu_file_id = 'TPUQ';
  36.  
  37. type
  38.   header_ptr = ^header_rec;
  39.   header_rec = record
  40.     file_id: array[0..3] of char; { 0-3 }
  41.     i4,                           { 4-5 }
  42.     i6,                           { 6-7 }
  43.     ofs_this_unit,                { 8-9 }
  44.     ofs_hashtable,                { A-B }
  45.     ofs_entry_pts,                { C-D }
  46.     ofs_code_blocks,              { E-F }
  47.     ofs_const_blocks,             {10-11}
  48.     ofs_var_blocks,               {12-13}
  49.     ofs_dll_list,                 {14-15}
  50.     ofs_unit_list,                {16-17}
  51.     ofs_src_name,                 {18-19}
  52.     ofs_line_count,               {1A-1B}
  53.     ofs_line_lengths,             {1C-1D}
  54.     sym_size,                     {1E-1F}
  55.     browser_size,                 {20-21}
  56.     code_size,                    {22-23}
  57.     const_size,                   {24-25}
  58.     reloc_size,                   {26-27}
  59.     const_reloc_size,             {28-29}
  60.     var_size,                     {2A-2B}
  61.     ofs_full_hash: word;          {2C-2D}
  62.     flags : unit_flags;           {2E-2F}
  63.     object_type_list,             {30-31}   { offset of last object type def
  64.                                       previous object in previous_object_def }
  65.     br_defs_end,                  {32-33}
  66.     br_symbol_refxx1 : word;      {34-35}
  67.     next_tpu,                     {36-39} { next pointers used in TPUMOVER }
  68.     browser_ptr,                  {3A-3D}
  69.     code_ptr,                     {3E-41}
  70.     const_ptr,                    {42-45}
  71.     reloc_ptr,                    {46-49}
  72.     const_reloc_ptr : pointer;    {4A-4D}
  73.     other : array[$4e..$5F] of byte; {4E-3F}
  74.   end;
  75. {$ENDIF}
  76.  
  77.  
  78.