Changeset 274

Timestamp:

Apr 27, 2008, 9:43:08 AM (17 years ago)

Author:

RBRi

Message:

more debug info

File:

• trunk/Library/DebugUnit.pas (modified) (5 diffs)

trunk/Library/DebugUnit.pas

@@ -50 +50 @@
   Procedure SetLogAspects(const aCommaSeparatedListOfAspectNames : String);
 
+  Procedure writeDebugSetupDetailsTo(aStrings : TStrings);
+
 
 var
@@ -57 +59 @@
   PMPrintfString : Function(aString : PChar) : ULONG; APIENTRY;
   activeLogAspects : LogAspects;
+  infoMessage1 : String;
+  infoMessage2 : String;
 
 
@@ -65 +69 @@
   BseDos,
   StringUtilsUnit;
+
+  Procedure writeDebugSetupDetailsTo(aStrings : TStrings);
+  begin
+    aStrings.Add('---- Debug ----');
+    aStrings.Add('  ' + infoMessage1);
+    aStrings.Add('  ' + infoMessage2);
+  end;
+
 
   FUNCTION LoadPMPrinfFLib : integer;
@@ -79 +91 @@
     tmpDllName:='PMPRINTF';
     tmpRC := DosLoadModule(tmpErrorInfo, 255, tmpDllName, PMPrintfModuleHandle);
+    infoMessage1 := 'DosLoadModule ' + tmpDllName + ' rc: ' + IntToStr(tmpRC);
     if tmpRC <> 0 then
     begin
@@ -88 +101 @@
     tmpProcedureName := 'PmPrintfString';
     tmpRC := DosQueryProcAddr(PMPrintfModuleHandle, 0, tmpProcedureName, tmpProcedureAddress);
+    infoMessage2 := 'DosQueryProcAddr ' + tmpProcedureName + ' rc: ' + IntToStr(tmpRC);
     if tmpRC <> 0 then
     begin