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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/tree-il/tree-il-pp.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/tree-il/tree-il-pp.sml

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

revision 2686, Mon Aug 25 19:10:16 2014 UTC revision 2687, Wed Aug 27 13:28:50 2014 UTC
# Line 49  Line 49 
49              | toS (IL.E_Apply(f, args), l) = MathFuns.toString f :: argsToS (",","(", args, ")", l)              | toS (IL.E_Apply(f, args), l) = MathFuns.toString f :: argsToS (",","(", args, ")", l)
50              | toS (IL.E_Cons(ty, args), l) =              | toS (IL.E_Cons(ty, args), l) =
51                  "<" :: Ty.toString ty :: ">" :: argsToS (",","{", args, "}", l)                  "<" :: Ty.toString ty :: ">" :: argsToS (",","{", args, "}", l)
52                      | toS (IL.E_mux args,l)="Mux"::l              | toS (IL.E_Mux args,l)="Mux"::l
                      | toS (IL.E_tmpmux args,l)="TmpMux"::l  
53              | toS (IL.E_LoadArr(A,tyNew, tyOrig, arg, offset), l) =              | toS (IL.E_LoadArr(A,tyNew, tyOrig, arg, offset), l) =
54                          "LdArr<" :: itos tyNew :: ":" :: itos tyOrig :: ">("                          "LdArr<" :: itos tyNew :: ":" :: itos tyOrig :: ">("
55                              :: argsToS (",", "(", [arg, offset], ")", l)                              :: argsToS (",", "(", [arg, offset], ")", l)

Legend:
Removed from v.2686  
changed lines
  Added in v.2687

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