From 2fdae985de51053976c681ea97b2f8f8472d68f2 Mon Sep 17 00:00:00 2001
From: Arne Goedeke <el@laramies.com>
Date: Wed, 2 Jul 2014 11:49:58 +0200
Subject: [PATCH] type system: do not over allocate pike_type_mark_stack

---
 src/pike_types.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/pike_types.c b/src/pike_types.c
index 062c66f072..0c19cb23b9 100644
--- a/src/pike_types.c
+++ b/src/pike_types.c
@@ -8719,7 +8719,7 @@ void init_types(void)
   if( !type_stack )
     type_stack = xalloc(sizeof(struct pike_type *)*PIKE_TYPE_STACK_SIZE);
   if( !pike_type_mark_stack )
-    pike_type_mark_stack = xalloc(sizeof(struct pike_type *)*PIKE_TYPE_STACK_SIZE);
+    pike_type_mark_stack = xalloc(sizeof(struct pike_type *)*PIKE_TYPE_STACK_SIZE / 4);
 
   Pike_compiler->type_stackp = type_stack;
   Pike_compiler->pike_type_mark_stackp = pike_type_mark_stack;
-- 
GitLab