paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-06 06:57:54 +02:00
Code Issues Packages Projects Releases Wiki Activity

* remove debug statements

Browse Source
This commit is contained in:
Michaël Van Canneyt 2023-12-27 10:39:18 +01:00
parent 1ef62a70d7
commit 876936e261
2 changed files with 6 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpcunit/ide/frmtestinsight.pas
View File

@ -590,7 +590,6 @@ procedure TTestInsightForm.TestTreeDblClick(Sender: TObject);
P : integer;
begin
Writeln('Path: ');
Result:=False;
P:=RPos('.',aPath);
if P>0 then
@ -604,7 +603,6 @@ procedure TTestInsightForm.TestTreeDblClick(Sender: TObject);
aClass:=aPath;
Result:=True;
end;
Writeln('Path -> Class: ',aClass,' method: ',aMethod,': ',Result);
end;
var
@ -748,7 +746,6 @@ begin
begin
Res:=aResult[i];
aName:=Res.TestName;
Writeln('Analyizing test result',Res.TestClassName,' : ',Res.TestName);
N:=FindNode(aName);
if N=Nil then
Res.Free
@ -762,7 +759,7 @@ begin
rtWarning : AddFailure(N,Itm);
rtPassed : EndTest(N,Itm);
else
Writeln('Unknown test result',Res.TestClassName,' : ',Res.TestName);
; //
end;
end;
end;

10
components/fpcunit/ide/regtestinsight.pas
View File

@ -105,7 +105,7 @@ begin
F:=LProj.FindFile(aunit+'.pas',[pfsfOnlyProjectFiles]);
if Not Assigned(F) then
F:=LProj.FindFile(aunit+'.p',[pfsfOnlyProjectFiles]);
Writeln('Found unit "',aunit,'" : ',Assigned(F));
// Writeln('Found unit "',aunit,'" : ',Assigned(F));
end;
// Search in unit, if available
Tool:=Nil;
@ -123,7 +123,7 @@ begin
if CodetoolBoss.Explore(C,Tool,False,false) then
Node:=Tool.FindMainBeginEndNode;
end;
Writeln('Node found for unit "',aunit,'" : ',Assigned(Node));
// Writeln('Node found for unit "',aunit,'" : ',Assigned(Node));
if Node=nil then
exit;
Params:=TFindDeclarationParams.Create;
@ -132,7 +132,7 @@ begin
Params.SetIdentifier(Tool,PChar(aClass),nil);
if not Tool.FindIdentifierInContext(Params) then
begin
Writeln('Class not found for unit "',aunit,'", identifier ',aClass);
// Writeln('Class not found for unit "',aunit,'", identifier ',aClass);
exit;
end;
NewNode:=Params.NewNode;
@ -142,13 +142,13 @@ begin
or (NewNode.Desc<>ctnTypeDefinition)
or (ClassNode.Desc<>ctnClass) then
begin
Writeln('Class identifier in unit "',aunit,'", is not a class identifier ',aClass);
// Writeln('Class identifier in unit "',aunit,'", is not a class identifier ',aClass);
Exit;
end;
Ctx:=ClassTool.FindClassMember(ClassNode,aMethod,true);
if not Assigned(Ctx.Node) then
begin
Writeln('Method ',aMethod,' for class ',aClass,' not found in unit "',aunit);
// Writeln('Method ',aMethod,' for class ',aClass,' not found in unit "',aunit);
exit;
end;
Ctx.Tool.CleanPosToCaretAndTopLine(Ctx.Node.StartPos,Caret,NewTopLine);