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

SCM Repository

[diderot] Diff of /branches/pure-cfg/src/compiler/codegen/clang.sml
ViewVC logotype

Diff of /branches/pure-cfg/src/compiler/codegen/clang.sml

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

revision 616, Sun Mar 13 14:52:11 2011 UTC revision 617, Sun Mar 13 16:51:09 2011 UTC
# Line 52  Line 52 
52        | S_Assign of exp * exp           (* lvalue '=' exp ';' *)        | S_Assign of exp * exp           (* lvalue '=' exp ';' *)
53        | S_If of exp * stm * stm         (* 'if' exp stm 'else' stm *)        | S_If of exp * stm * stm         (* 'if' exp stm 'else' stm *)
54        | S_While of exp * stm            (* 'while' exp stm *)        | S_While of exp * stm            (* 'while' exp stm *)
55          | S_For of (ty * var * exp) list * exp * exp list * stm
56                                            (* 'for' '(' inits ';' exp ';' incrs ')' stm *)
57        | S_Call of string * exp list        | S_Call of string * exp list
58        | S_Return of exp option          (* 'return' [ exp ] ';' *)        | S_Return of exp option          (* 'return' [ exp ] ';' *)
59    
# Line 176  Line 178 
178      val mkAssign = S_Assign      val mkAssign = S_Assign
179      fun mkIfThenElse (e, b1, b2) = S_If(paren e, b1, b2)      fun mkIfThenElse (e, b1, b2) = S_If(paren e, b1, b2)
180      fun mkIfThen (e, b) = mkIfThenElse (e, b, skip)      fun mkIfThen (e, b) = mkIfThenElse (e, b, skip)
181        val mkFor = S_For
182      fun mkWhile (e, b) = S_While(paren e, b)      fun mkWhile (e, b) = S_While(paren e, b)
183      val mkCall = S_Call      val mkCall = S_Call
184      val mkReturn = S_Return      val mkReturn = S_Return

Legend:
Removed from v.616  
changed lines
  Added in v.617

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