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

SCM Repository

[diderot] Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/tree-to-cxx.sml

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

revision 4167, Thu Jul 7 15:57:07 2016 UTC revision 4168, Thu Jul 7 16:48:41 2016 UTC
# Line 406  Line 406 
406                    | IR.S_Input(gv, name, _, SOME dflt) =>                    | IR.S_Input(gv, name, _, SOME dflt) =>
407                        (env, CL.mkAssign(lvalueGlobalVar (env, gv), trExp(env, dflt)) :: stms)                        (env, CL.mkAssign(lvalueGlobalVar (env, gv), trExp(env, dflt)) :: stms)
408                    | IR.S_InputNrrd _ => (env, stms)                    | IR.S_InputNrrd _ => (env, stms)
409                    | IR.S_Exit => (env, List.revAppend(Env.handleExit env, stms))                    | IR.S_Return e => (env, CL.mkReturn(SOME(trExp(env, e))) :: stms)
410                    | IR.S_Print(tys, args) => let                    | IR.S_Print(tys, args) => let
411                        val args = List.map (fn e => trExp(env, e)) args                        val args = List.map (fn e => trExp(env, e)) args
412                        val stm = trPrintStm (                        val stm = trPrintStm (

Legend:
Removed from v.4167  
changed lines
  Added in v.4168

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