paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-12-16 04:30:35 +01:00
Code Issues Packages Projects Releases Wiki Activity

Merged revisions 3005 via svnmerge from

Browse Source 
svn+ssh://peter@www.freepascal.org/FPC/svn/fpc/branches/linker/compiler

r3005 (peter)
  * fix stab relocation for local symbols

git-svn-id: trunk@3044 -
This commit is contained in:
peter 2006-03-26 18:55:09 +00:00
parent e0a62c1bf2
commit 3e074126f4
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
compiler/assemble.pas
View File

@ -874,7 +874,9 @@ Implementation
ofs:=0;
relocsym:=nil;
end;
if (nidx=N_Function) and
if assigned(relocsym) and
(relocsym.bind=AB_GLOBAL) and
(nidx=N_Function) and
(tf_use_function_relative_addresses in target_info.flags) then
ofs:=0;
ObjData.writestab(ofs,relocsym,byte(nidx),byte(nother),word(nline),pstr);