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

MG: fixed implementation node end

Browse Source 
git-svn-id: trunk@529 -
This commit is contained in:
lazarus 2001-12-15 22:56:03 +00:00
parent 19a39c3e99
commit 0908e8916e
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/pascalparsertool.pas
View File

@ -1321,7 +1321,7 @@ begin
if not (UpAtomIs('INITIALIZATION') or UpAtomIs('FINALIZATION')) then if not (UpAtomIs('INITIALIZATION') or UpAtomIs('FINALIZATION')) then
RaiseException('syntax error: unexpected keyword '+GetAtom+' found'); RaiseException('syntax error: unexpected keyword '+GetAtom+' found');
// close implementation section node // close implementation section node
CurNode.EndPos:=CurPos.EndPos; CurNode.EndPos:=CurPos.StartPos;
EndChildNode; EndChildNode;
// start initialization / finalization section node // start initialization / finalization section node
CreateChildNode; CreateChildNode;