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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cfg-ir/ssa-pp-fn.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cfg-ir/ssa-pp-fn.sml

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

revision 3845, Tue May 10 19:17:45 2016 UTC revision 3846, Wed May 11 13:35:09 2016 UTC
# Line 46  Line 46 
46      fun assignToString (y, rhs) = let      fun assignToString (y, rhs) = let
47            val rhs = (case rhs            val rhs = (case rhs
48                   of IR.GLOBAL x => [GVar.toString x, ";"]                   of IR.GLOBAL x => [GVar.toString x, ";"]
49                    | IR.STATE x => [IR.StateVar.toString x, ";"]                    | IR.STATE(NONE, x) => ["self.", IR.StateVar.toString x, ";"]
50                      | IR.STATE(SOME x, y) => [IR.Var.toString x, ".", IR.StateVar.toString y, ";"]
51                    | IR.VAR x => [Var.toString x, ";"]                    | IR.VAR x => [Var.toString x, ";"]
52                    | IR.LIT lit => [Literal.toString lit, ";"]                    | IR.LIT lit => [Literal.toString lit, ";"]
53                    | IR.OP(rator, []) => [Op.toString rator, ";"]                    | IR.OP(rator, []) => [Op.toString rator, ";"]

Legend:
Removed from v.3845  
changed lines
  Added in v.3846

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