Home My Page Projects Code Snippets Project Openings diderot
Summary Activity Tracker Tasks SCM

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/target-cpu/gen.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/target-cpu/gen.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 4381, Mon Aug 8 18:55:35 2016 UTC revision 4382, Mon Aug 8 21:21:43 2016 UTC
# Line 182  Line 182 
182            fun pp (true, dcl) = ppDecl (CL.D_Verbatim [dcl])            fun pp (true, dcl) = ppDecl (CL.D_Verbatim [dcl])
183              | pp _ = ()              | pp _ = ()
184            in            in
             if (TargetSpec.isParallel spec)  
               then ppDecl (CL.verbatimDcl [CPUFragments.parallelExtras] substitutions)  
               else ();  
185              pp (#hasStabilize spec, "#define DIDEROT_HAS_STABILIZE");              pp (#hasStabilize spec, "#define DIDEROT_HAS_STABILIZE");
186              pp (TargetSpec.dualState spec, "#define DIDEROT_DUAL_STATE");              pp (TargetSpec.dualState spec, "#define DIDEROT_DUAL_STATE");
187              pp (not(#hasGlobals spec), "#define DIDEROT_NO_GLOBALS");              pp (not(#hasGlobals spec), "#define DIDEROT_NO_GLOBALS");
# Line 206  Line 203 
203              List.app ppDecl (genGlobalStruct (env, consts, inputs, globals));              List.app ppDecl (genGlobalStruct (env, consts, inputs, globals));
204              ppDecl structDef;              ppDecl structDef;
205              ppDecl (GenWorld.genStruct(env, strandName, Option.getOpt(dim, 1)));              ppDecl (GenWorld.genStruct(env, strandName, Option.getOpt(dim, 1)));
206                if (TargetSpec.isParallel spec)
207                  then ppDecl (CL.verbatimDcl [CPUFragments.parallelExtras] substitutions)
208                  else ();
209              List.app ppDecl (genInputCode());              List.app ppDecl (genInputCode());
210              List.app (ppDecl o genFunc spec) funcs;              List.app (ppDecl o genFunc spec) funcs;
211              if #hasGlobalInit spec              if #hasGlobalInit spec

Legend:
Removed from v.4381  
changed lines
  Added in v.4382

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0