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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/c-util/tree-to-c-fn.sml
ViewVC logotype

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

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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))]

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