===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/io/pexpr_body.c,v
retrieving revision 1.12
retrieving revision 1.18
diff -u -p -r1.12 -r1.18
--- OpenXM_contrib2/asir2000/io/pexpr_body.c	2006/04/16 00:51:14	1.12
+++ OpenXM_contrib2/asir2000/io/pexpr_body.c	2015/08/14 13:51:55	1.18
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.11 2005/12/10 14:14:15 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/io/pexpr_body.c,v 1.17 2015/08/08 14:19:42 fujimoto Exp $ */
 
 #define PRINTHAT (fortran_output?PUTS("**"):PUTS("^"))
 
@@ -689,7 +689,7 @@ Num q;
 						int i,expo;
 
 						m = (unsigned int *)&BDY((Real)q);
-#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)
+#if defined(__i386__) || defined(MIPSEL) || defined(VISUAL) || defined(__MINGW32__) || defined(__alpha) || defined(__FreeBSD__) || defined(__NetBSD__) || defined(__x86_64)
 						u = m[1]; l = m[0];
 #else
 						u = m[0]; l = m[1];
@@ -765,10 +765,8 @@ Num q;
 		case N_A:
 			PUTS("("); PRINTR(ALG,(R)BDY((Alg)q)); PUTS(")");
 			break;
-#if defined(PARI)
 		case N_B:
 			PRINTBF((BF)q); break;
-#endif
 #if defined(INTERVAL)
 		case N_IP:
 		case N_IntervalBigFloat:
@@ -890,6 +888,12 @@ Num q;
 				PRINTN(NM(dn));
 			}
 			break;
+		case N_GZ:
+			mpz_out_str(OUT,10,BDY((GZ)q));
+			break;
+		case N_GQ:
+			mpq_out_str(OUT,10,BDY((GQ)q));
+			break;
 	}
 }
 
@@ -1092,10 +1096,12 @@ void PRINTNBP(VL vl,NBP p)
 			PUTS(")*");
 			d = m->d;
 			b = m->b;
-			for ( i = 0; i < d; i++ ) {
-				if ( NBM_GET(b,i) ) PUTS("x");
-				else PUTS("y");
-			}
+			if ( d ) 
+				for ( i = 0; i < d; i++ ) {
+					if ( NBM_GET(b,i) ) PUTS("x");
+					else PUTS("y");
+				}
+			else PUTS("1");
 			if ( NEXT(t) ) PUTS("+");
 		}
 	}