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 4338, Mon Aug 1 19:16:52 2016 UTC revision 4339, Mon Aug 1 19:46:37 2016 UTC
# Line 81  Line 81 
81              Op.toString rator, "(", String.concatWithMap "," Var.toString xs, ");"              Op.toString rator, "(", String.concatWithMap "," Var.toString xs, ");"
82            ]            ]
83        | massignToString (ys, rator, xs) = String.concat [        | massignToString (ys, rator, xs) = String.concat [
84              "(", String.concatWith "," (List.map typedVar ys), ") = ",              "(", String.concatWithMap "," typedVar ys, ") = ",
85              Op.toString rator, "(", String.concatWithMap "," Var.toString xs, ");"              Op.toString rator, "(", String.concatWithMap "," Var.toString xs, ");"
86            ]            ]
87    
# Line 132  Line 132 
132                                  prJoin (nd, [!pred, !bodyExit], !mask)                                  prJoin (nd, [!pred, !bodyExit], !mask)
133                              | _ => prln (out, [                              | _ => prln (out, [
134                                    IR.Node.toString nd, ":  preds = [",                                    IR.Node.toString nd, ":  preds = [",
135                                    String.concatWith "," (List.map IR.Node.toString (IR.Node.preds nd)),                                    String.concatWithMap "," IR.Node.toString (IR.Node.preds nd),
136                                    "]\n"                                    "]\n"
137                                  ])                                  ])
138                            (* end case *));                            (* end case *));
# Line 174  Line 174 
174                                  GVar.toString lhs, " = ", Var.toString rhs, ";\n"                                  GVar.toString lhs, " = ", Var.toString rhs, ";\n"
175                                ]);                                ]);
176                              goto (out, !succ))                              goto (out, !succ))
177                            | IR.MAPREDUCE{lhs, reds, mapf, args, src, succ, ...} => (
178                                prln (out1, [
179                                    "(", String.concatWithMap "," typedVar lhs,
180                                    ") = REDUCE (", String.concatWithMap "," Reductions.toString reds,
181                                    ") MAP ", IR.Func.toString mapf, " (",
182                                    String.concatWithMap "," Var.toString args, ")"
183                                  ]);
184                                goto (out, !succ))
185                          | IR.NEW{strand, args, succ, ...} => (                          | IR.NEW{strand, args, succ, ...} => (
186                              prln (out1, [                              prln (out1, [
187                                  "new ", Atom.toString strand, "(",                                  "new ", Atom.toString strand, "(",
188                                  String.concatWith "," (List.map Var.toString args), ");\n"                                  String.concatWithMap "," Var.toString args, ");\n"
189                                ]);                                ]);
190                              goto (out, !succ))                              goto (out, !succ))
191                          | IR.SAVE{lhs, rhs, succ, ...} => (                          | IR.SAVE{lhs, rhs, succ, ...} => (

Legend:
Removed from v.4338  
changed lines
  Added in v.4339

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