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

* fixed off by one error when writing a GRPDEF record

Browse Source 
git-svn-id: trunk@30413 -
This commit is contained in:
nickysn 2015-04-03 22:56:49 +00:00
parent a9f10f60eb
commit 1521f88a9d
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
compiler/omfbase.pas
View File

@ -671,8 +671,7 @@ implementation
Segment: Integer; Segment: Integer;
begin begin
RawRecord.RecordType:=RT_GRPDEF; RawRecord.RecordType:=RT_GRPDEF;
NextOfs:=1; NextOfs:=RawRecord.WriteIndexedRef(0,GroupNameIndex);
NextOfs:=RawRecord.WriteIndexedRef(NextOfs,GroupNameIndex);
for Segment in SegmentList do for Segment in SegmentList do
begin begin
if NextOfs>High(RawRecord.RawData) then if NextOfs>High(RawRecord.RawData) then