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

codetools: BuildTreeAndGetCleanPos: check if scanrange is still valid

Browse Source 
git-svn-id: trunk@29809 -
This commit is contained in:
mattias 2011-03-12 23:57:11 +00:00
parent 420d07490d
commit 2737646f2a
1 changed files with 17 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/codetools/pascalparsertool.pas
View File

@ -4530,8 +4530,8 @@ begin
debugln(['TPascalParserTool.FetchScannerSource first character changed ',MainFilename]);
{$ENDIF}
AllChanged:=true;
end else if DiffPos>NewSrcLen then begin
// no chance => keep all nodes
end else if (DiffPos>NewSrcLen) and (not LastErrorValid) then begin
// no change and no error => keep all nodes
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.FetchScannerSource cleansrc has not changed => keep all nodes ',MainFilename]);
{$ENDIF}
@ -4549,7 +4549,7 @@ begin
Node:=Node.NextBrother;
// mark section as unfinished
Node.EndPos:=-1;
if (Node.Desc=ctnEndPoint) and (Node.EndPos<=DiffPos) then begin
if (Node.Desc=ctnEndPoint) and (not LastErrorValid) then begin
// difference is behind nodes => keep all nodes
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.FetchScannerSource cleansrc was changed after scanned nodes => keep all nodes, last node=',Node.DescAsString,' ',MainFilename]);
@ -4705,12 +4705,21 @@ begin
Node:=FindSectionNodeAtPos(CleanCursorPos);
if (Node<>nil) and (Node.EndPos>CleanCursorPos) then begin
// cursor in scanned range
ScanRange:=ScannedRange;
if (TreeRange=trTillCursorSection) then
if ScanRange<=lsrImplementationStart then
ScanRange:=lsrImplementationStart
if Node.Desc in (AllSourceTypes+[ctnInterface]) then
ScanRange:=lsrImplementationStart
else if Node.Desc=ctnUsesSection then begin
if Node.Parent.Desc=ctnImplementation then
ScanRange:=lsrInitializationStart
else
ScanRange:=lsrEnd;
ScanRange:=lsrInterfaceStart;
end else if Node.Desc=ctnImplementation then
ScanRange:=lsrInitializationStart
else if Node.Desc=ctnInitialization then
ScanRange:=lsrFinalizationStart
else
ScanRange:=lsrEnd;
if UpdateNeeded(ScanRange) then
ScanRange:=lsrEnd;
end;
end;
end;