Browse Source

* don't generate RVA reloc in stabs if there is no symbol

git-svn-id: trunk@5990 -
peter 18 years ago
parent
commit
8bf63f4f69
1 changed files with 3 additions and 1 deletions
  1. 3 1
      compiler/assemble.pas

+ 3 - 1
compiler/assemble.pas

@@ -869,7 +869,9 @@ Implementation
             oldsec:=ObjData.CurrObjSec;
             ObjData.SetSection(ObjData.StabsSec);
             ObjData.Writebytes(stab,sizeof(TObjStabEntry)-4);
-            if (target_info.system in system_windows+system_wince) and DLLSource and RelocSection then
+            if assigned(relocsym) and
+               (target_info.system in system_windows+system_wince) and
+               (DLLSource and RelocSection) then
               reltype:=RELOC_RVA
             else
               reltype:=RELOC_ABSOLUTE;