Changeset 7010 for trunk/src/kernel32

Timestamp:

Oct 11, 2001, 3:00:12 AM (24 years ago)

Author:

phaller

Message:

added ODIN perfview profiler

Location:

trunk/src/kernel32

Files:

• KERNEL32.DEF (modified) (2 diffs)
• ccollection.cpp (modified) (2 diffs)
• kernel32.mak (modified) (2 diffs)
• wprocess.cpp (modified) (2 diffs)

trunk/src/kernel32/KERNEL32.DEF

@@ -1 @@
-; $Id: KERNEL32.DEF,v 1.124 2001-10-03 13:48:56 sandervl Exp $
+; $Id: KERNEL32.DEF,v 1.125 2001-10-11 00:59:42 phaller Exp $
 
 ;Basis is Windows95 KERNEL32
@@ -1199 +1199 @@
     _dbg_IncThreadCallDepth@0                                     @3101 NONAME
     _dbg_DecThreadCallDepth@0                                     @3102 NONAME
+    PerfView_RegisterCall                                         @3103 NONAME
+    PerfView_DumpProfile                                          @3104 NONAME
+    PerfView_Write                                                @3105 NONAME

trunk/src/kernel32/ccollection.cpp

@@ -1 @@
-/* $Id: ccollection.cpp,v 1.6 2001-06-01 01:21:13 phaller Exp $ */
+/* $Id: ccollection.cpp,v 1.7 2001-10-11 00:59:43 phaller Exp $ */
 
 /*
@@ -780 +780 @@
 
 
+int CHashtableLookup::getElementMap(PHASHTABLEENTRY pBuffer)
+{
+  int iIndex = 0;
+  
+  // iterate over all registered entries and dump them to the buffer
+  // giving the caller direct access to the hashtable internals.
+  for (int i = 0;
+       i < iSize;
+       i++)
+  {
+    // check if slot was occupied
+    if (parrLists[i] != NULL)
+    {
+      // walk along any entry in that linear list
+      PLINEARLISTENTRY pLLE = parrLists[i]->getFirst();
+      
+      while (pLLE)
+      {
+        PHASHTABLEENTRY pHTE = (PHASHTABLEENTRY)pLLE->pObject;
+        memcpy(&pBuffer[iIndex], pHTE, sizeof( HASHTABLEENTRY ) );
+        iIndex++;
+        
+        pLLE = parrLists[i]->getNext(pLLE);
+      }
+    }
+  }
+  
+  // return number of elements copied
+  return iIndex;
+}
+
+
 void  CHashtableLookup::setSize0(int iNewSize)
 {

trunk/src/kernel32/kernel32.mak

@@ -1 @@
-# $Id: kernel32.mak,v 1.14 2001-09-30 08:50:59 bird Exp $
+# $Id: kernel32.mak,v 1.15 2001-10-11 00:59:44 phaller Exp $
 
 #
@@ -25 +25 @@
 $(OBJDIR)\kernel32.obj \
 $(OBJDIR)\ccollection.obj \
+$(OBJDIR)\perfview.obj \
 $(OBJDIR)\kobjects.obj \
 $(OBJDIR)\console.obj \

trunk/src/kernel32/wprocess.cpp

@@ -1 @@
-/* $Id: wprocess.cpp,v 1.134 2001-09-26 16:02:54 phaller Exp $ */
+/* $Id: wprocess.cpp,v 1.135 2001-10-11 01:00:12 phaller Exp $ */
 
 /*
@@ -429 +429 @@
     }
     threadListMutex.leave();
-
+  
+  
+#ifdef PROFILE
+  // Note: after this point we do not expect any more Win32-API calls,
+  // so this is probably the best time to dump the gathered profiling
+  // information
+  PerfView_Write();
+#endif /* PROFILE */
+  
+
+  
     //Restore original OS/2 TIB selector
     DestroyTIB();