Differencing.m: Fix logic in ComponentDerivativeOperatorMacroDefinition

The variable assignment in this function got messed up at some point, so that differencing operators which didn't fit the pattern for precomputation would not be generated correctly.
ianhinder · Oct 13, 2011 · a55421d · a55421d
1 parent f9f02fa
commit a55421d
Showing 1 changed file with 4 additions and 3 deletions.
diff --git a/Tools/CodeGen/Differencing.m b/Tools/CodeGen/Differencing.m
@@ -381,15 +381,16 @@ A GridFunctionDerivative (GFD) is an expression of the form
        Print["Sequenced: ", Apply[SequenceForm,Simplify[1/(ss /. spacings2)],{0,Infinity}]];*)
 
        liName = "p" <> signModifier <> quotient <> ToString[Apply[SequenceForm,Simplify[1/(ss /. spacings2)],{0,Infinity}]];
-(*       Print["liName == ", liName];*)
+       pDefs = {{liName -> CFormHideStrings[ReplacePowers[num / den ss /. spacings2, vectorise]]}};
 
        rhs = rhs /. pat -> Times[liName, rest],
 (*       Print["!!!!!!!!DOES NOT MATCH!!!!!!!!!"];*)
-       rhs = rhs];
+       rhs = rhs;
+       pDefs = {};
+       liName = rhs];
 
 (*    Print["rhs3 == ", FullForm[rhs]];*)
 
-    pDefs = {{liName -> CFormHideStrings[ReplacePowers[num / den ss /. spacings2, vectorise]]}};
 
 (*    rhs = Factor[rhs];*)
     rhs = rhs //. (x_ a_ + x_ b_) -> x (a+b);