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

SCM Repository

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

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

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

revision 3501, Thu Dec 17 20:07:13 2015 UTC revision 3502, Thu Dec 17 23:13:35 2015 UTC
# Line 91  Line 91 
91      fun expandBlock funcTbl = let      fun expandBlock funcTbl = let
92            val findFunc = V.Tbl.find funcTbl            val findFunc = V.Tbl.find funcTbl
93            fun expandBlk (S.Block{props, code}) =            fun expandBlk (S.Block{props, code}) =
94                  S.Block{props = props, code = List.foldr expandStm [] stms}                  S.Block{props = props, code = List.foldr expandStm [] code}
95            and expandStm (stm, stms') = (case stm            and expandStm (stm, stms') = (case stm
96                   of S.S_Assign(x, S.E_Apply(f, xs, _)) => (case findFunc f                   of S.S_Assign(x, S.E_Apply(f, xs, _)) => (case findFunc f
97                         of NONE => stm :: stms'                         of NONE => stm :: stms'

Legend:
Removed from v.3501  
changed lines
  Added in v.3502

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