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 3958, Sun Jun 12 19:51:51 2016 UTC revision 3959, Mon Jun 13 14:54:10 2016 UTC
# Line 369  Line 369 
369                    | IR.S_Input(gv, name, _, SOME dflt) =>                    | IR.S_Input(gv, name, _, SOME dflt) =>
370                        (env, CL.mkAssign(lvalueGlobalVar (env, gv), trExp(env, dflt)) :: stms)                        (env, CL.mkAssign(lvalueGlobalVar (env, gv), trExp(env, dflt)) :: stms)
371                    | IR.S_InputNrrd _ => (env, stms)                    | IR.S_InputNrrd _ => (env, stms)
372                    | IR.S_Exit => (env, stms)                    | IR.S_Exit => (env, List.revAppend(Env.handleExit env, stms))
373                    | IR.S_Print(tys, args) => let                    | IR.S_Print(tys, args) => let
374                        val args = List.map (fn e => trExp(env, e)) args                        val args = List.map (fn e => trExp(env, e)) args
375                        val stm = trPrintStm (                        val stm = trPrintStm (

Legend:
Removed from v.3958  
changed lines
  Added in v.3959

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