paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-15 11:19:11 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed compilation

Browse Source 
git-svn-id: branches/fixes_1_8@56531 -
This commit is contained in:
mattias 2017-11-29 09:20:56 +00:00
parent e0e03d0f94
commit 232f8ab6a3
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/codetools/codecompletiontool.pas
View File

@ -7091,7 +7091,7 @@ var
Parts[ppType]:=CurPos;
Result:=GetAtom;
ReadTypeReference(false);
p:=LastAtoms.GetPriorAtom.EndPos;
p:=LastAtoms.GetValueAt(0).EndPos;
if p>Parts[ppType].EndPos then begin
Parts[ppType].EndPos:=p;
Result:=ExtractCode(Parts[ppType].StartPos,Parts[ppType].EndPos,[]);