paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-12 11:06:19 +02:00
Code Issues Packages Projects Releases Wiki Activity

* fixed warning in TOmfRecord_MODEND.DecodeFrom

Browse Source 
git-svn-id: trunk@30592 -
This commit is contained in:
nickysn 2015-04-14 18:41:41 +00:00
parent e0be3e49ae
commit 07ebd29911
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
compiler/omfbase.pas
View File

@ -1123,7 +1123,7 @@ implementation
begin begin
if LogicalStartAddress then if LogicalStartAddress then
begin begin
if EndData>=RawRecord.RecordLength then if NextOfs>=RawRecord.RecordLength then
internalerror(2015040305); internalerror(2015040305);
EndData:=RawRecord.RawData[NextOfs]; EndData:=RawRecord.RawData[NextOfs];
Inc(NextOfs); Inc(NextOfs);