paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-10-24 20:11:27 +02:00
Code Issues Packages Projects Releases Wiki Activity

* moved setting of stab hdrsym

Browse Source
This commit is contained in:
peter 2000-11-12 22:45:14 +00:00
parent b52915a0ca
commit 8f79c2cadd
1 changed files with 16 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

29
compiler/ogelf.pas
View File

@ -706,6 +706,18 @@ interface
inc(nsects); inc(nsects);
strtabsect^.secshidx:=nsects; strtabsect^.secshidx:=nsects;
inc(nsects); inc(nsects);
{ For the stab section we need an HdrSym which can now be
calculated more easily }
if assigned(sects[sec_stab]) then
begin
hstab.strpos:=1;
hstab.ntype:=0;
hstab.nother:=0;
hstab.ndesc:=(sects[sec_stab]^.datasize div sizeof(telf32stab))-1{+1 according to gas output PM};
hstab.nvalue:=sects[sec_stabstr]^.datasize;
sects[sec_stab]^.data^.seek(0);
sects[sec_stab]^.data^.write(hstab,sizeof(hstab));
end;
{ Create the relocation sections } { Create the relocation sections }
for sec:=low(tsection) to high(tsection) do for sec:=low(tsection) to high(tsection) do
if assigned(sects[sec]) and if assigned(sects[sec]) and
@ -766,18 +778,6 @@ interface
if assigned(sects[sec]) and if assigned(sects[sec]) and
assigned(sects[sec]^.data) then assigned(sects[sec]^.data) then
begin begin
{ For the stab section we need an HdrSym which can now be
calculated more easily }
if sec=sec_stab then
begin
hstab.strpos:=1;
hstab.ntype:=0;
hstab.nother:=0;
hstab.ndesc:=(sects[sec_stab]^.datasize div sizeof(telf32stab))-1{+1 according to gas output PM};
hstab.nvalue:=sects[sec_stabstr]^.datasize;
sects[sec_stab]^.data^.seek(0);
sects[sec_stab]^.data^.write(hstab,sizeof(hstab));
end;
sects[sec]^.alignsection; sects[sec]^.alignsection;
hp:=sects[sec]^.data^.firstblock; hp:=sects[sec]^.data^.firstblock;
while assigned(hp) do while assigned(hp) do
@ -841,7 +841,10 @@ interface
end. end.
{ {
$Log$ $Log$
Revision 1.1 2000-11-12 22:20:37 peter Revision 1.2 2000-11-12 22:45:14 peter
* moved setting of stab hdrsym
Revision 1.1 2000/11/12 22:20:37 peter
* create generic toutputsection for binary writers * create generic toutputsection for binary writers
} }