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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/c-target/print-as-c.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/c-target/print-as-c.sml

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

revision 544, Wed Feb 16 23:14:14 2011 UTC revision 547, Thu Feb 17 14:57:07 2011 UTC
# Line 77  Line 77 
77                  end                  end
78            fun ppDecl dcl = (case dcl            fun ppDecl dcl = (case dcl
79                   of CL.D_Comment l => List.app ppComLn l                   of CL.D_Comment l => List.app ppComLn l
80                      | CL.D_Verbatim l =>
81                          List.app (fn s => (str s; PP.newline strm)) l
82                    | CL.D_Var(attrs, ty, x) => (                    | CL.D_Var(attrs, ty, x) => (
83                        inHBox (fn () => (                        inHBox (fn () => (
84                          ppList {pp=str, sep=sp, l = attrs};                          ppList {pp=str, sep=sp, l = attrs};

Legend:
Removed from v.544  
changed lines
  Added in v.547

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