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

DBG: move same debugln to LazLogger cmd-line config

Browse Source 
git-svn-id: trunk@35341 -
This commit is contained in:
martin 2012-02-12 23:24:54 +00:00
parent af2af04d9d
commit a012396166
1 changed files with 11 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
debugger/gdbtypeinfo.pp
View File

@ -34,7 +34,7 @@ unit GDBTypeInfo;
interface interface
uses uses
Classes, SysUtils, Debugger, LclProc, DebugUtils, GDBMIMiscClasses; Classes, SysUtils, Debugger, LclProc, LazLogger, DebugUtils, GDBMIMiscClasses;
(* (*
ptype = { ptype = {
@ -376,6 +376,9 @@ function dbgs(AReq: TGDBPTypeRequest): string; overload;
implementation implementation
var
DBGMI_TYPE_INFO: PLazLoggerLogGroup;
function CreatePTypeValueList(AResultValues: String): TStringList; function CreatePTypeValueList(AResultValues: String): TStringList;
var var
S, Line: String; S, Line: String;
@ -589,9 +592,7 @@ var
end; end;
begin begin
{$IFDEF DBGMI_TYPE_INFO}
try try
{$ENDIF}
Result.Flags := []; Result.Flags := [];
Result.Kind := ptprkError; Result.Kind := ptprkError;
Result.Name.Ptr := nil; Result.Name.Ptr := nil;
@ -844,11 +845,9 @@ begin
SetPCharLen(Result.Declaration, DeclPtr, LineEndPtr); SetPCharLen(Result.Declaration, DeclPtr, LineEndPtr);
end; end;
end; end;
{$IFDEF DBGMI_TYPE_INFO}
finally finally
DebugLn(['ParseTypeFromGdb: Flags=', dbgs(Result.Flags), ' Kind=', dbgs(Result.Kind), ' Name="', PCLenToString(Result.Name),'"' ]); DebugLn(DBGMI_TYPE_INFO, ['ParseTypeFromGdb: Flags=', dbgs(Result.Flags), ' Kind=', dbgs(Result.Kind), ' Name="', PCLenToString(Result.Name),'"' ]);
end; end;
{$ENDIF}
end; end;
function ParseTypeFromGdb(const ATypeText: string): TGDBPTypeResult; function ParseTypeFromGdb(const ATypeText: string): TGDBPTypeResult;
@ -2640,19 +2639,15 @@ var
var var
OldProcessState: TGDBTypeProcessState; OldProcessState: TGDBTypeProcessState;
OldReqMade: TGDBTypeProcessRequests; OldReqMade: TGDBTypeProcessRequests;
{$IFDEF DBGMI_TYPE_INFO}
s: string; s: string;
{$ENDIF}
begin begin
Result := False; Result := False;
FEvalRequest := nil; FEvalRequest := nil;
FLastEvalRequest := nil; FLastEvalRequest := nil;
Lines := nil; Lines := nil;
{$IFDEF DBGMI_TYPE_INFO} WriteStr(s, FProcessState); // TODO dbgs
WriteStr(s, FProcessState); DebugLnEnter(DBGMI_TYPE_INFO, ['>>Enter: TGDBType.ProcessExpression: state = ', s, ' Expression="', FExpression, '"']);
DebugLnEnter(['>>Enter: TGDBType.ProcessExpression: state = ', s, ' Expression="', FExpression, '"']);
try try
{$ENDIF}
if FFirstProcessingSubType <> nil then begin if FFirstProcessingSubType <> nil then begin
@ -2697,13 +2692,11 @@ begin
debugln('ERROR: detected state loop in ProcessExpression'); debugln('ERROR: detected state loop in ProcessExpression');
Result := True; Result := True;
end; end;
{$IFDEF DBGMI_TYPE_INFO}
finally finally
WriteStr(s, FProcessState); WriteStr(s, FProcessState);
DebugLnExit(['<<Exit: TGDBType.ProcessExpression: state = ', s, ' Result=', dbgs(Result), DebugLnExit(DBGMI_TYPE_INFO, ['<<Exit: TGDBType.ProcessExpression: state = ', s, ' Result=', dbgs(Result),
' Kind=', dbgs(Kind), ' Attr=', dbgs(Attributes), ' Typename="', TypeName, '" InternTpName="', FInternalTypeName,'"']); ' Kind=', dbgs(Kind), ' Attr=', dbgs(Attributes), ' Typename="', TypeName, '" InternTpName="', FInternalTypeName,'"']);
end; end;
{$ENDIF}
end; end;
{ TGDBPTypes } { TGDBPTypes }
@ -2721,4 +2714,7 @@ begin
end; end;
end; end;
initialization
DBGMI_TYPE_INFO := DebugLogger.RegisterLogGroup('DBGMI_TYPE_INFO' {$IFDEF DBGMI_TYPE_INFO} , True {$ENDIF} );
end. end.