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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/simplify/simplify.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/simplify/simplify.sml

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

revision 4364, Fri Aug 5 15:27:42 2016 UTC revision 4368, Sat Aug 6 10:36:08 2016 UTC
# Line 436  Line 436 
436            DeadCode.eliminate (simplifyBlock (errStrm, blk))            DeadCode.eliminate (simplifyBlock (errStrm, blk))
437    
438      fun simplifyStrand (errStrm, strand) = let      fun simplifyStrand (errStrm, strand) = let
439            val AST.Strand{name, params, state, stateInit, initM, updateM, stabilizeM} = strand            val AST.Strand{
440                      name, params, spatialDim, state, stateInit, initM, updateM, stabilizeM
441                    } = strand
442            val params' = cvtVars params            val params' = cvtVars params
443            fun simplifyState ([], xs, stms) = (List.rev xs, mkBlock stms)            fun simplifyState ([], xs, stms) = (List.rev xs, mkBlock stms)
444              | simplifyState ((x, optE) :: r, xs, stms) = let              | simplifyState ((x, optE) :: r, xs, stms) = let
# Line 456  Line 458 
458              S.Strand{              S.Strand{
459                  name = name,                  name = name,
460                  params = params',                  params = params',
461                    spatialDim = spatialDim,
462                  state = xs,                  state = xs,
463                  stateInit = stm,                  stateInit = stm,
464                  initM = Option.map (simplifyAndPruneBlock errStrm) initM,                  initM = Option.map (simplifyAndPruneBlock errStrm) initM,

Legend:
Removed from v.4364  
changed lines
  Added in v.4368

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