diff options
-rw-r--r-- | Tools/CodeGen/KrancThorn.m | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index c19d063..73740dd 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -72,7 +72,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ evolvedODEGroups, nonevolvedODEGroups, evolvedODEGroupDefinitions, rhsODEGroups, boundarySources, reflectionSymmetries, - pDefs, consCalcs, consCalcsIn, consGroups, cakernel, + consCalcs, consCalcsIn, consGroups, cakernel, sources = {}}, InfoMessage[Terse, "Processing arguments to CreateKrancThorn"]; @@ -341,11 +341,12 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ ------------------------------------------------------------------------ *) Module[ - {diffHeader}, + {diffHeader, pDefs}, InfoMessage[Terse, "Creating differencing header file"]; {pDefs, diffHeader} = CreateDifferencingHeader[ partialDerivs, OptionValue[ZeroDimensions], OptionValue[UseVectors], OptionValue[IntParameters]]; + calcs = Map[Join[#, {PreDefinitions -> pDefs}] &, calcs]; diffHeader = Join[ If[OptionValue[UseVectors] && ! OptionValue[UseOpenCL], {"#include <assert.h>\n", @@ -360,7 +361,6 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Add predefinitions to calculations ------------------------------------------------------------------------ *) - calcs = Map[Join[#, {PreDefinitions -> pDefs}] &, calcs]; (* ------------------------------------------------------------------------ Create calculation source files |