===================================================================
RCS file: /home/cvs/OpenXM_contrib2/asir2000/builtin/dp-supp.c,v
retrieving revision 1.8
retrieving revision 1.10
diff -u -p -r1.8 -r1.10
--- OpenXM_contrib2/asir2000/builtin/dp-supp.c	2000/12/08 06:43:09	1.8
+++ OpenXM_contrib2/asir2000/builtin/dp-supp.c	2000/12/11 02:00:40	1.10
@@ -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/builtin/dp-supp.c,v 1.7 2000/12/08 02:39:04 noro Exp $ 
+ * $OpenXM: OpenXM_contrib2/asir2000/builtin/dp-supp.c,v 1.9 2000/12/08 08:26:08 noro Exp $ 
 */
 #include "ca.h"
 #include "base.h"
@@ -292,7 +292,7 @@ DP p,*rp;
 		if ( PCoeffs ) {
 			dp_ptozp(p,rp); return;
 		}	
-		if ( !dist || p_mag(BDY(p)->c) <= mpi_mag ) {
+		if ( !Dist || p_mag(BDY(p)->c) <= mpi_mag ) {
 			dist = 0; ndist = 0;
 			if ( DP_NFStat ) fprintf(asir_out,"L");
 		} else {
@@ -731,6 +731,8 @@ P *dnp;
 	*head = h; *rest = r; *dnp = c2;
 }
 
+struct oEGT eg_red_mod;
+
 void _dp_red_mod_destructive(p1,p2,mod,rp)
 DP p1,p2;
 int mod;
@@ -741,6 +743,7 @@ DP *rp;
 	MP m;
 	DP t,s;
 	int c,c1;
+struct oEGT t0,t1;
 
 	n = p1->nv; d1 = BDY(p1)->dl; d2 = BDY(p2)->dl;
 	_NEWDL(d,n); d->td = d1->td - d2->td;
@@ -750,7 +753,9 @@ DP *rp;
 	_NEWMP(m); m->dl = d; m->c = STOI(mod-c1); NEXT(m) = 0;
 	_MKDP(n,m,s); s->sugar = d->td;
 	_mulmd_dup(mod,s,p2,&t); _free_dp(s);
+/* get_eg(&t0); */
 	_addmd_destructive(mod,p1,t,rp);
+/* get_eg(&t1); add_eg(&eg_red_mod,&t0,&t1); */
 }
 
 /*