perf: improve copies in PutBracket, DoIfStatement, Generator, PrepPoly

Author: jodavies

sources/execute.c

@@ -1601,7 +1601,9 @@ NextSymbol2:;
 	if ( AR.BracketOn < 0 ) {
 		s1 = t1; t1 = t2; t2 = s1;
 	}
-	do { *t2++ = *t++; } while ( t < (WORD *)tStopa );
+	/* Old code copied 1 element if copy == 0. This doesn't happen in the test suite. */
+	LONG copy = tStopa - t;
+	NCOPY(t2, t, copy);
 	t = AT.WorkPointer;
 	i = WORDDIF(t1,term1);
 	*t++ = 4 + i + WORDDIF(t2,term2);

sources/if.c

@@ -816,7 +816,7 @@ donemul:		if ( i ) { ncoef2 = 1; coef2 = Spac2; coef2[0] = coef2[1] = 1; }
 		}
 		coef1 = Spac1;
 		i = 2*ABS(ncoef2);
-		for ( j = 0; j < i; j++ ) coef1[j] = coef2[j];
+		WCOPY(coef1, coef2, i);
 		ncoef1 = ncoef2;
 SkipCond:
 		ifp += ifp[1];

sources/proces.c

@@ -3414,10 +3414,10 @@ SkipCount:	level++;
 						are involved in a match(). Hence we have to make
 						a private copy here!!!!
 */
-						WORD ic, jc, *ifcode, *jfcode;
+						WORD jc, *ifcode, *jfcode;
 						jfcode = C->lhs[level]; jc = jfcode[1];
 						ifcode = AT.WorkPointer; AT.WorkPointer += jc;
-						for ( ic = 0; ic < jc; ic++ ) ifcode[ic] = jfcode[ic];
+						WCOPY(ifcode, jfcode, jc);
 						while ( !DoIfStatement(BHEAD ifcode,term) ) {
 							level = C->lhs[level][2];
 							if ( C->lhs[level][0] != TYPEELIF ) break;

sources/sort.c

@@ -4624,9 +4624,7 @@ int StoreTerm(PHEAD WORD *term)
 			while ( ( t = *ss++ ) != 0 ) {
 				j = *t;
 				if ( j < 0 ) j = t[1] + 2;
-				while ( --j >= 0 ){
-				  *lfill++ = *t++;
-				}
+				NCOPY(lfill, t, j);
 			}
 		}
 		*lfill++ = 0;
@@ -4636,7 +4634,7 @@ int StoreTerm(PHEAD WORD *term)
 		*(S->PoinFill) = S->sFill = S->sBuffer;
 	}
 	j = *term;
-	while ( --j >= 0 ) *S->sFill++ = *term++;
+	NCOPY(S->sFill, term, j);
 	S->sTerms++;
 	S->GenTerms++;
 	S->TermsLeft++;