1 files changed, 65 insertions, 0 deletions
diff --git a/src/common/alloc.c b/src/common/alloc.c
new file mode 100644
index 0000000..7a048b1
--- /dev/null
+++ b/src/common/alloc.c
@@ -0,0 +1,65 @@
+/*
+ * alloc.c -- allocation routines for the Icon compiler
+ */
+
+#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
+ */
+
+char *salloc(s)
+char *s;
+   {
+   register char *s1;
+
+   s1 = (char *)malloc(strlen(s) + 1);
+   if (s1 == NULL) {
+      fprintf(stderr, "salloc(%d): out of memory\n", (int)strlen(s) + 1);
+      exit(EXIT_FAILURE);
+      }
+   return strcpy(s1, s);
+   }
+
+/*
+ * alloc - allocate n bytes
+ */
+
+pointer alloc(n)
+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;
+
+   a = calloc(n, sizeof(char));
+   if (a == NULL) {
+      fprintf(stderr, "alloc(%d): out of memory\n", (int)n);
+      exit(EXIT_FAILURE);
+      }
+   return a;
+   }