Changeset 7423 for trunk/src/odinprof/profiler.cpp

Timestamp:

Nov 22, 2001, 12:34:44 PM (24 years ago)

Author:

phaller

Message:

.

File:

• trunk/src/odinprof/profiler.cpp (modified) (13 diffs)

trunk/src/odinprof/profiler.cpp

@@ -1 @@
-/* $Id: profiler.cpp,v 1.1 2001-11-22 10:43:59 phaller Exp $ */
+/* $Id: profiler.cpp,v 1.2 2001-11-22 11:34:43 phaller Exp $ */
 /*
  * Project Odin Software License can be found in LICENSE.TXT
@@ -33 +33 @@
 #include <math.h>
 #include <direct.h>
+#include <process.h>
 
 #include "symfile.h"
@@ -397 +398 @@
   CHAR   szModule[260];                        /* buffer for the module name */
   ULONG  ulOffset;             /* offset within the object within the module */
+  ULONG  ulSymbolOffset;
   
   rc = DosQueryModFromEIP(&ulModule,
@@ -414 +416 @@
                                          ulOffset,
                                          szFunction,
-                                         sizeof(szFunction)) )
+                                         sizeof(szFunction),
+                                         &ulSymbolOffset) )
     {
       sprintf(szFunction,
@@ -450 +453 @@
     return ret;
   
+  USHORT sel = RestoreOS2FS();
+  // DosEnterCritSec();
+  
+  
   // "call _ProfileHook32" has 5 bytes, adjust here
   eip_function -= 5;
@@ -472 +479 @@
   if (NULL == pPE)
   {
-    USHORT sel = RestoreOS2FS();
-    
     pPE = (PPROFILEENTRY)malloc( sizeof(PROFILEENTRY) );
     
@@ -491 +496 @@
     // @@@PH need to synchronize access!
     pPB->pHashtable->addElement(eip_function, pPE);
-    
-    SetFS(sel);
   }
   
@@ -500 +503 @@
   // register call and skip to the next empty slot
   pPB->ulCalldepth++;
+  
+  // DosExitCritSec();
+  SetFS(sel);
   
   // get "compensated" timestamp
@@ -522 +528 @@
     return NULL;
   
+  USHORT sel = RestoreOS2FS();
+  // DosEnterCritSec();
+  
   // register call exit
   pPB->ulCalldepth--;
@@ -531 +540 @@
   if (pPE)
   {
-    // Note:
-    // we don't take the values for the 1st call since all the lookup values
-    // are virtually non-deterministic and cannot be compensated for.
-    if (pPE->ulCalls > 1)
-    {
-      ULONG ulDiffHi = time_hi - pPB->enterTimeHi[i];
-      ULONG ulDiffLo = time_lo - pPB->enterTimeLo[i];
-      
-      // test for wrap around
-      if (ulDiffHi)
-        ulDiffLo = ~ulDiffLo;
-      
-      // timestamps are in "cpu cycles"
-      // ULONG ulTime = (ulDiffHi >> 4) | (ulDiffLo << 28);
-      ULONG ulTime = ulDiffLo;
-      
-      if (pPE->ulTimeMinimum > ulTime)
-        pPE->ulTimeMinimum = ulTime;
-      
-      if (pPE->ulTimeMaximum < ulTime)
-        pPE->ulTimeMaximum = ulTime;
-      
-      pPE->ulTimeTotal += ulTime;
-    }
-  }
-
+    ULONG ulDiffHi = time_hi - pPB->enterTimeHi[i];
+    ULONG ulDiffLo = time_lo - pPB->enterTimeLo[i];
+    
+    // test for wrap around
+    if (ulDiffHi)
+      ulDiffLo = ~ulDiffLo;
+    
+    // timestamps are in "cpu cycles"
+    // ULONG ulTime = (ulDiffHi >> 4) | (ulDiffLo << 28);
+    ULONG ulTime = ulDiffLo;
+    
+    if (pPE->ulTimeMinimum > ulTime)
+      pPE->ulTimeMinimum = ulTime;
+    
+    if (pPE->ulTimeMaximum < ulTime)
+      pPE->ulTimeMaximum = ulTime;
+    
+    pPE->ulTimeTotal += ulTime;
+  }
+  
+  // DosExitCritSec();
+  SetFS(sel);
   
   // 2 - return saved return address
@@ -657 +662 @@
   
   return iAvg1 - iAvg2;
+}
+
+int _Optlink sortHashtableEntries4(const void *arg1,const void *arg2)
+{
+  PHASHTABLEENTRYID pHTE1 = (PHASHTABLEENTRYID)arg1;
+  PHASHTABLEENTRYID pHTE2 = (PHASHTABLEENTRYID)arg2;
+  
+  PPROFILEENTRY p1 = (PPROFILEENTRY)pHTE1->pObject;
+  PPROFILEENTRY p2 = (PPROFILEENTRY)pHTE2->pObject;
+  
+  return p1->EIP - p2->EIP;
 }
 
@@ -785 +801 @@
   
   
+  // sort the list by address
+  qsort(arrEntries,
+        iEntries,
+        sizeof( HASHTABLEENTRYID ),
+        sortHashtableEntries4);
+  
+  
+  // write to file
+  fprintf(file,
+          "Functions / symbols sorted by address\n"
+          "Address ----- Function / Symbol -------------------------------------------\n");
+  for(i = 0;
+      i < iEntries;
+      i++)
+  {
+    PPROFILEENTRY p = (PPROFILEENTRY)arrEntries[i].pObject;
+    if (p->ulCalls > 1)
+    fprintf(file,
+            "#%08xh %-9s %s\n",
+            p->EIP,
+            p->pszModule,
+            p->pszFunction);
+  }
+  
+
   ProfilerEnable(flagLock);
 }
@@ -794 +835 @@
   char szFilename[260];
   USHORT sel = RestoreOS2FS();
-
-  sprintf(szFilename, "%s\\perf.log", szWorkingDirectory);
+  int pid = _getpid();
+
+  sprintf(szFilename, "%s\\%d.prof", szWorkingDirectory, pid);
   _privateLogFile = fopen(szFilename, "w");