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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/mid-to-low/mid-to-low.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/mid-to-low/mid-to-low.sml

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

revision 492, Wed Jan 26 17:42:05 2011 UTC revision 493, Thu Jan 27 16:40:50 2011 UTC
# Line 229  Line 229 
229              (* end case *)              (* end case *)
230            end            end
231    
232    (* expand a SrcIL assignment to a list of DstIL assignments *)    (* expand a SrcIL assignment to a DstIL CFG *)
233      fun expand (env, (y, rhs)) = let      fun expand (env, (y, rhs)) = let
234            val y' = rename (env, y)            val y' = rename (env, y)
235            fun assign rhs = [(y', rhs)]            fun assign rhs = [(y', rhs)]
# Line 250  Line 250 
250          type var_env = var_env          type var_env = var_env
251    
252          val rename = rename          val rename = rename
253          val expand = expand          val expand = DstIL.CFG.assignsToCFG o expand
254        end)        end)
255    
256      fun translate (SrcIL.Program{globals, globalInit, actors}) = let      fun translate (SrcIL.Program{globals, globalInit, actors}) = let

Legend:
Removed from v.492  
changed lines
  Added in v.493

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