home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / vp21beta.zip / LRTLSRC.RAR / PE2ELF / RELX.PAS < prev    next >
Pascal/Delphi Source File  |  2000-08-15  |  2KB  |  65 lines
  1.     // relo für Code -- unnötig
  2.     if sektionen_uebersicht[sekt_relo_text].vorhanden then
  3.       begin
  4.         index:=sektionen_uebersicht[sekt_relo_text].index;
  5.         with sektionen_kopf[index] do
  6.           begin
  7.             sh_name         :=name_speichern('.rel.text');
  8.             sh_type         :=SHT_REL;
  9.             sh_flags        :=0; (* SHF_ALLOC ? *)
  10.             sh_addr         :=0;
  11.             sh_offset       :=dateiposition;
  12.             sh_size         :=0; (* ! *)
  13.             sh_link         :=0; (* index symboltabelle *)
  14.             sh_info         :=sektionen_uebersicht[sekt_text].index;
  15.             sh_addralign    :=0;
  16.             sh_entsize      :=0;
  17.           end;
  18.         with programm_kopf [index] do
  19.           begin
  20.             p_type          :=PT_NULL;
  21.             p_offset        :=dateiposition;
  22.             p_vaddr         :=0;
  23.             p_paddr         :=0;
  24.             p_filesz        :=0; (* ! *)
  25.             p_memsz         :=p_filesz;
  26.             p_flags         :=0;
  27.             p_align         :=0;
  28.           end;
  29.         Inc(dateiposition,sektionen_kopf[index].sh_size);
  30.         align_next_start;
  31.       end;
  32.  
  33.     // relo für Daten -- unnötig
  34.     if sektionen_uebersicht[sekt_relo_data].vorhanden then
  35.       begin
  36.         index:=sektionen_uebersicht[sekt_relo_data].index;
  37.         with sektionen_kopf[index] do
  38.           begin
  39.             sh_name         :=name_speichern('.rel.data');
  40.             sh_type         :=SHT_REL;
  41.             sh_flags        :=0; (* SHF_ALLOC ? *)
  42.             sh_addr         :=0;
  43.             sh_offset       :=dateiposition;
  44.             sh_size         :=0; (* ! *)
  45.             sh_link         :=0; (* index symboltabelle *)
  46.             sh_info         :=sektionen_uebersicht[sekt_data].index;
  47.             sh_addralign    :=0;
  48.             sh_entsize      :=0;
  49.           end;
  50.         with programm_kopf [index] do
  51.           begin
  52.             p_type          :=PT_NULL;
  53.             p_offset        :=dateiposition;
  54.             p_vaddr         :=0;
  55.             p_paddr         :=0;
  56.             p_filesz        :=0; (* ! *)
  57.             p_memsz         :=p_filesz;
  58.             p_flags         :=0;
  59.             p_align         :=0;
  60.           end;
  61.         Inc(dateiposition,sektionen_kopf[index].sh_size);
  62.         align_next_start;
  63.       end;
  64.  
  65.