From c5d981cb0cd587084ace73ab42ec74d2fa987755 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Thu, 16 May 1996 00:58:58 +0200
Subject: [PATCH] minor changes

Rev: src/builtin_efuns.c:1.17
Rev: src/config.h:1.4
---
 src/builtin_efuns.c | 6 ++++++
 src/config.h        | 2 ++
 2 files changed, 8 insertions(+)

diff --git a/src/builtin_efuns.c b/src/builtin_efuns.c
index 64ea863c98..c0229c9cc0 100644
--- a/src/builtin_efuns.c
+++ b/src/builtin_efuns.c
@@ -351,11 +351,13 @@ void f_backtrace(INT32 args)
 	ITEM(i)[0].subtype=NUMBER_NUMBER;
 	ITEM(i)[0].type=T_INT;
       }
+      i->type_field = BIT_FUNCTION | BIT_INT | BIT_STRING;
     }else{
       ITEM(a)[frames].type=T_INT;
       ITEM(a)[frames].u.integer=0;
     }
   }
+  a->type_field = BIT_ARRAY | BIT_INT;
 }
 
 void f_add_efun(INT32 args)
@@ -1202,6 +1204,7 @@ void f_sleep(INT32 args)
   }
 }
 
+#ifdef GC2
 void f_gc(INT32 args)
 {
   INT32 tmp;
@@ -1210,6 +1213,7 @@ void f_gc(INT32 args)
   do_gc();
   push_int(tmp - num_objects);
 }
+#endif
 
 #ifdef TYPEP
 #undef TYPEP
@@ -1295,7 +1299,9 @@ void init_builtin_efuns()
   add_efun("upper_case",f_upper_case,"function(string:string)",0);
   add_efun("values",f_values,"function(string|list:int*)|function(array|mapping|object:mixed*)",0);
   add_efun("zero_type",f_zero_type,"function(int:int)",0);
+#ifdef GC2
   add_efun("gc",f_gc,"function(:int)",OPT_SIDE_EFFECT);
+#endif
 }
 
 
diff --git a/src/config.h b/src/config.h
index d905a755de..6fccd9fecb 100644
--- a/src/config.h
+++ b/src/config.h
@@ -36,7 +36,9 @@
 /*
  * Undefine this to disable garabge collection
  */
+#ifndef NO_GC
 #define GC2
+#endif
    
 
 /*
-- 
GitLab