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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/low-to-tree/low-to-tree.sml

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

revision 4362, Thu Aug 4 14:15:13 2016 UTC revision 4369, Sat Aug 6 11:03:15 2016 UTC
# Line 952  Line 952 
952            end            end
953    
954      fun trStrand info strand = let      fun trStrand info strand = let
955              val IR.Strand{
956                      name, params, spatialDim, state, stateInit, initM, updateM, stabilizeM
957                    } = strand
958            val trMethod = mkMethod o trCFG info            val trMethod = mkMethod o trCFG info
           val IR.Strand{name, params, state, stateInit, initM, updateM, stabilizeM} = strand  
959            val params' = List.map U.newParamVar params            val params' = List.map U.newParamVar params
960            val state' = List.map getStateVar state            val state' = List.map getStateVar state
961            val stateInit' = let            val stateInit' = let
# Line 968  Line 970 
970              T.Strand{              T.Strand{
971                  name = name,                  name = name,
972                  params = params',                  params = params',
973                    spatialDim = spatialDim,
974                  state = state',                  state = state',
975                  stateInit = stateInit',                  stateInit = stateInit',
976                  initM = Option.map trMethod initM,                  initM = Option.map trMethod initM,

Legend:
Removed from v.4362  
changed lines
  Added in v.4369

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