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

Output descriptions of target enumerations in place of the ordinal values.

Browse Source
This commit is contained in:
ccrause 2024-05-12 13:49:01 +02:00 committed by Martin
parent a16bda914d
commit 8779a95c72
2 changed files with 29 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

25
components/fpdebug/fpdbgcommon.pas
View File

@ -27,6 +27,11 @@ type
// Use when target information not yet loaded - assumes that debug target is the same as host
function hostDescriptor: TTargetDescriptor;
function dbgs(AMachineType: TMachineType): String; overload;
function dbgs(ABitness: TBitness): String; overload;
function dbgs(AByteOrder: TByteOrder): String; overload;
function dbgs(AOperatingSystem: TOperatingSystem): String; overload;
{$IFDEF FPDEBUG_THREAD_CHECK}
procedure AssertFpDebugThreadId(const AName: String);
procedure AssertFpDebugThreadIdNotMain(const AName: String);
@ -66,6 +71,26 @@ begin
end;
end;
function dbgs(AMachineType: TMachineType): String;
begin
writestr(Result{%H-}, AMachineType);
end;
function dbgs(ABitness: TBitness): String;
begin
writestr(Result{%H-}, ABitness);
end;
function dbgs(AByteOrder: TByteOrder): String;
begin
writestr(Result{%H-}, AByteOrder);
end;
function dbgs(AOperatingSystem: TOperatingSystem): String;
begin
writestr(Result{%H-}, AOperatingSystem);
end;
{$IFDEF FPDEBUG_THREAD_CHECK}
var
FCurrentFpDebugThreadIdForAssert: TThreadID;

8
components/fpdebug/fpdbgcontroller.pas
View File

@ -2027,10 +2027,10 @@ begin
DebugLn(DBG_WARNINGS and (not Assigned(FCurrentProcess.DbgInfo) or not(FCurrentProcess.DbgInfo.HasInfo)),
['TDbgController.SendEvents called - deCreateProcess - No debug info. [CurrentProcess=',dbgsname(FCurrentProcess),',DbgInfo=',dbgsname(FCurrentProcess.DbgInfo),']']);
DebugLn(DBG_VERBOSE, Format(' Target.MachineType = %d', [FCurrentProcess.DbgInfo.TargetInfo.machineType]));
DebugLn(DBG_VERBOSE, Format(' Target.Bitness = %d', [FCurrentProcess.DbgInfo.TargetInfo.bitness]));
DebugLn(DBG_VERBOSE, Format(' Target.byteOrder = %d', [FCurrentProcess.DbgInfo.TargetInfo.byteOrder]));
DebugLn(DBG_VERBOSE, Format(' Target.OS = %d', [FCurrentProcess.DbgInfo.TargetInfo.OS]));
DebugLn(DBG_VERBOSE, ' Target.MachineType = ', dbgs(FCurrentProcess.DbgInfo.TargetInfo.machineType));
DebugLn(DBG_VERBOSE, ' Target.Bitness = ', dbgs(FCurrentProcess.DbgInfo.TargetInfo.bitness));
DebugLn(DBG_VERBOSE, ' Target.byteOrder = ', dbgs(FCurrentProcess.DbgInfo.TargetInfo.byteOrder));
DebugLn(DBG_VERBOSE, ' Target.OS = ', dbgs(FCurrentProcess.DbgInfo.TargetInfo.OS));
DoOnDebugInfoLoaded(self);