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

codetools: more verbosity for scan range

Browse Source 
git-svn-id: trunk@39896 -
This commit is contained in:
mattias 2013-01-19 18:35:33 +00:00
parent 724fca703f
commit fbcab8dfee
2 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
components/codetools/codetree.pas
View File

@ -258,6 +258,7 @@ type
function GetTopMostNodeOfType(ADesc: TCodeTreeNodeDesc): TCodeTreeNode;
function GetFindContextParent: TCodeTreeNode;
function GetLevel: integer;
function GetLastNode: TCodeTreeNode;
function DescAsString: string;
function FindOwner: TObject;
procedure Clear;
@ -281,6 +282,7 @@ type
function FindLastPosition: integer;
function ContainsNode(ANode: TCodeTreeNode): boolean;
function FindRootNode(Desc: TCodeTreeNodeDesc): TCodeTreeNode;
function GetLastNode: TCodeTreeNode;
procedure Clear;
constructor Create;
destructor Destroy; override;
@ -858,6 +860,13 @@ begin
end;
end;
function TCodeTreeNode.GetLastNode: TCodeTreeNode;
begin
Result:=Self;
while Result.LastChild<>nil do
Result:=Result.LastChild;
end;
function TCodeTreeNode.DescAsString: string;
begin
if Self=nil then
@ -1006,6 +1015,13 @@ begin
Result:=Result.NextBrother;
end;
function TCodeTree.GetLastNode: TCodeTreeNode;
begin
Result:=Root;
if Result=nil then exit;
Result:=Result.GetLastNode;
end;
procedure TCodeTree.ConsistencyCheck;
var RealNodeCount: integer;

3
components/codetools/pascalparsertool.pas
View File

@ -814,7 +814,8 @@ begin
finally
FRangeValidTill:=ScannedRange;
{$IFDEF VerboseUpdateNeeded}
debugln(['TPascalParserTool.BuildTree scanned till ',dbgs(FRangeValidTill),' (wanted:',dbgs(ScanTill),') Atom="',dbgstr(GetAtom),'" at ',CleanPosToStr(CurPos.StartPos)]);
Node:=Tree.GetLastNode;
debugln(['TPascalParserTool.BuildTree scanned till ',dbgs(FRangeValidTill),' (wanted:',dbgs(ScanTill),') Atom="',dbgstr(GetAtom),'" at ',CleanPosToStr(CurPos.StartPos),' LastNode=',Node.DescAsString,',Start=',Node.StartPos]);
{$ENDIF}
ScanTill:=lsrEnd;
CloseUnfinishedNodes;