From 027022c214a331babe2211c8ccd082da67e75f4a Mon Sep 17 00:00:00 2001
From: skimo <skimo>
Date: Sat, 28 Feb 2004 22:32:23 +0000
Subject: [PATCH] Dr. Egon Spengler: There's something very important I forgot
 to tell you. Dr. Peter Venkman: What? Dr. Egon Spengler: Don't cross the
 streams. Dr. Peter Venkman: Why? Dr. Egon Spengler: It would be bad.

---
 util.c | 11 ++++++++---
 1 file changed, 8 insertions(+), 3 deletions(-)

diff --git a/util.c b/util.c
index 2472e8d..9f52fcf 100644
--- a/util.c
+++ b/util.c
@@ -749,9 +749,14 @@ Polyhedron* ParamPolyhedron_Reduce(Polyhedron *P, unsigned nvar,
 Polyhedron* ParamPolyhedron_Reduce(Polyhedron *P, unsigned nvar, 
 				   evalue* factor)
 {
-    Polyhedron *R = ParamPolyhedron_Reduce_mod(P, nvar, factor);
-    evalue_mod2table(factor, P->Dimension - nvar);
-    reduce_evalue(factor);
+    evalue tmp;
+    value_init(tmp.d);
+    evalue_set_si(&tmp, 1, 1);
+    Polyhedron *R = ParamPolyhedron_Reduce_mod(P, nvar, &tmp);
+    evalue_mod2table(&tmp, P->Dimension - nvar);
+    reduce_evalue(&tmp);
+    emul(&tmp, factor);
+    free_evalue_refs(&tmp); 
     return R;
 }
 #endif
-- 
2.11.4.GIT