Parcourir la source

* add exclude(to_do,threadvarsegment) to assemble.pas to temporarily fix
reported problem.

git-svn-id: trunk@748 -

daniel il y a 20 ans
Parent
commit
603e165761
1 fichiers modifiés avec 3 ajouts et 0 suppressions
  1. 3 0
      compiler/assemble.pas

+ 3 - 0
compiler/assemble.pas

@@ -1606,6 +1606,9 @@ Implementation
           exclude(to_do,exportsection);
         {$warning TODO internal writer support for dwarf}
         exclude(to_do,dwarflist);
+{$ifndef segment_threadvars}
+        exclude(to_do,threadvarsegment);
+{$endif}
         for i:=low(Tasmlist) to high(Tasmlist) do
           if (i in to_do) and (asmlist[i]<>nil) then
             addlist(asmlist[i]);