===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/compile.c,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -p -r1.5 -r1.6
--- OpenXM_contrib2/asir2000/parse/compile.c	2003/05/14 06:20:11	1.5
+++ OpenXM_contrib2/asir2000/parse/compile.c	2015/08/08 14:19:42	1.6
@@ -45,7 +45,7 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/parse/compile.c,v 1.4 2003/02/14 22:29:17 ohara Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/parse/compile.c,v 1.5 2003/05/14 06:20:11 noro Exp $ 
 */
 #include <ctype.h>
 #include "ca.h"
@@ -166,6 +166,9 @@ FNODE f;
 			break;
 		default:
 			fprintf(stderr,"compile: unknown id");
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 			break;
 	}
@@ -273,6 +276,9 @@ SNODE f;
 			f_break = 0; break;
 		default:
 			fprintf(stderr,"compilestat: unknown id");
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 			break;
 	}
@@ -306,12 +312,18 @@ FNODE a;
 
 	if ( f->id == A_UNDEF ) {
 		fprintf(stderr,"%s undefined",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+		fflush(stderr);
+#endif
 		error("");
 	}
 	if ( f->id != A_PARI ) {
 		for ( i = 0, tn = a?(NODE)FA0(a):0; tn; i++, tn = NEXT(tn) );
 		if ( ((n = f->argc)>= 0 && i != n) || (n < 0 && i > -n) ) {
 			fprintf(stderr,"argument mismatch in %s()",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 		}
 	}
@@ -362,6 +374,9 @@ FNODE a;
 			val = compilepf(f->f.puref,a); break;
 		default:
 			fprintf(stderr,"%s undefined",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 			break;
 	}
@@ -428,12 +443,18 @@ NODE a;
 
 	if ( f->id == A_UNDEF ) {
 		fprintf(stderr,"%s undefined",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+		fflush(stderr);
+#endif
 		error("");
 	}
 	if ( f->id != A_PARI ) {
 		for ( i = 0, tn = a; tn; i++, tn = NEXT(tn) );
 		if ( ((n = f->argc)>= 0 && i != n) || (n < 0 && i > -n) ) {
 			fprintf(stderr,"argument mismatch in %s()",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 		}
 	}
@@ -475,6 +496,9 @@ NODE a;
 			break;
 		default:
 			fprintf(stderr,"%s undefined",NAME(f));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			error("");
 			break;
 	}
@@ -491,6 +515,9 @@ FNODE f,a;
 		return compilef((FUNC)VR((P)g)->priv,a);
 	else {
 		fprintf(stderr,"invalid function pointer");
+#if defined(__MINGW32__) || defined(__MINGW64__)
+		fflush(stderr);
+#endif
 		error("");
 	}
 }
@@ -510,6 +537,9 @@ FNODE a;
 	for ( i = 0, node = a?(NODE)FA0(a):0; node; i++, node = NEXT(node) );
 	if ( pf->argc != i ) {
 		fprintf(stderr,"argument mismatch in %s()",NAME(pf));
+#if defined(__MINGW32__) || defined(__MINGW64__)
+		fflush(stderr);
+#endif
 		error("");
 	}
 	args = (LIST)compile(a);
@@ -607,12 +637,18 @@ MODULE module;
 	searchf(sysf,name,&f);
 	if ( f ) {
 		fprintf(stderr,"def : builtin function %s() cannot be redefined.\n",name);
+#if defined(__MINGW32__) || defined(__MINGW64__)
+		fflush(stderr);
+#endif
 		CPVS = GPVS; return;
 	}
 	for ( argc = 0, sn = args; sn; argc++, sn = NEXT(sn) ) {
 		fn = (FNODE)BDY(sn);
 		if ( !fn || ID(fn) != I_PVAR ) {
 			fprintf(stderr,"illegal	argument in %s()\n",name);
+#if defined(__MINGW32__) || defined(__MINGW64__)
+			fflush(stderr);
+#endif
 			CPVS = GPVS; return;
 		}
 	}
@@ -626,6 +662,9 @@ MODULE module;
 	}
 	if ( Verbose && f->id != A_UNDEF )
 		fprintf(stderr,"Warning : %s() redefined.\n",name);
+#if defined(__MINGW32__) || defined(__MINGW64__)
+	fflush(stderr);
+#endif
 /*	else
 		fprintf(stderr,"%s() defined.\n",name); */
 	t=(USRF)MALLOC(sizeof(struct oUSRF));