paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2026-01-06 01:00:51 +01:00
Code Issues Packages Projects Releases Wiki Activity

h2pas: improved debugging

Browse Source 
git-svn-id: trunk@14187 -
This commit is contained in:
mattias 2008-02-19 08:42:21 +00:00
parent ada5d7c704
commit 4a973fd05a
3 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
components/codetools/codecompletiontool.pas
View File

@ -1661,6 +1661,7 @@ var
NodeExt: TCodeTreeNodeExtension;
begin
DebugLn(['AddRedefinition ',NodeText,' Redefined=',CleanPosToStr(Redefinition.StartPos),' Definition=',CleanPosToStr(Definition.StartPos)]);
//DebugLn(['AddRedefinition as source: Definition="',ExtractNode(Definition,[]),'" Redefinition="',ExtractNode(Redefinition,[]),'"']);
NodeExt:=NodeExtMemManager.NewNode;
NodeExt.Node:=Redefinition;
NodeExt.Data:=Definition;
@ -2445,7 +2446,7 @@ begin
// first step: find all unit identifiers (excluding implementation section)
if not GatherUnitDefinitions(Definitions,true,true) then exit;
DebugLn(['TCodeCompletionCodeTool.FindConstFunctions ',Src]);
//DebugLn(['TCodeCompletionCodeTool.FindConstFunctions ',Src]);
// now check all functions
Node:=Tree.Root;

2
components/codetools/sourcechanger.pas
View File

@ -39,7 +39,7 @@ unit SourceChanger;
interface
{ $DEFINE CTDEBUG}
{off $DEFINE CTDEBUG}
uses
Classes, SysUtils, FileProcs, CodeToolsStrConsts, CodeCache, BasicCodeTools,

3
components/h2pas/h2pasconvert.pas
View File

@ -3530,6 +3530,7 @@ function TRemoveRedefinitionsInUnit.Execute(aText: TIDETextConverter
): TModalResult;
begin
Result:=mrCancel;
//DebugLn(['TRemoveRedefinitionsInUnit.Execute START ',aText.Source]);
if (not FilenameIsPascalUnit(aText.Filename)) then begin
DebugLn(['TRemoveRedefinitionsInUnit.Execute file is not pascal: ',aText.Filename]);
exit(mrOk);// ignore
@ -3539,6 +3540,7 @@ begin
DebugLn(['TRemoveRedefinitionsInUnit.Execute RemoveAllRedefinitions failed ',CodeToolBoss.ErrorMessage]);
exit;
end;
//DebugLn(['TRemoveRedefinitionsInUnit.Execute END ',aText.Source]);
Result:=mrOk;
end;
@ -4454,6 +4456,7 @@ var
begin
Result:=mrCancel;
if aText=nil then exit;
//DebugLn(['TAddMissingPointerTypes.Execute ',aText.Source]);
if (not FilenameIsPascalUnit(aText.Filename)) then begin
DebugLn(['TAddMissingPointerTypes.Execute file is not pascal: ',aText.Filename]);
exit(mrOk);// ignore