Add check for Power in processed expression

ianhinder · Mar 19, 2014 · 7a366eb · 7a366eb
1 parent befaebd
commit 7a366eb
Show file tree

Hide file tree

Showing 2 changed files with 10 additions and 0 deletions.
diff --git a/Tools/CodeGen/CodeGenKranc.m b/Tools/CodeGen/CodeGenKranc.m
@@ -262,8 +262,14 @@
 
     rhs = rhs //. mathematicaToCRules;
 
+    If[Cases[rhs, _Power, Infinity] =!= {},
+      ThrowError["Power found in "<>ToString[rhs,InputForm]]];
+
     rhs = PostProcessExpression[$CodeGenTarget, rhs];
 
+    If[Cases[rhs, _Power, Infinity] =!= {},
+      ThrowError["Power found in "<>ToString[rhs,InputForm]]];
+
     rhs = rhs //. {Parameter[xx_] -> xx};
     rhs]];
 

diff --git a/Tools/CodeGen/Vectorisation.m b/Tools/CodeGen/Vectorisation.m
@@ -230,6 +230,10 @@
     expr = expr /. {
       x:(kmul|kadd)[a_,b_] /; !OrderedQ[x] :> Sort[x]};
 
+    If[Cases[expr, _Power, Infinity] =!= {},
+      ThrowError["Power found in " <> ToString[expr,InputForm]]];
+
+
     Return[expr]]];
 
 (* Code generation: The following functions are called when vectorising. *)