Browse Source

Merged revisions 3005 via svnmerge from
svn+ssh://[email protected]/FPC/svn/fpc/branches/linker/compiler

r3005 (peter)
* fix stab relocation for local symbols

git-svn-id: trunk@3044 -

peter 19 năm trước cách đây
mục cha
commit
3e074126f4
1 tập tin đã thay đổi với 3 bổ sung1 xóa
  1. 3 1
      compiler/assemble.pas

+ 3 - 1
compiler/assemble.pas

@@ -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);