Changeset 1438 in kBuild

Timestamp:

Mar 29, 2008 1:49:27 AM (17 years ago)

Author:

bird

Message:

Added $(make-stats ) that provides access to memory and hash stats (if CONFIG_WITH_MAKE_STATS is defined).

Location:

trunk/src/kmk

Files:

• Makefile.am (modified) (1 diff)
• Makefile.kmk (modified) (1 diff)
• function.c (modified) (3 diffs)
• hash.c (modified) (2 diffs)
• make.h (modified) (1 diff)
• misc.c (modified) (5 diffs)
• variable.c (modified) (3 diffs)

trunk/src/kmk/Makefile.am

@@ -125 +125 @@
         -DCONFIG_WITH_WHICH \
         -DCONFIG_WITH_EVALCTX \
+        -DCONFIG_WITH_MAKE_STATS \
         -DCONFIG_PRETTY_COMMAND_PRINTING \
         \

trunk/src/kmk/Makefile.kmk

@@ -125 +125 @@
         CONFIG_WITH_WHICH \
         CONFIG_WITH_EVALCTX \
+        CONFIG_WITH_MAKE_STATS \
         CONFIG_PRETTY_COMMAND_PRINTING \
         \

trunk/src/kmk/function.c

@@ -116 +116 @@
 
 static struct hash_table function_table;
+
+#ifdef CONFIG_WITH_MAKE_STATS
+unsigned long make_stats_allocations = 0;
+unsigned long make_stats_allocated = 0;
+unsigned long make_stats_allocated_sum = 0;
+unsigned long make_stats_ht_lookups = 0;
+unsigned long make_stats_ht_collisions = 0;
+#endif
 
 
@@ -3460 +3468 @@
 #endif  /* CONFIG_WITH_OS2_LIBPATH */
 
+#ifdef CONFIG_WITH_MAKE_STATS
+/* Retrieve make statistics. */
+static char *
+func_make_stats (char *o, char **argv, const char *funcname)
+{
+  char buf[512];
+  int len;
+
+  if (!argv[0] || (!argv[0][0] && !argv[1]))
+    {
+      len = sprintf (buf, "alloc-cur: %5lu %6luKB (/%3luMB)  hash: %5lu %2lu%%", 
+                     make_stats_allocations, 
+                     make_stats_allocated / 1024, 
+                     make_stats_allocated_sum / (1024*1024), 
+                     make_stats_ht_lookups,
+                     (make_stats_ht_collisions * 100) / make_stats_ht_lookups);
+      o = variable_buffer_output (o, buf, len);
+    }
+  else
+    { 
+      /* selective */
+      int i;
+      for (i = 0; argv[i]; i++)
+        {
+          unsigned long val;
+          if (i != 0)
+            o = variable_buffer_output (o, " ", 1);
+          if (!strcmp(argv[i], "allocations"))
+            val = make_stats_allocations;
+          else if (!strcmp(argv[i], "allocated"))
+            val = make_stats_allocated;
+          else if (!strcmp(argv[i], "allocated_sum"))
+            val = make_stats_allocated_sum;
+          else if (!strcmp(argv[i], "ht_lookups"))
+            val = make_stats_ht_lookups;
+          else if (!strcmp(argv[i], "ht_collisions"))
+            val = make_stats_ht_collisions;
+          else if (!strcmp(argv[i], "ht_collisions_pct"))
+            val = (make_stats_ht_collisions * 100) / make_stats_ht_lookups;
+          else
+            {  
+              o = variable_buffer_output (o, argv[i], strlen (argv[i]));
+              continue;
+            }
+
+          len = sprintf (buf, "%ld", val);
+          o = variable_buffer_output (o, buf, len);
+        }
+    }
+  return o;
+}
+#endif
+
 /* Lookup table for builtin functions.
 
@@ -3576 +3637 @@
   { STRING_SIZE_TUPLE("libpath"),       1,  2,  1,  func_os2_libpath},
 #endif
+#ifdef CONFIG_WITH_MAKE_STATS
+  { STRING_SIZE_TUPLE("make-stats"),    0, ~0,  0,  func_make_stats},
+#endif
 #ifdef KMK_HELPERS
   { STRING_SIZE_TUPLE("kb-src-tool"),   1,  1,  0,  func_kbuild_source_tool},

trunk/src/kmk/hash.c

@@ -92 +92 @@
 
   ht->ht_lookups++;
+#ifdef CONFIG_WITH_MAKE_STATS
+  make_stats_ht_lookups++;
+#endif
   for (;;)
     {
@@ -111 +114 @@
             return slot;
           ht->ht_collisions++;
+#ifdef CONFIG_WITH_MAKE_STATS
+    make_stats_ht_collisions++;
+#endif
         }
       if (!hash_2)

trunk/src/kmk/make.h

@@ -690 +690 @@
 
 #endif /* __EMX__ (bird) */
+
+#ifdef CONFIG_WITH_MAKE_STATS
+extern unsigned long make_stats_allocations;
+extern unsigned long make_stats_allocated;
+extern unsigned long make_stats_allocated_sum;
+extern unsigned long make_stats_ht_lookups;
+extern unsigned long make_stats_ht_collisions;
+
+# ifdef __APPLE__
+#  include <malloc/malloc.h>
+#  define SIZE_OF_HEAP_BLOCK(ptr)   malloc_size(ptr)
+
+# elif defined(__linux__) /* glibc */
+#  include <malloc.h>
+#  define SIZE_OF_HEAP_BLOCK(ptr)   malloc_usable_size(ptr)
+
+# elif defined(_MSC_VER) || defined(__OS2__)
+#  define SIZE_OF_HEAP_BLOCK(ptr)   _msize(ptr)
+
+# else
+#  include <stdlib.h>
+#  define SIZE_OF_HEAP_BLOCK(ptr)   0
+#endif
+
+# if defined(CONFIG_WITH_MAKE_STATS) && !defined(ELECTRIC_HEAP)
+#  define free xfree
+extern void xfree (void *);
+# endif
+
+#endif
+

trunk/src/kmk/misc.c

@@ -361 +361 @@
   if (result == 0)
     fatal (NILF, _("virtual memory exhausted"));
+#ifdef CONFIG_WITH_MAKE_STATS
+  make_stats_allocations++;
+  make_stats_allocated += SIZE_OF_HEAP_BLOCK (result);
+  make_stats_allocated_sum += SIZE_OF_HEAP_BLOCK (result);
+#endif
   return result;
 }
@@ -369 +374 @@
 {
   void *result;
+#ifdef CONFIG_WITH_MAKE_STATS
+  make_stats_allocated -= SIZE_OF_HEAP_BLOCK (ptr);
+  make_stats_allocated_sum -= SIZE_OF_HEAP_BLOCK (ptr);
+#endif
 
   /* Some older implementations of realloc() don't conform to ANSI.  */
@@ -376 +385 @@
   if (result == 0)
     fatal (NILF, _("virtual memory exhausted"));
+#ifdef CONFIG_WITH_MAKE_STATS
+  make_stats_allocated += SIZE_OF_HEAP_BLOCK (result);
+  make_stats_allocated_sum += SIZE_OF_HEAP_BLOCK (result);
+#endif
   return result;
 }
@@ -394 +407 @@
     fatal (NILF, _("virtual memory exhausted"));
 
+#ifdef CONFIG_WITH_MAKE_STATS
+  make_stats_allocations++;
+  make_stats_allocated += SIZE_OF_HEAP_BLOCK (result);
+  make_stats_allocated_sum += SIZE_OF_HEAP_BLOCK (result);
+#endif
 #ifdef HAVE_STRDUP
   return result;
@@ -924 +942 @@
     }
 }
+
+#if defined(CONFIG_WITH_MAKE_STATS) && !defined(ELECTRIC_HEAP)
+#undef free
+void xfree(void *ptr)
+{
+  if (ptr) 
+    {
+      make_stats_allocations--;
+      make_stats_allocated -= SIZE_OF_HEAP_BLOCK (ptr);
+      free (ptr);
+    }
+}
+#endif
+

trunk/src/kmk/variable.c

@@ -1042 +1042 @@
   && defined (CONFIG_WITH_FILE_SIZE) \
   && defined (CONFIG_WITH_WHICH) \
+  && defined (CONFIG_WITH_EVALCTX) \
+  && defined (CONFIG_WITH_MAKE_STATS) \
   && defined (KMK_HELPERS)
   (void) define_variable ("KMK_FEATURES", 12,
@@ -1058 +1060 @@
                           " file-size"
                           " which"
+                          " evalctx"
+                          " make-stats"
                           " kb-src-tool kb-obj-base kb-obj-suff kb-src-prop kb-src-one "
                           , o_default, 0);
@@ -1102 +1106 @@
   strcat (buf, " which");
 #  endif
+#  if defined (CONFIG_WITH_EVALCTX)
+  strcat (buf, " evalctx");
+#  endif
+#  if defined (CONFIG_WITH_MAKE_STATS)
+  strcat (buf, " make-stats");
+#  endif
 #  if defined (KMK_HELPERS)
   strcat (buf, " kb-src-tool kb-obj-base kb-obj-suff kb-src-prop kb-src-one");