[agd-cvs] server/src compile.c,1.28,1.29

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

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

Modified Files:
	compile.c 
Log Message:
string.h for strerror; manual yylloc declaration; set prog to NULL if file not found

Index: compile.c
===================================================================
RCS file: /cvsroot/agd/server/src/compile.c,v
retrieving revision 1.28
retrieving revision 1.29
diff -u -d -r1.28 -r1.29
--- compile.c	21 Jul 2004 12:09:47 -0000	1.28
+++ compile.c	23 Jul 2004 14:24:55 -0000	1.29
@@ -1,5 +1,6 @@
 #include <stdlib.h>
 #include <stdio.h>
+#include <string.h>
 #include <errno.h>
 #include <sys/time.h>
 #include <time.h>
@@ -15,6 +16,8 @@
 #include "instr.h"
 #include "lang.h"
 
+extern YYLTYPE yylloc;
+
 extern object_t *this_ob;
 
 program_t *this_prog;
@@ -603,7 +606,7 @@
 	yyin = fopen(real_path, "r");
 	if(!yyin) {
 		printf("failed (can't open %s: %s)\n", real_path, strerror(errno));
-		this_prog = 0;
+		prog = NULL;
 		goto out;
 	}
 
@@ -633,13 +636,13 @@
 					compile_warnings == 1 ? "": "s");
 		}
 		printf(" - failed\n");
-		free(this_prog);
+		free(prog);
 		prog = NULL;
 		goto out;
 	}
 	
 	if(check_fun_definitions()) {
-		free(this_prog);
+		free(prog);
 		prog = NULL;
 		goto out;
 	}