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

* stabs don't write offset in n_value for non-local symbols that use

Browse Source 
a relocation

git-svn-id: trunk@4763 -
This commit is contained in:
peter 2006-10-01 12:25:45 +00:00
parent 77272e9bcb
commit 2f72117c9e
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
compiler/assemble.pas
View File

@ -569,7 +569,7 @@ Implementation
{$endif}
Replace(result,'$ASM',maybequoted(AsmFileName));
Replace(result,'$OBJ',maybequoted(ObjFileName));
end;
end;
end;
@ -885,9 +885,7 @@ Implementation
relocsym:=nil;
end;
if assigned(relocsym) and
(relocsym.bind=AB_GLOBAL) and
(nidx=N_Function) and
(tf_use_function_relative_addresses in target_info.flags) then
(relocsym.bind<>AB_LOCAL) then
ofs:=0;
ObjData.writestab(ofs,relocsym,byte(nidx),byte(nother),word(nline),pstr);
end;