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

Parent Directory | Revision Log | Patch

	revision 2615, Wed May 14 00:22:49 2014 UTC	revision 2624, Fri May 16 17:53:41 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,"==...Lit"]	| DstIL.LIT _=> String.concat[Var.toString  x,"==...Literal"]
23	| DstIL.CONS (_, varl)=>  String.concat[(Var.toString  x),"==",	| DstIL.CONS (ty, vars)=>  String.concat[(Var.toString  x),"== Type:",DstTy.toString ty,"--",
24	(String.concatWith "," (List.map (fn e1=> Var.toString e1) varl))]	(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]
26	(*end case*))	(*end case*))
27	| toStringAssgn _ = raise Fail "Non-assignment operator"	| toStringAssgn _ = raise Fail "Non-assignment operator"

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2615   changed lines   Added in v.2624

---

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