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

codetools: fixed deleting nodes if diff is behind last scanned node

Browse Source 
git-svn-id: trunk@29808 -
This commit is contained in:
mattias 2011-03-12 18:13:02 +00:00
parent 29b00c7528
commit 420d07490d
2 changed files with 24 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
components/codetools/linkscanner.pas
View File

@ -1207,7 +1207,6 @@ var
NewSrcLen: Integer;
begin
if (not UpdateNeeded(Range,CheckFilesOnDisk)) then begin
debugln(['TLinkScanner.Scan AAA1 no update needed Range=',dbgs(Range),' ScannedRange=',dbgs(ScannedRange)]);
// input is the same as last time -> output is the same
// -> if there was an error and it was in a needed range, raise it again
if LastErrorIsValid then begin

33
components/codetools/pascalparsertool.pas
View File

@ -648,17 +648,21 @@ begin
Node.EndPos:=-1;
if (Node.LastChild=nil) then begin
// section was not parsed => reopen it
//debugln(['TPascalParserTool.BuildTree scan a section from start ...']);
MoveCursorToCleanPos(Node.StartPos);
// skip keyword starting the section
ReadNextAtom;
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scan section ',Node.DescAsString,' from start. First atom=',GetAtom]);
{$ENDIF}
end else begin
// half parsed section
//debugln(['TPascalParserTool.BuildTree scan a section from middle ...']);
if (Node.LastChild.Desc=ctnUsesSection)
and (Node.LastChild.FirstChild=nil) then begin
// uses section was not parsed completely => reopen it
debugln(['TPascalParserTool.BuildTree REOPEN uses section']);
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree REOPEN uses section, section=',Node.DescAsString]);
{$ENDIF}
Node:=CurNode.LastChild;
Node.EndPos:=-1;
MoveCursorToCleanPos(Node.StartPos);
@ -666,18 +670,29 @@ begin
// place cursor behind last child node
while (Node.LastChild<>nil) and (Node.LastChild.EndPos<1) do
Node:=Node.LastChild;
if Node.LastChild<>nil then
Node.EndPos:=-1;
if Node.LastChild<>nil then begin
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scan at end of ',Node.LastChild.DescAsString]);
{$ENDIF}
MoveCursorToCleanPos(Node.LastChild.EndPos)
else if CurNode.EndPos>0 then
end else if Node.EndPos>0 then begin
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scan at end of ',Node.DescAsString]);
{$ENDIF}
MoveCursorToCleanPos(Node.EndPos)
else begin
end else begin
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scan at start of ',Node.DescAsString]);
{$ENDIF}
MoveCursorToCleanPos(Node.StartPos);
Node.EndPos:=-1;
end;
end;
end;
CurNode:=Node;
//debugln(['TPascalParserTool.BuildTree curnode=',CurNode.DescAsString,' cursor="',dbgstr(copy(Src,CurPos.StartPos,40)),'"']);
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree CurNode=',CurNode.DescAsString,' cursor="',dbgstr(copy(Src,CurPos.StartPos,40)),'"']);
{$ENDIF}
if not (CurNode.Desc in (AllCodeSections+[ctnUsesSection])) then
// FetchScannerSource failed
RaiseCatchableException('TPascalParserTool.BuildTree inconsistency');
@ -4534,10 +4549,10 @@ begin
Node:=Node.NextBrother;
// mark section as unfinished
Node.EndPos:=-1;
if (Node.NextBrother=nil) and (Node.EndPos<=DiffPos) then begin
if (Node.Desc=ctnEndPoint) and (Node.EndPos<=DiffPos) then begin
// difference is behind nodes => keep all nodes
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.FetchScannerSource cleansrc was changed after scanned nodes => keep all nodes ',MainFilename]);
debugln(['TPascalParserTool.FetchScannerSource cleansrc was changed after scanned nodes => keep all nodes, last node=',Node.DescAsString,' ',MainFilename]);
{$ENDIF}
end else begin
// some nodes can be kept