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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-target/c-target.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/c-target/c-target.sml

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

revision 2040, Wed Oct 17 19:34:53 2012 UTC revision 2041, Thu Oct 18 13:16:15 2012 UTC
# Line 232  Line 232 
232                    nAxes = ref(SOME ~1),                    nAxes = ref(SOME ~1),
233                    initially = ref(CL.D_Comment["missing initially"])                    initially = ref(CL.D_Comment["missing initially"])
234                  })                  })
235    (* FIXME: for standalone exes, the defaults should be set in the inputs struct;
236     * not sure how to handle library inputs yet.
237     *)
238        (* register the code that is used to set defaults for input variables *)        (* register the code that is used to set defaults for input variables *)
239          fun inputs (Prog{tgt, inputs, topDecls, ...}, env, blk) = let          fun inputs (Prog{tgt, inputs, topDecls, ...}, env, blk) = let
240                val worldTy = CL.T_Ptr(CL.T_Named(N.worldTy tgt))                val worldTy = CL.T_Ptr(CL.T_Named(N.worldTy tgt))
# Line 534  Line 537 
537                    else ();                    else ();
538                  ppDecl (genGlobalStruct (tgt, List.rev(!globals)));                  ppDecl (genGlobalStruct (tgt, List.rev(!globals)));
539                  ppDecl (genWorldStruct(tgt, strand));                  ppDecl (genWorldStruct(tgt, strand));
540                    ppDecl (GenInputs.genInputsStruct (tgt, !inputs));
541                  List.app ppDecl (List.rev (!topDecls));                  List.app ppDecl (List.rev (!topDecls));
542                  ppDecl (GenInputs.genRegisterInputs (tgt, !inputs));                  ppDecl (GenInputs.genRegisterInputs (tgt, !inputs));
543                    ppDecl (GenInputs.genInitInputs (tgt, !inputs));
544                  List.app ppDecl (genStrand strand);                  List.app ppDecl (genStrand strand);
545                  List.app ppDecl outputs;                  List.app ppDecl outputs;
546                  ppStrandTable (ppStrm, [strand]);                  ppStrandTable (ppStrm, [strand]);

Legend:
Removed from v.2040  
changed lines
  Added in v.2041

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