===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/engine/Fgfs.c,v
retrieving revision 1.18
retrieving revision 1.21
diff -u -p -r1.18 -r1.21
--- OpenXM_contrib2/asir2000/engine/Fgfs.c	2003/01/17 00:17:10	1.18
+++ OpenXM_contrib2/asir2000/engine/Fgfs.c	2004/04/03 05:52:56	1.21
@@ -1,4 +1,4 @@
-/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.17 2003/01/13 06:40:41 noro Exp $ */
+/* $OpenXM: OpenXM_contrib2/asir2000/engine/Fgfs.c,v 1.20 2004/02/03 23:31:57 noro Exp $ */
 
 #include "ca.h"
 
@@ -497,12 +497,12 @@ void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)
 	MP t;
 	int i,m;
 	P *ps;
-	struct order_spec spec, currentspec;
-	extern struct order_spec dp_current_spec;
+	struct order_spec *spec, *currentspec;
+	extern struct order_spec *dp_current_spec;
 
 	currentspec = dp_current_spec;
-	create_order_spec(0,&spec);
-	initd(&spec);
+	create_order_spec(0,0,&spec);
+	initd(spec);
 	ptod(vl,rvl,p,&dp);
 	for ( t = BDY(dp), m = 0; t; t = NEXT(t), m++ );
 	ps = (P *)ALLOCA(m*sizeof(P));
@@ -510,7 +510,7 @@ void cont_pp_mv_sf(VL vl,VL rvl,P p,P *c,P *pp)
 		ps[i] = C(t);
 	gcdsf(vl,ps,m,c);
 	divsp(vl,p,*c,pp);
-	initd(&currentspec);
+	initd(currentspec);
 }
 
 void mfctrsf(VL vl, P f, DCP *dcp)
@@ -561,7 +561,7 @@ void mfctrsfmain(VL vl, P f, DCP *dcp)
 		return;
 	}
 	for ( n = 0, tvl = vl; tvl; tvl = NEXT(tvl), n++ );
-	va = (V *)ALLOCA(n*sizeof(int));
+	va = (V *)ALLOCA(n*sizeof(V));
 	da = (int *)ALLOCA(n*sizeof(int));
 	/* find v s.t. diff(f,v) is nonzero and deg(f,v) is minimal */
 	imin = -1;