Dirty,normalize and long numbers in polyratfun

vermaseren · Jul 9, 2015 · 4cec87d · 4cec87d
1 parent 1470321
commit 4cec87d
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 3 deletions.
diff --git a/sources/proces.c b/sources/proces.c
@@ -4733,7 +4733,8 @@ WORD PrepPoly(PHEAD WORD *term)
 		v = m;
 		*v++ = AR.PolyFun;
 		*v++ = FUNHEAD + 2*(ARGHEAD+sizenum+sizeden+2);
-		FILLFUN(v);
+		*v++ = CLEANPRF;
+		FILLFUN3(v);
 		*v++ = ARGHEAD+2*sizenum+2;
 		*v++ = 0;
 		FILLARG(v);
@@ -4757,7 +4758,9 @@ WORD PrepPoly(PHEAD WORD *term)
 		{
 			WORD oldtype = AR.SortType;
 			AR.SortType = SORTHIGHFIRST;
-/*			poly_ratfun_normalize(BHEAD term); */
+			if ( count > 0 )
+				poly_ratfun_normalize(BHEAD term);
+			else
 				ReadPolyRatFun(BHEAD term);
 			AR.SortType = oldtype;
 		}

diff --git a/sources/ratio.c b/sources/ratio.c
@@ -2644,7 +2644,7 @@ void GCDclean(PHEAD WORD *num, WORD *den)
 		MUNLOCK(ErrorMessageLock);
 		Terminate(-1);
 	}
-	UnPack((UWORD *)r1,csize3,&csize1,&csize2);
+	UnPack((UWORD *)r1,csize3,&csize2,&csize1);
 	t2 = r1+ABS(csize3);
 	for ( i = 0; i < csize2; i++ ) r2[i] = t2[i];
 	r2 += csize2; *r2++ = 1;