===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/glob.c,v
retrieving revision 1.4
retrieving revision 1.7
diff -u -p -r1.4 -r1.7
--- OpenXM_contrib2/asir2000/parse/glob.c	2000/01/19 01:49:36	1.4
+++ OpenXM_contrib2/asir2000/parse/glob.c	2000/07/13 05:09:03	1.7
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.3 2000/01/11 06:43:38 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.6 2000/06/05 03:21:58 noro Exp $ */
 #include "ca.h"
 #include "al.h"
 #include "parse.h"
@@ -152,6 +152,12 @@ static char asir_history[BUFSIZ];
 
 extern int mpi_myid;
 
+#if !defined(VISUAL_LIB)
+void ExitAsir() {
+	exit(0);
+}
+#endif
+
 /*
  * status = 1 abnormal termination (error() etc.)
  * status = 2 normal termination (end(), quit() etc.)
@@ -667,8 +673,12 @@ char *s;
 	fprintf(stderr,"%s\n",s);
 	set_lasterror(s);
 	if ( CPVS != GPVS ) {
-		searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
-		error_snode = *snp;
+		if ( CPVS->usrf && CPVS->usrf && CPVS->usrf->f.usrf )
+			searchsn(&BDY(CPVS->usrf->f.usrf),evalstatline,&snp);
+		if ( snp )
+			error_snode = *snp;
+		else
+			error_snode = 0;
 	} else
 		error_snode = 0;
 	if ( do_file ) {
@@ -725,3 +735,4 @@ void copyright() {
 	printf("Copyright (C) FUJITSU LABORATORIES LIMITED.\n");
 	printf("1994-1999. All rights reserved.\n");
 }
+