[agd-cvs] server/src object.c,1.6,1.7

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

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

Modified Files:
	object.c 
Log Message:
Check for NULL in unref_prog.

Index: object.c
===================================================================
RCS file: /cvsroot/agd/server/src/object.c,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -d -r1.6 -r1.7
--- object.c	15 Mar 2004 18:52:39 -0000	1.6
+++ object.c	16 Mar 2004 14:13:24 -0000	1.7
@@ -108,6 +108,9 @@
 /* Returns 1 if program was freed. */
 int unref_prog(program_t *prog)
 {
+	if(!prog)
+		return 0;
+
 	prog->ref--;
 	if(prog->ref <= 0) {
 		free_array(&prog->functions, free_fun);