Browse Source

Avoid warnings with -O4 option

git-svn-id: trunk@40821 -
pierre 6 years ago
parent
commit
22ea2bd624
1 changed files with 2 additions and 0 deletions
  1. 2 0
      compiler/ogomf.pas

+ 2 - 0
compiler/ogomf.pas

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