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

SCM Repository

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

Diff of /branches/vis15/src/compiler/mid-to-low/ein-to-low.sml

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

revision 3742, Mon Apr 11 04:53:02 2016 UTC revision 3743, Mon Apr 11 16:46:49 2016 UTC
# Line 292  Line 292 
292                    | _ => expandInner (params, body, index, args)                    | _ => expandInner (params, body, index, args)
293                  (* end case *))                  (* end case *))
294            val (_, asgn) :: rest = AvailRHS.getAssignments avail            val (_, asgn) :: rest = AvailRHS.getAssignments avail
295    
296          fun n (y, LowIR.OP(op1, args)) =  print(String.concat["\nvar: ", LowIR.Var.name(y), " =  OP(",Op.toString(op1),", ",
297          String.concatWith","(List.map (fn e=> LowIR.Var.name e) args), ")"])
298          | n (y, LowIR.EINAPP(ein, args)) =  print(String.concat["\nvar: ", LowIR.Var.name(y), " = EINAPP(",EinPP.toString(ein),", ",
299          String.concatWith","(List.map (fn e=> LowIR.Var.name e) args), ")"])
300          | n (y, LowIR.CONS(args, _)) =  print(String.concat["\nvar: ", LowIR.Var.name(y), " = CONS(_,",
301          String.concatWith","(List.map (fn e=> LowIR.Var.name e) args), ")"])
302          |  n ((y,_)) =  print(String.concat["\nvar: ", LowIR.Var.name y])
303          fun iter(str, es)  = (print str ; List.map n es)
304          (*val _ = iter("\n\n\nfinal stmts",  List.rev (((y, asgn)::rest)))*)
305            in            in
306              List.revMap LowIR.ASSGN ((y, asgn)::rest)              List.revMap LowIR.ASSGN ((y, asgn)::rest)
307            end            end

Legend:
Removed from v.3742  
changed lines
  Added in v.3743

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