Diff of /branches/vis12/src/compiler/c-util/tree-to-c-fn.sml

Parent Directory | Revision Log | Patch

	revision 2022, Wed Oct 10 11:55:39 2012 UTC	revision 2023, Wed Oct 10 12:27:13 2012 UTC
#	Line 520	Line 520
520	]))))	]))))
521	] end)	] end)
522	*)	*)
523	| IL.S_InputImage _ => [] (* FIXME *)	| IL.S_InputNrrd _ => [] (* FIXME *)
	| IL.S_InputSeq _ => [] (* FIXME *)
524	| _ => []	| _ => []
525	(* end case *))	(* end case *))
526	val stms = List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body	val stms = List.foldr (fn (stm, stms) => trStmt(env, stm)@stms) [] body
#	Line 569	Line 568
568	| IL.S_Input(lhs, name, _, SOME dflt) => [	| IL.S_Input(lhs, name, _, SOME dflt) => [
569	CL.mkAssign(VarToC.lvalueVar(env, lhs), trExp(env, dflt))	CL.mkAssign(VarToC.lvalueVar(env, lhs), trExp(env, dflt))
570	]	]
571	| IL.S_InputImage _ => []	| IL.S_InputNrrd _ => []
	| IL.S_InputSeq _ => []
572	| IL.S_Exit args => []	| IL.S_Exit args => []
573	| IL.S_Active => [CL.mkReturn(SOME(CL.mkVar N.kActive))]	| IL.S_Active => [CL.mkReturn(SOME(CL.mkVar N.kActive))]
574	| IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar N.kStabilize))]	| IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar N.kStabilize))]

---

Colored Diff Long Colored Diff Unidiff Context Diff Side by Side

Legend: Removed from v.2022   changed lines   Added in v.2023

---

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