diff options
| author | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 14:00:50 +0200 |
|---|---|---|
| committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2013-09-12 14:01:52 +0200 |
| commit | ec87414a06d535cb244184192bef38f2d82692af (patch) | |
| tree | 4919633425a2ced1b6b822b3440437113ff1b17b | |
| parent | b0ab67c8a950aadaeb45f56b56fed7802d1b712b (diff) | |
KrancThorn.m: Eliminate some local variables
| -rw-r--r-- | Tools/CodeGen/KrancThorn.m | 24 |
1 files changed, 10 insertions, 14 deletions
diff --git a/Tools/CodeGen/KrancThorn.m b/Tools/CodeGen/KrancThorn.m index 1ca2522..c19d063 100644 --- a/Tools/CodeGen/KrancThorn.m +++ b/Tools/CodeGen/KrancThorn.m @@ -73,7 +73,7 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ evolvedODEGroupDefinitions, rhsODEGroups, boundarySources, reflectionSymmetries, pDefs, consCalcs, consCalcsIn, consGroups, cakernel, - hostCals, deviceCalcs, sources = {}}, + sources = {}}, InfoMessage[Terse, "Processing arguments to CreateKrancThorn"]; @@ -366,21 +366,17 @@ CreateKrancThorn[groupsOrig_, parentDirectory_, thornName_, opts:OptionsPattern[ Create calculation source files ------------------------------------------------------------------------ *) - ext = CodeGenC`SOURCESUFFIX; - InfoMessage[Terse, "Creating calculation source files"]; - hostCalcs = Select[calcs, !CalculationOnDevice[#] &]; - hostSources = Map[{Filename -> lookup[#, Name] <> ext, - Contents -> CreateSetterSource[{#}, False, {}, opts]} &, - hostCalcs]; - sources = Join[sources, hostSources]; - - deviceCalcs = Select[calcs, CalculationOnDevice]; - deviceSources = Map[{Filename -> "CaKernel__"<>lookup[#, Name] <> ".code", - Contents -> CaKernelCode[#,opts]} &, - deviceCalcs]; - sources = Join[sources, deviceSources]; + sources = Join[sources, + Map[{Filename -> lookup[#, Name] <> ".cc", + Contents -> CreateSetterSource[{#}, False, {}, opts]} &, + Select[calcs, !CalculationOnDevice[#] &]]]; + + sources = Join[sources, + Map[{Filename -> "CaKernel__"<>lookup[#, Name] <> ".code", + Contents -> CaKernelCode[#,opts]} &, + Select[calcs, CalculationOnDevice]]]; (* ------------------------------------------------------------------------ Create Makefile |