Quellcode durchsuchen

* don't write stabs with rva entries on linux

git-svn-id: trunk@5834 -
florian vor 19 Jahren
Ursprung
Commit
4aa5f6401e
1 geänderte Dateien mit 1 neuen und 1 gelöschten Zeilen
  1. 1 1
      compiler/assemble.pas

+ 1 - 1
compiler/assemble.pas

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