===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/isolv.c,v
retrieving revision 1.3
retrieving revision 1.6
diff -u -p -r1.3 -r1.6
--- OpenXM_contrib2/asir2000/builtin/isolv.c	2003/10/23 01:32:59	1.3
+++ OpenXM_contrib2/asir2000/builtin/isolv.c	2006/12/22 05:00:08	1.6
@@ -1,5 +1,5 @@
 /*
- * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.2 2003/10/20 07:32:19 saito Exp $
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/isolv.c,v 1.5 2005/07/14 22:46:03 kondoh Exp $
  */
 
 #include "ca.h"
@@ -66,7 +66,7 @@ Obj  *rp;
 			fprintf(stderr,"solve,");
 			error(" : Sorry, not yet implement of multivars");
 			break;
-		defaults:
+		default:
 			*rp = 0;
 	}
 }
@@ -77,7 +77,8 @@ NODE arg;
 Obj  *rp;
 {
 	pointer	p, Eps;
-	pointer	root, listp;
+	pointer	root;
+	LIST		listp;
 	V			v;
 	Q			eps;
 	NODE		n, n0, m0, m, ln0;
@@ -117,18 +118,18 @@ Obj  *rp;
 				ToBf(r, &breal);
 				NEXTNODE( n0, n );
 				MKNODE(ln0, breal, NEXT(m));
-				MKLIST((LIST)listp, ln0);
+				MKLIST(listp, ln0);
 				BDY(n) = (pointer)listp;
 			}
 			NEXT(n) = 0;
-			MKLIST((LIST)listp,n0);
+			MKLIST(listp,n0);
 			*rp = (pointer)listp;
 			break;
 		case O_LIST:
 			fprintf(stderr,"solve,");
 			error(" : Sorry, not yet implement of multivars");
 			break;
-		defaults:
+		default:
 			*rp = 0;
 	}
 }
@@ -285,7 +286,7 @@ MAT root;
 {
 	Q	a, b, c, d, e;
 	P	p;
-	p = (P*)BDY(root)[indx][3];
+	p = (P)BDY(root)[indx][3];
 	addq(BDY(root)[indx][0], BDY(root)[indx][1], &c);
 	divq(c, TWO, &d);
 	ueval(p, BDY(root)[indx][1], &a);