Vectorisation.m: Sort arguments of kadd and kmul

ianhinder · Mar 17, 2014 · 29ff9ad · 29ff9ad
1 parent 642d222
commit 29ff9ad
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/Tools/CodeGen/Vectorisation.m b/Tools/CodeGen/Vectorisation.m
@@ -275,6 +275,9 @@
 
     (* expr = undoSomeVect[expr]; *)
 
+    expr = expr /. {
+      x:(kmul|kadd)[a_,b_] /; !OrderedQ[x] :> Sort[x]};
+
     Return[expr]]];
 
 DefFn[VectorisationMacros[] :=