Minor ops tweak

kbowers-jump · Reisen · commit b3925a791b96 · 2022-04-01T11:20:08.000Z
diff --git a/program/src/oracle/sort/tmpl/sort_stable.c b/program/src/oracle/sort/tmpl/sort_stable.c
@@ -202,10 +202,10 @@ SORT_IMPL(stable_node)( SORT_KEY_T * x,
   }
 # endif
 
-  /* Append any stragglers (exactly one of these loops will execute) */
+  /* Append any stragglers */
 
-  while( j<nl ) x[i++] = yl[j++];
-  while( k<nr ) x[i++] = yr[k++];
+  if( j<nl ) do x[i++] = yl[j++]; while( j<nl );
+  else       do x[i++] = yr[k++]; while( k<nr );
 
   return x;
 }

Original file line number	Diff line number	Diff line change
`@@ -202,10 +202,10 @@ SORT_IMPL(stable_node)( SORT_KEY_T * x,`
`202`	`202`	`}`
`203`	`203`	`# endif`
`204`	`204`
`205`		`- /* Append any stragglers (exactly one of these loops will execute) */`
	`205`	`+ /* Append any stragglers */`
`206`	`206`
`207`		`- while( j<nl ) x[i++] = yl[j++];`
`208`		`- while( k<nr ) x[i++] = yr[k++];`
	`207`	`+ if( j<nl ) do x[i++] = yl[j++]; while( j<nl );`
	`208`	`+ else do x[i++] = yr[k++]; while( k<nr );`
`209`	`209`
`210`	`210`	`return x;`
`211`	`211`	`}`