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 2665, Tue Jun 3 02:37:46 2014 UTC revision 2666, Wed Jun 4 01:59:49 2014 UTC
# Line 236  Line 236 
236                    | CL.S_Return _ => str "return;"                    | CL.S_Return _ => str "return;"
237                    | CL.S_Break => str "break;"                    | CL.S_Break => str "break;"
238                    | CL.S_Continue => str "continue;"                    | CL.S_Continue => str "continue;"
239                    | CL.S_ExtAssign (ty,v,e)=>  (ppTy(ty, SOME v);  str "=";str" _extension_ "; ppExp e; str ";")   | CL.S_ExtAssign (ty,v,e)=>  (ppTy(ty, NONE); str v; str "=";str" __extension__ "; ppExp e; str ";")
240   | CL.S_Eq(e1,e2) => (ppExp e1;str "="; ppExp e2;str";")   | CL.S_Eq(e1,e2) => (ppExp e1;str "="; ppExp e2;str";")
241    
242                  (* end case *))                  (* end case *))
# Line 298  Line 298 
298                  | CL.E_Ref(ty,e2 )=>(str "*(";ppTy(ty,NONE) ;                  | CL.E_Ref(ty,e2 )=>(str "*(";ppTy(ty,NONE) ;
299                          str "* )&("; ppExp e2; str ")")                          str "* )&("; ppExp e2; str ")")
300                  (*  *(ty* )& (exp)  *)                  (*  *(ty* )& (exp)  *)
301                   | CL.E_Ext e=>  ( str " __extension__ "; ppExp e)
302    
303    
304                  (* end case *))                  (* end case *))

Legend:
Removed from v.2665  
changed lines
  Added in v.2666

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