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

codetools: more verbosity for scan angw

Browse Source 
git-svn-id: trunk@39895 -
This commit is contained in:
mattias 2013-01-19 18:22:09 +00:00
parent 7548ba8e96
commit 724fca703f
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/codetools/pascalparsertool.pas
View File

@ -709,14 +709,16 @@ begin
and (Node.LastChild.FirstChild=nil) then begin and (Node.LastChild.FirstChild=nil) then begin
// uses section was not parsed completely => reopen it // uses section was not parsed completely => reopen it
{$IFDEF VerboseUpdateNeeded} {$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree REOPEN uses section, section=',Node.DescAsString]); debugln(['TPascalParserTool.BuildTree REOPEN uses section in ',Node.DescAsString]);
{$ENDIF} {$ENDIF}
Node:=CurNode.LastChild; Node:=Node.LastChild;
Node.EndPos:=-1; Node.EndPos:=-1;
MoveCursorToCleanPos(Node.StartPos); MoveCursorToCleanPos(Node.StartPos);
end else begin end else begin
if Node.FirstChild.Desc=ctnUsesSection then begin if Node.FirstChild.Desc=ctnUsesSection then begin
// uses section is already parsed // uses section is already parsed
if Node.FirstChild.FirstChild=nil then
RaiseException('TPascalParserTool.BuildTree inconsistency: uses section was not scanned completely and was not deleted');
if ScannedRange<lsrMainUsesSectionEnd then if ScannedRange<lsrMainUsesSectionEnd then
ScannedRange:=lsrMainUsesSectionEnd ScannedRange:=lsrMainUsesSectionEnd
else if ScannedRange=lsrImplementationStart then else if ScannedRange=lsrImplementationStart then
@ -752,7 +754,7 @@ begin
ReadNextAtom; ReadNextAtom;
{$IFDEF VerboseUpdateNeeded} {$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree ScannedRange=',dbgs(ScannedRange),' CurNode=',CurNode.DescAsString,' first atom=',GetAtom]); debugln(['TPascalParserTool.BuildTree ScannedRange=',dbgs(ScannedRange),' CurNode=',CurNode.DescAsString,' first atom=',GetAtom,' Range=',dbgs(Range)]);
{$ENDIF} {$ENDIF}
if (CurNode.Desc in (AllSourceTypes+[ctnInterface])) if (CurNode.Desc in (AllSourceTypes+[ctnInterface]))
@ -812,7 +814,7 @@ begin
finally finally
FRangeValidTill:=ScannedRange; FRangeValidTill:=ScannedRange;
{$IFDEF VerboseUpdateNeeded} {$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scanned till ',dbgs(FRangeValidTill),' Atom="',dbgstr(GetAtom),'"']); debugln(['TPascalParserTool.BuildTree scanned till ',dbgs(FRangeValidTill),' (wanted:',dbgs(ScanTill),') Atom="',dbgstr(GetAtom),'" at ',CleanPosToStr(CurPos.StartPos)]);
{$ENDIF} {$ENDIF}
ScanTill:=lsrEnd; ScanTill:=lsrEnd;
CloseUnfinishedNodes; CloseUnfinishedNodes;
@ -5079,6 +5081,9 @@ begin
{$ENDIF} {$ENDIF}
end else begin end else begin
// some nodes can be kept // some nodes can be kept
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.FetchScannerSource some nodes can be kept. DiffPos=',DiffPos,' NewSrc="',dbgstr(NewSrc,DiffPos-40,40),'|',dbgstr(NewSrc,DiffPos,40),'", TopNode=',Node.DescAsString,',StartPos=',Node.StartPos,',EndPos=',Node.EndPos,', Node.NextBrother=',Node.NextBrother<>nil,' File=',MainFilename]);
{$ENDIF}
// find first node to delete // find first node to delete
if Node.Desc in [ctnInitialization,ctnFinalization,ctnBeginBlock] if Node.Desc in [ctnInitialization,ctnFinalization,ctnBeginBlock]
then begin then begin