Made flag for negative powers in SymbolNormalize

vermaseren · Jun 30, 2015 · 90761d6 · 90761d6
1 parent b4f3dd2
commit 90761d6
Show file tree

Hide file tree

Showing 4 changed files with 6 additions and 1 deletion.
diff --git a/sources/normal.c b/sources/normal.c
@@ -5101,6 +5101,7 @@ Nexti:;
 /*
 	Veto negative powers
 */
+	if ( AT.LeaveNegative == 0 ) {
 		b = buffer; bb = b + b[1]; b += 3;
 		while ( b < bb ) {
 			if ( *b < 0 ) {
@@ -5111,6 +5112,7 @@ Nexti:;
 			}
 			b += 2;
 		}
+	}
 /*
 	Now we use the fact that the new term will not be longer than the old one
 	Actually it should be shorter when there is more than one subterm!

diff --git a/sources/ratio.c b/sources/ratio.c
@@ -2982,7 +2982,9 @@ NormArg:;
 /*
 		We can use MultiplyWithTerm.
 */
+		AT.LeaveNegative = 1;
 		numerator = MultiplyWithTerm(BHEAD arg1+ARGHEAD,rmininv,0);
+		AT.LeaveNegative = 0;
 		r[-1] = rcopy;
 		r = numerator; while ( *r ) r += *r;
 		AT.WorkPointer = r+1;

diff --git a/sources/startup.c b/sources/startup.c
@@ -1339,6 +1339,7 @@ WORD IniVars()
 	AT.inprimelist = -1;
 	AT.sizeprimelist = 0;
 	AT.primelist = 0;
+	AT.LeaveNegative = 0;
 	AT.TrimPower = 0;
 	AN.SplitScratch = 0;
 	AN.SplitScratchSize = AN.InScratch = 0;

diff --git a/sources/structs.h b/sources/structs.h
@@ -1967,7 +1967,7 @@ struct T_const {
     int     ListSymbolsSize;
     int     NumListSymbols;
     int     numpoly;
-    int     ListPolySize;
+    int     LeaveNegative;
     int     TrimPower;             /* Indicates trimming in polyratfun expansion */
     WORD    small_power_maxx;      /*     size of the cache for small powers  */
     WORD    small_power_maxn;      /*     size of the cache for small powers */