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

SCM Repository

[diderot] Diff of /branches/charisee/src/compiler/c-util/print-as-c.sml
ViewVC logotype

Diff of /branches/charisee/src/compiler/c-util/print-as-c.sml

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

revision 2670, Wed Jul 9 21:54:54 2014 UTC revision 2671, Fri Jul 18 18:57:06 2014 UTC
# Line 82  Line 82 
82                        pp (isFirst, ty, optVar)                        pp (isFirst, ty, optVar)
83                  | pp (_,CL.T_RealArr(_,size) ,SOME x)=let                  | pp (_,CL.T_RealArr(_,size) ,SOME x)=let
84                      fun shape [e1]=  (str"[";str(q e1); str"]")                      fun shape [e1]=  (str"[";str(q e1); str"]")
85                        | shape (e1::es)= (str"[";str(q e1); str"]";shape es )                        | shape ([e1,e2])=  shape([(e1*e2)])
86                          | shape (e1::e2::es)=  shape((e1*e2)::es)
87                         (* | shape (e1::es)=  (str"[";str(q e1); str"]";shape es )*)
88                      in                      in
89                        (str" ";str x; shape size)                        (str" ";str x; shape size)
90                      end                      end

Legend:
Removed from v.2670  
changed lines
  Added in v.2671

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