[agd-cvs] server/src object.c,1.17,1.18

[Peep P. <so...@us...>]

Update of /cvsroot/agd/server/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8408

Modified Files:
	object.c 
Log Message:
Cleaned headers.

Index: object.c
===================================================================
RCS file: /cvsroot/agd/server/src/object.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- object.c	14 Jun 2004 20:58:32 -0000	1.17
+++ object.c	21 Jul 2004 11:55:39 -0000	1.18
@@ -1,11 +1,8 @@
-/*
-#include "config.h"
-*/
 #include <stdlib.h>
+/*#include "config.h"*/
+/*#include "arch.h"*/
 #include "compile_options.h"
 #include "sys.h"
-
-/*#include "arch.h"*/
 #include "list.h"
 #include "lpc.h"
 #include "object.h"
@@ -107,6 +104,10 @@
 
 	list_remove(&ob->refs, v);
 	ob->numref--;
+	if(ob->numref <= 0) {
+		printf("refs for %s = 0\n", ob->name);
+		destruct(ob);
+	}
 }
 
 void unref_prog(program_t **prog)