Jelajahi Sumber

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

git-svn-id: trunk@748 -

daniel 20 tahun lalu
induk
melakukan
603e165761
1 mengubah file dengan 3 tambahan dan 0 penghapusan
  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]);