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

SCM Repository

[diderot] Diff of /branches/charisee_dev/src/compiler/low-il/lowToString.sml
ViewVC logotype

Diff of /branches/charisee_dev/src/compiler/low-il/lowToString.sml

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

revision 3394, Tue Nov 10 17:42:19 2015 UTC revision 3395, Tue Nov 10 18:23:07 2015 UTC
# Line 51  Line 51 
51      fun toStringAssgn(IL.ASSGN (x,  A))=(case A      fun toStringAssgn(IL.ASSGN (x,  A))=(case A
52          of  IL.OP(opss,args)=> String.concat [(V.toString x),"==",Op.toString opss,          of  IL.OP(opss,args)=> String.concat [(V.toString x),"==",Op.toString opss,
53          " : ",(String.concatWith "," (List.map V.toString args))]          " : ",(String.concatWith "," (List.map V.toString args))]
54          | IL.LIT(Literal.Int d)=> String.concat[V.toString  x,"==...Literal",IntInf.toString( d)]          | IL.LIT(Literal.Int d)=> String.concat[V.toString  x,"= Literal_Int",IntInf.toString( d)]
55    | IL.LIT (Literal.Float _)=> String.concat[V.toString  x,"= Literal_float"]
56    | IL.LIT _=> String.concat[V.toString  x,"==...Literal"]
57          | IL.CONS (ty, vars)=>  String.concat[(V.toString  x),"== Type:",Ty.toString ty,"--",          | IL.CONS (ty, vars)=>  String.concat[(V.toString  x),"== Type:",Ty.toString ty,"--",
58              (String.concatWith "," (List.map (fn e1=> V.toString e1) vars))]              (String.concatWith "," (List.map (fn e1=> V.toString e1) vars))]
59          |  _ => String.concat[V.toString  x,"==","Etc",toStringRHS x]          |  _ => String.concat[V.toString  x,"==","Etc",toStringRHS x]

Legend:
Removed from v.3394  
changed lines
  Added in v.3395

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