KrancThorn.m: Move computation of allParams to before it is used

ianhinder · Jan 31, 2012 · 864ad98 · 864ad98
1 parent 0e23b01
commit 864ad98
Showing 1 changed file with 7 additions and 8 deletions.
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m
@@ -197,6 +197,13 @@ Thorn generation (main entry point for non-tensorial thorns)
     rhsGroups = Map[groupName, rhsGroupDefinitions];
     rhsODEGroups = Map[groupName, rhsODEGroupDefinitions];
 
+    (* Construct a source file for each calculation *)
+    allParams = Join[Map[ParamName, realParamDefs],
+                     Map[ParamName, intParamDefs],
+                     Map[unqualifiedName, inheritedRealParams], 
+                     Map[unqualifiedName, inheritedIntParams], 
+                     Map[unqualifiedName, inheritedKeywordParams]];
+
     calcs = Map[Join[#,
                      {ODEGroups -> Join[odeGroups, rhsODEGroups],
                       Parameters -> allParams,
@@ -272,12 +279,6 @@ Thorn generation (main entry point for non-tensorial thorns)
 
     ext = CodeGenC`SOURCESUFFIX;
 
-    (* Construct a source file for each calculation *)
-    allParams = Join[Map[ParamName, realParamDefs],
-                     Map[ParamName, intParamDefs],
-                     Map[unqualifiedName, inheritedRealParams], 
-                     Map[unqualifiedName, inheritedIntParams], 
-                     Map[unqualifiedName, inheritedKeywordParams]];
 
     InfoMessage[Terse, "Creating calculation source files"];
 
@@ -294,8 +295,6 @@ Thorn generation (main entry point for non-tensorial thorns)
                                If[!OptionValue[UseCaKernel], calcFilenames, {}],
       Map[lookup[#, Filename] &, boundarySources]]];
 
-    If[OptionValue[UseCaKernel], make = {make, CaKernelEpilogue[]}];
-
     (* Put all the above together and generate the Cactus thorn *)
     thornspec = {Name          -> thornName, 
                  Directory     -> parentDirectory,