Преглед изворни кода

Avoid warnings with -O4 option

git-svn-id: trunk@40821 -
pierre пре 6 година
родитељ
комит
22ea2bd624
1 измењених фајлова са 2 додато и 0 уклоњено
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

@@ -1553,6 +1553,8 @@ implementation
         Thread: TOmfSubRecord_THREAD;
         FixuppWithoutLeOrLiData: Boolean=False;
       begin
+        objsec:=nil;
+        EnumeratedDataOffset:=0;
         Result:=False;
         case RawRec.RecordType of
           RT_LEDATA,RT_LEDATA32: