Changeset 2030 in kBuild

Timestamp:

Nov 3, 2008 2:44:50 AM (16 years ago)

Author:

bird

Message:

misc.c: Implemented heap statistics output for MSC.

File:

• trunk/src/kmk/misc.c (modified) (2 diffs)

trunk/src/kmk/misc.c

@@ -1342 +1342 @@
 
   malloc_zone_statistics (NULL, &s);
-  printf (_("\n# CRT Heap: %zu bytes in use, in %u block, avg %zu bytes/block\n"),
+  printf (_("\n# CRT Heap: %zu bytes in use, in %u blocks, avg %zu bytes/block\n"),
           s.size_in_use, s.blocks_in_use, s.size_in_use / s.blocks_in_use);
   printf (_("#           %zu bytes max in use (high water mark)\n"),
@@ -1349 +1349 @@
           s.size_allocated, s.size_allocated - s.size_in_use);
 # endif /* __APPLE__ */
+
+  /* MSC / Windows  */
+# ifdef _MSC_VER
+  unsigned int blocks_used = 0;
+  unsigned int bytes_used = 0;
+  unsigned int blocks_avail = 0;
+  unsigned int bytes_avail = 0;
+  _HEAPINFO hinfo;
+
+  memset (&hinfo, '\0', sizeof (hinfo));
+  while (_heapwalk(&hinfo) == _HEAPOK)
+    {
+      if (hinfo._useflag == _USEDENTRY)
+        {
+          blocks_used++;
+          bytes_used += hinfo._size;
+        }
+      else
+        {
+          blocks_avail++;
+          bytes_avail += hinfo._size;
+        }
+    }
+
+  printf (_("\n# CRT Heap: %u bytes in use, in %u blocks, avg %u bytes/block\n"),
+          bytes_used, blocks_used, bytes_used / blocks_used);
+  printf (_("#           %u bytes avail, in %u blocks, avg %u bytes/block\n"),
+          bytes_avail, blocks_avail, bytes_avail / blocks_avail);
+# endif /* _MSC_VER */
 
   /* Darwin Libc sources indicates that something like this may be