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.sml
ViewVC logotype

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

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

revision 3171, Sun Mar 29 23:12:10 2015 UTC revision 3172, Sun Mar 29 23:35:28 2015 UTC
# Line 212  Line 212 
212        | toString (E_Lit lit) = Literal.toString lit        | toString (E_Lit lit) = Literal.toString lit
213        | toString(E_Apply(mathfn, args))=String.concat["Apply (",        | toString(E_Apply(mathfn, args))=String.concat["Apply (",
214              String.concatWith"," (List.map toString args),")"]              String.concatWith"," (List.map toString args),")"]
215        | toString(E_Mux(_,isFill,oSize,pieces,args)) =  String.concat["Mux",preBool("isFilled", isFill),"|",iTos oSize,"@ [",        | toString(E_Mux(_,isFill,oSize,pieces,args)) = String.concat[
216              Ty.toString pieces ,"]",(String.concatWith "," (List.map toString args))]              "Mux",preBool("isFilled", isFill),"|",iTos oSize,"@ [",
217                Ty.toString pieces ,"]", String.concatWith "," (List.map toString args)
218              ]
219        | toString(E_Holder(v,vs))= String.concat(["{Holder_for_ArrVar : ",Var.name  v, " Rest :"]@ (List.map Var.name vs)@["}"])        | toString(E_Holder(v,vs))= String.concat(["{Holder_for_ArrVar : ",Var.name  v, " Rest :"]@ (List.map Var.name vs)@["}"])
220              fun toStrings e=String.concat(List.map toString e)              fun toStrings e=String.concat(List.map toString e)
221    

Legend:
Removed from v.3171  
changed lines
  Added in v.3172

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