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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/IL/ssa-fn.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/IL/ssa-fn.sml

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

revision 1812, Sat Apr 7 21:33:09 2012 UTC revision 1813, Sun Apr 8 15:44:10 2012 UTC
# Line 172  Line 172 
172        (* properties *)        (* properties *)
173          fun newProp initFn = PropList.newProp (fn (SV{props, ...}) => props, initFn)          fun newProp initFn = PropList.newProp (fn (SV{props, ...}) => props, initFn)
174          fun newFlag () = PropList.newFlag (fn (SV{props, ...}) => props)          fun newFlag () = PropList.newFlag (fn (SV{props, ...}) => props)
175          (* collections *)
176          local          local
177            structure V =            structure V =
178              struct              struct
# Line 213  Line 214 
214        (* properties *)        (* properties *)
215          fun newProp initFn = PropList.newProp (fn (V{props, ...}) => props, initFn)          fun newProp initFn = PropList.newProp (fn (V{props, ...}) => props, initFn)
216          fun newFlag () = PropList.newFlag (fn (V{props, ...}) => props)          fun newFlag () = PropList.newFlag (fn (V{props, ...}) => props)
217          (* collections *)
218          local          local
219            structure V =            structure V =
220              struct              struct
# Line 639  Line 641 
641                end                end
642    
643          fun app f = let          fun app f = let
644                fun mapf rhs = (case rhs                fun appf rhs = (case rhs
645                       of STATE _ => ()                       of STATE _ => ()
646                        | VAR x => f x                        | VAR x => f x
647                        | LIT _ => ()                        | LIT _ => ()
# Line 648  Line 650 
650                        | CONS(ty, xs) => List.app f xs                        | CONS(ty, xs) => List.app f xs
651                      (* end case *))                      (* end case *))
652                in                in
653                  mapf                  appf
654                end                end
655    
656        (* return a string representation of a rhs *)        (* return a string representation of a rhs *)

Legend:
Removed from v.1812  
changed lines
  Added in v.1813

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