Changeset 787 for trunk/dll/error.c

Timestamp:

Aug 19, 2007, 11:02:37 PM (18 years ago)

Author:

Steven Levine

Message:

Rework UM_FILLSETUPLIST IDM_SAVEDIRCNRSTATE and ..._setups() logic for ticket# 109 and #31
Add GetMSecTimer()
Use GetMSecTimer in DbgMsg
Tweak notebook.ipf scanning page
Move more #pragma alloc_text statements to end of files for OpenWatcom
Delete obsoletes
Revert ExpandAll() ShowTreeRec() DosSleeps to 0 - DosSleep(1) was slowing down inner loops
Drop afFilesToGet - use FilesToGet directly
Optimze ShowTreeRec() collapse logic - was really slow

File:

• trunk/dll/error.c (modified) (5 diffs)

trunk/dll/error.c

@@ -25 +25 @@
   20 Apr 07 SHL Correct IDS_GENERR1TEXT formatting
   23 Apr 07 SHL Add Win_Error_NoMsgBox.  Rework others
+  14 Aug 07 SHL Add GetMSecTimer
+  14 Aug 07 SHL Use GetMSecTimer in DbgMsg
 
 ***********************************************************************/
@@ -42 +44 @@
 
 #pragma data_seg(DATA1)
-#pragma alloc_text(FMINPUT,Win_Error,Dos_Error,saymsg,showMsg)
+
+static PSZ pszSrcFile = __FILE__;
 
 static VOID formatWinError(PSZ pszBuf, UINT cBufBytes, HWND hwndErr, HWND hwndOwner,
@@ -55 +58 @@
 {
   va_list va;
+
+#if 1 // fixme to be selectable
+
+  static ULONG ul1stMSec;
+  // static ULONG ulLastMSec;
+
+  ULONG msec = GetMSecTimer();
+  ULONG delta;
+
+  if (!ul1stMSec) {
+    ul1stMSec = msec;
+    // ulLastMSec = msec;                       // Avoid big delta 1st time
+  }
+
+  delta = msec - ul1stMSec;
+  // ulLastMSec = msec;
+  fprintf(stderr, "%03lu.%03lu ", delta / 1000, delta % 1000);
+
+#endif
 
   // OK for source file name to be null
@@ -227 +249 @@
 } // formatWinError
 
+/**
+ * Return millisecond timer value
+ * Resolution is milliseconds, but accuracy will be less
+ * depending on systems settings
+ */
+
+ULONG GetMSecTimer(void)
+{
+  ULONG msec;
+
+  APIRET rc = DosQuerySysInfo(QSV_MS_COUNT, QSV_MS_COUNT,
+                              &msec, sizeof(msec));
+  if (rc) {
+    Dos_Error(MB_ENTER, rc, HWND_DESKTOP, pszSrcFile, __LINE__,
+              "DosQuerySysInfo");
+    msec = 0;
+  }
+  return msec;
+}
+
 //== Runtime_Error: report runtime library error using passed message string ===
 
@@ -363 +405 @@
 
 } // Win_Error_NoMsgBox
+
+#pragma alloc_text(ERROR,Win_Error,Dos_Error,saymsg,showMsg,GetHiresTimeer)