Imported Upstream version 9.5.0upstream/9.5.0upstream

1 files changed, 0 insertions, 23 deletions

diff --git a/src/common/alloc.c b/src/common/alloc.c
index 7a048b1..e3b7503 100644
--- a/src/common/alloc.c
+++ b/src/common/alloc.c
@@ -4,11 +4,6 @@
 
 #include "../h/gsupport.h"
 
-#ifdef TypTrc
-   int typealloc = 0;		/* type allocation switch */
-   long typespace = 0;		/* type allocation amount */
-#endif					/* TypTrc */
-
 /*
  * salloc - allocate and initialize string
  */
@@ -35,24 +30,6 @@ unsigned int n;
    {
    register pointer a;
 
-#ifdef AllocTrace
-   static int sum = 0;
-#endif					/* AllocTrace */
-
-#ifdef TypTrc
-   if (typealloc)
-      typespace += (long)n;
-#endif					/* TypTrc */
-
-#ifdef AllocTrace
-   sum = sum + n;
-   if (sum > 5000) {
-      fprintf(stderr, ".");
-      fflush(stderr);
-      sum = 0;
-      };
-#endif					/* AllocTrace */
-
    if (n == 0)				/* Work-around for 0 allocation */
       n = 1;