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

SCM Repository

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

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

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

revision 1802, Thu Apr 5 13:49:39 2012 UTC revision 1803, Fri Apr 6 13:46:37 2012 UTC
# Line 522  Line 522 
522                            CL.T_Named N.statusTy, sts,                            CL.T_Named N.statusTy, sts,
523                            SOME(CL.I_Exp(CL.E_Apply(loadFn, [name, addrOf lhs]))))                            SOME(CL.I_Exp(CL.E_Apply(loadFn, [name, addrOf lhs]))))
524                        ] end)                        ] end)
525                    | IL.S_Input(lhs, name, desc, optDflt) => let                    | IL.S_Input(_, _, _, NONE) => []
526                        val inputFn = N.input(V.ty lhs)                    | IL.S_Input(lhs, name, _, SOME dflt) => [
527                        val lhs = VarToC.lvalueVar (env, lhs)                          CL.mkAssign(VarToC.lvalueVar(env, lhs), trExp(env, dflt))
528                        val (initCode, hasDflt) = (case optDflt                        ]
                              of SOME e => ([CL.mkAssign(lhs, trExp(env, e))], true)  
                               | NONE => ([], false)  
                             (* end case *))  
                       val code = [CL.mkCall(inputFn, [  
                               CL.mkVar "opts",  
                               CL.mkStr name,  
                               CL.mkStr desc,  
                               addrOf lhs,  
                               CL.mkBool hasDflt])]  
                       in  
                         initCode @ code  
                       end  
529                    | IL.S_Exit args => [CL.mkReturn NONE]                    | IL.S_Exit args => [CL.mkReturn NONE]
530                    | IL.S_Active => [CL.mkReturn(SOME(CL.mkVar N.kActive))]                    | IL.S_Active => [CL.mkReturn(SOME(CL.mkVar N.kActive))]
531                    | IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar N.kStabilize))]                    | IL.S_Stabilize => [CL.mkReturn(SOME(CL.mkVar N.kStabilize))]

Legend:
Removed from v.1802  
changed lines
  Added in v.1803

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