paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-22 01:59:12 +02:00
Code Issues Packages Projects Releases Wiki Activity

codetools: fixed setting EndPos for parameter types array of identifier

Browse Source 
git-svn-id: trunk@17129 -
This commit is contained in:
mattias 2008-10-24 15:59:36 +00:00
parent 7e1fb92a72
commit 8f3ab8527b
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
components/codetools/pascalparsertool.pas
View File

@ -1296,7 +1296,8 @@ begin
if not UpAtomIs('OF') then if not UpAtomIs('OF') then
if ExceptionOnError then if ExceptionOnError then
RaiseStringExpectedButAtomFound('"of"') RaiseStringExpectedButAtomFound('"of"')
else exit; else
exit;
if not Extract then ReadNextAtom else ExtractNextAtom(copying,Attr); if not Extract then ReadNextAtom else ExtractNextAtom(copying,Attr);
if UpAtomIs('CONST') then begin if UpAtomIs('CONST') then begin
if (phpCreateNodes in Attr) then begin if (phpCreateNodes in Attr) then begin
@ -1353,10 +1354,14 @@ begin
EndChildNode; EndChildNode;
end; end;
if (phpCreateNodes in Attr) then begin if (phpCreateNodes in Attr) then begin
if IsFileType then if IsFileType then begin
CurNode.EndPos:=CurPos.EndPos;
EndChildNode; EndChildNode;
if IsArrayType then end;
if IsArrayType then begin
CurNode.EndPos:=CurPos.EndPos;
EndChildNode; EndChildNode;
end;
end; end;
end else begin end else begin
if ExceptionOnError then if ExceptionOnError then