Browse Source

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

git-svn-id: trunk@4763 -

peter 19 years ago
parent
commit
2f72117c9e
1 changed files with 2 additions and 4 deletions
  1. 2 4
      compiler/assemble.pas

+ 2 - 4
compiler/assemble.pas

@@ -569,7 +569,7 @@ Implementation
 {$endif}
 {$endif}
              Replace(result,'$ASM',maybequoted(AsmFileName));
              Replace(result,'$ASM',maybequoted(AsmFileName));
            Replace(result,'$OBJ',maybequoted(ObjFileName));
            Replace(result,'$OBJ',maybequoted(ObjFileName));
-         end; 
+         end;
       end;
       end;
 
 
 
 
@@ -885,9 +885,7 @@ Implementation
                 relocsym:=nil;
                 relocsym:=nil;
               end;
               end;
             if assigned(relocsym) and
             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;
               ofs:=0;
             ObjData.writestab(ofs,relocsym,byte(nidx),byte(nother),word(nline),pstr);
             ObjData.writestab(ofs,relocsym,byte(nidx),byte(nother),word(nline),pstr);
           end;
           end;