===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/parse/debug.c,v
retrieving revision 1.10
retrieving revision 1.13
diff -u -p -r1.10 -r1.13
--- OpenXM_contrib2/asir2000/parse/debug.c	2001/10/09 01:36:23	1.10
+++ OpenXM_contrib2/asir2000/parse/debug.c	2003/03/07 03:12:31	1.13
@@ -45,12 +45,12 @@
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *
- * $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.9 2001/10/05 03:21:27 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/parse/debug.c,v 1.12 2003/02/14 22:29:18 ohara Exp $ 
 */
 #include "ca.h"
 #include "parse.h"
 #include <ctype.h>
-#if PARI
+#if defined(PARI)
 #include "genpari.h"
 #endif
 
@@ -78,7 +78,7 @@ static int curline = 1;
 extern NODE PVSS;
 extern unsigned int evalstatline;
 extern int debug_mode;
-extern jmp_buf debug_env;
+extern JMP_BUF debug_env;
 
 char *debcom[] = {
 	"next",
@@ -232,7 +232,7 @@ void debug(SNODE f)
 #endif
 		show_debug_window(1);
 	sprintf(prompt,"(debug) ");
-	setjmp(debug_env);
+	SETJMP(debug_env);
 	while ( 1 ) {
 #if FEP
 		if ( !do_fep )
@@ -761,12 +761,12 @@ void printvars(char *s,VS vs)
 		}
 	if ( exprparse(vs==GPVS?0:vs->usrf,s,&expr) ) {
 		cpvs = CPVS; CPVS = vs;
-		if ( !(err = setjmp(debug_env)) )
+		if ( !(err = SETJMP(debug_env)) )
 			val = eval(expr); 
 		CPVS = cpvs;
 		if ( !err ) {
-#if PARI
-#if PARI1
+#if defined(PARI)
+#if defined(PARI1)
 			outfile = stderr;
 #else
 			pari_outfile = stderr;
@@ -784,8 +784,8 @@ void printvars(char *s,VS vs)
 #if defined(VISUAL_LIB)
 			w_noflush_stderr(0);
 #endif
-#if PARI
-#if PARI1
+#if defined(PARI)
+#if defined(PARI1)
 			outfile = stdout;
 #else
 			pari_outfile = stdout;