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 3866, Mon May 16 16:48:13 2016 UTC revision 3869, Tue May 17 12:41:49 2016 UTC
# Line 200  Line 200 
200    
201    (* translate a print expression *)    (* translate a print expression *)
202      fun trPrint (env, tys, args) = let      fun trPrint (env, tys, args) = let
203            fun mkExp (lhs, []) = CL.mkBinOp(lhs, CL.#<<, CL.mkVar "std::end")            val args = List.map (fn e => trExp(env, e)) args
             | mkExp (lhs, e) = CL.mkBinOp(lhs, CL.#<<, trExp(env, e))  
204            in            in
205              CL.mkExpStm (mkExp (CL.mkIndirect(CL.mkVar "wrld", "_output"), args))              GenPrint.genPrintStm (CL.mkIndirect(CL.mkVar "wrld", "_output"), tys, args)
206            end            end
207    
208      fun trLocals (env : env, locals) =      fun trLocals (env : env, locals) =

Legend:
Removed from v.3866  
changed lines
  Added in v.3869

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