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/print-as-cxx.sml
ViewVC logotype

Diff of /branches/vis15/src/compiler/cxx-util/print-as-cxx.sml

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

revision 5107, Tue Jul 18 18:43:25 2017 UTC revision 5108, Tue Jul 18 18:45:02 2017 UTC
# Line 448  Line 448 
448                            };                            };
449                          str "}";                          str "}";
450                        PP.closeBox strm)                        PP.closeBox strm)
451                      | CL.E_Array exps => (
452                          str "{";
453                          PP.openHVBox strm indent;
454                            List.app (fn e => (
455                                PP.break strm;
456                                inHBox (fn () => (ppExp e; str ","))))
457                              exps;
458                          PP.closeBox strm;
459                          str "}")
460                    | CL.E_Var x => str(CL.varToString x)                    | CL.E_Var x => str(CL.varToString x)
461                    | CL.E_Int(n, CL.T_Num(RawTypes.RT_Int64)) =>                    | CL.E_Int(n, CL.T_Num(RawTypes.RT_Int64)) =>
462                        str(IntLit.toString n ^ "l")                        str(IntLit.toString n ^ "l")

Legend:
Removed from v.5107  
changed lines
  Added in v.5108

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