paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-02 08:29:32 +01:00
Code Issues Packages Projects Releases Wiki Activity

* writesymbol for relocations in stabs

Browse Source 
git-svn-id: trunk@1357 -
This commit is contained in:
peter 2005-10-12 05:57:30 +00:00
parent c48c42b995
commit a01774c73d
2 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
compiler/ogcoff.pas
View File

@ -682,6 +682,7 @@ const go32v2stub : array[0..2047] of byte=(
StabsSec.write(stab,sizeof(stab));
if assigned(ps) then
begin
writesymbol(ps);
{ current address }
curraddr:=StabsSec.mempos+StabsSec.datasize;
if DLLSource and RelocSection then

5
compiler/ogelf.pas
View File

@ -443,7 +443,10 @@ implementation
stab.nvalue:=offset;
stabssec.write(stab,sizeof(stab));
if assigned(ps) then
stabssec.addsymreloc(stabssec.datasize-4,ps,RELOC_ABSOLUTE);
begin
writesymbol(ps);
stabssec.addsymreloc(stabssec.datasize-4,ps,RELOC_ABSOLUTE);
end;
end;