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

codetools: clear nodes behind, when linkscanner parsed only parts

Browse Source 
git-svn-id: trunk@37476 -
This commit is contained in:
mattias 2012-06-02 01:41:20 +00:00
parent afacbf67e6
commit ff6ee10d04
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/pascalparsertool.pas
View File

@ -4880,7 +4880,8 @@ begin
debugln(['TPascalParserTool.FetchScannerSource first character changed ',MainFilename]);
{$ENDIF}
AllChanged:=true;
end else if (DiffPos>NewSrcLen) and (not LastErrorValid) then begin
end else if (DiffPos>NewSrcLen) and (SrcLen=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]);