paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 11:09:42 +02:00
Code Issues Packages Projects Releases Wiki Activity

------------------------------------------------------------------------

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 -
This commit is contained in:
pierre 2021-05-31 13:01:23 +00:00
parent 92cc471d80
commit 1ed2a3e055
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/ogomf.pas
View File

@ -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: