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

SCM Repository

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

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

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

revision 2083, Thu Nov 8 18:42:05 2012 UTC revision 2084, Fri Nov 9 21:55:00 2012 UTC
# Line 181  Line 181 
181                val params = [                val params = [
182                        CL.PARAM([], globTy, "glob"),                        CL.PARAM([], globTy, "glob"),
183                        CL.PARAM([], CL.T_Ptr(CL.T_Named tyName), "selfIn"),                        CL.PARAM([], CL.T_Ptr(CL.T_Named tyName), "selfIn"),
184                        CL.PARAM([], CL.T_Ptr(CL.T_Named tyName), "selfOut"),                        CL.PARAM([], CL.T_Ptr(CL.T_Named tyName), "selfOut")
                       CL.PARAM([], CL.T_Ptr(CL.T_Ptr(CL.T_Named tyName)),  N.strandsName),  
                       CL.PARAM([], CL.T_Ptr(CL.T_Named N.gridContextTy),  N.gridCxtName)  
185                      ]                      ]
186                val resTy = (case methName  
187                       of StrandUtil.Update => CL.T_Named "StrandStatus_t"                val updateParams = params @ [CL.PARAM([], CL.T_Ptr(CL.T_Ptr(CL.T_Named tyName)),N.strandsName),
188                        | StrandUtil.Stabilize => CL.voidTy                                             CL.PARAM([], CL.T_Ptr(CL.T_Named N.gridContextTy),  N.gridCxtName)]
189                      (* end case *))                val (resTy,params') = (case methName
190                val methFn = CL.D_Func(["static"], resTy, fName, params, body)                       of StrandUtil.Update => (CL.T_Named "StrandStatus_t",updateParams)
191                          | StrandUtil.Stabilize => (CL.voidTy,params))
192    
193                  val methFn = CL.D_Func(["static"], resTy, fName, params', body)
194                in                in
195                  code := methFn :: !code                  code := methFn :: !code
196                end                end
# Line 467  Line 468 
468                  List.app ppDecl (GenInputs.genInputFuns(tgt, !inputs));                  List.app ppDecl (GenInputs.genInputFuns(tgt, !inputs));
469                  List.app ppDecl (List.rev (!topDecls));                  List.app ppDecl (List.rev (!topDecls));
470                  List.app ppDecl (genStrand strand);                  List.app ppDecl (genStrand strand);
471                  ppDecl (CL.verbatim [QueriesFrag.text] substitutions);
472                  List.app ppDecl outputs;                  List.app ppDecl outputs;
473                  ppStrandTable (ppStrm, [strand]);                  ppStrandTable (ppStrm, [strand]);
474            ppDecl (CL.verbatim [GridFrag.text] substitutions);
475                  ppDecl (CL.verbatim [CBodyFrag.text] substitutions);                  ppDecl (CL.verbatim [CBodyFrag.text] substitutions);
476                  ppDecl (CL.verbatim [InitFrag.text] substitutions);                  ppDecl (CL.verbatim [InitFrag.text] substitutions);
477                  ppDecl (CL.verbatim [AllocFrag.text] substitutions);                  ppDecl (CL.verbatim [AllocFrag.text] substitutions);
         ppDecl (CL.verbatim [GridFrag.text] substitutions);  
         ppDecl (CL.verbatim [QueriesFrag.text] substitutions);  
478                  ppDecl (!initially);                  ppDecl (!initially);
479                  ppDecl (CL.verbatim [                  ppDecl (CL.verbatim [
480                      if not(#parallel tgt) then SeqRunFrag.text                      if not(#parallel tgt) then SeqRunFrag.text

Legend:
Removed from v.2083  
changed lines
  Added in v.2084

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