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

SCM Repository

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

Diff of /branches/charisee/src/compiler/mid-to-low/toString.sml

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

revision 2668, Thu Jun 12 03:29:04 2014 UTC revision 2669, Fri Jun 13 02:08:31 2014 UTC
# Line 19  Line 19 
19  fun toStringAssgn(DstIL.ASSGN (x,  A))=(case A  fun toStringAssgn(DstIL.ASSGN (x,  A))=(case A
20          of  DstIL.OP(opss,args)=> String.concat [(Var.toString x),"==",DstOp.toString opss,          of  DstIL.OP(opss,args)=> String.concat [(Var.toString x),"==",DstOp.toString opss,
21              " : ",(String.concatWith "," (List.map Var.toString args))]              " : ",(String.concatWith "," (List.map Var.toString args))]
22          | DstIL.LIT _=> String.concat[Var.toString  x,"==...Literal"]          | DstIL.LIT(Literal.Int d)=> String.concat[Var.toString  x,"==...Literal",IntInf.toString( d)]
23          | DstIL.CONS (ty, vars)=>  String.concat[(Var.toString  x),"== Type:",DstTy.toString ty,"--",          | DstIL.CONS (ty, vars)=>  String.concat[(Var.toString  x),"== Type:",DstTy.toString ty,"--",
24              (String.concatWith "," (List.map (fn e1=> Var.toString e1) vars))]              (String.concatWith "," (List.map (fn e1=> Var.toString e1) vars))]
25          |  _ => String.concat[Var.toString  x,"==","Etc",toStringRHS x]          |  _ => String.concat[Var.toString  x,"==","Etc",toStringRHS x]

Legend:
Removed from v.2668  
changed lines
  Added in v.2669

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