Browse Source

------------------------------------------------------------------------
r40821 | pierre | 2019-01-09 22:48:08 +0000 (Wed, 09 Jan 2019) | 1 line

Avoid warnings with -O4 option
------------------------------------------------------------------------
--- Merging r40821 into '.':
U compiler/ogomf.pas
--- Recording mergeinfo for merge of r40821 into '.':
U .

git-svn-id: branches/fixes_3_2@49418 -

pierre 4 years ago
parent
commit
1ed2a3e055
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: