bug fix in multicore gc

[IRC.git] / Robust / src / Runtime / multicoreruntime.c

diff --git a/Robust/src/Runtime/multicoreruntime.c b/Robust/src/Runtime/multicoreruntime.c
index 3b1c9cf48654db386bffc1d6e2a79b06dcaa35ed..9810053f865cb640b46f161b6ecf8e8e5ddebe73 100644 (file)
--- a/Robust/src/Runtime/multicoreruntime.c
+++ b/Robust/src/Runtime/multicoreruntime.c
@@ -191,6 +191,9 @@ void CALL01(___System______printString____L___String___,struct ___String___ * __
 #ifdef MULTICORE_GC
 void * allocate_new(void * ptr, int type) {
   struct ___Object___ * v=(struct ___Object___ *)FREEMALLOC((struct garbagelist *) ptr, classsize[type]);
+#ifdef GC_DEBUG
+       tprintf("new object: %x \n", v);
+#endif
   v->type=type;
   v->version = 0;
   v->lock = NULL;
@@ -202,6 +205,9 @@ void * allocate_new(void * ptr, int type) {
 
 struct ArrayObject * allocate_newarray(void * ptr, int type, int length) {
   struct ArrayObject * v=(struct ArrayObject *)FREEMALLOC((struct garbagelist *) ptr, sizeof(struct ArrayObject)+length*classsize[type]);
+#ifdef GC_DEBUG
+       tprintf("new array object: %x \n", v);
+#endif
   v->type=type;
   v->version = 0;
   v->lock = NULL;