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 622, Mon Mar 14 19:56:40 2011 UTC revision 623, Tue Mar 15 17:04:53 2011 UTC
# Line 21  Line 21 
21        | T_Named of string        | T_Named of string
22    
23      val voidTy = T_Named "void"      val voidTy = T_Named "void"
24      val charPtr = T_Ptr(T_Num(RawTypes.RT_UInt8))      val charPtr = T_Ptr(T_Num(RawTypes.RT_UInt8))       (* FIXME: type error for signed char!*)
25      val int32 = T_Num(RawTypes.RT_Int32)      val int32 = T_Num(RawTypes.RT_Int32)
26        val uint32 = T_Num(RawTypes.RT_UInt32)
27      val int64 = T_Num(RawTypes.RT_Int64)      val int64 = T_Num(RawTypes.RT_Int64)
28      val float = T_Num(RawTypes.RT_Float)      val float = T_Num(RawTypes.RT_Float)
29      val double = T_Num(RawTypes.RT_Double)      val double = T_Num(RawTypes.RT_Double)
# Line 48  Line 49 
49      and stm      and stm
50        = S_Block of stm list             (* "{" stms "}" *)        = S_Block of stm list             (* "{" stms "}" *)
51        | S_Comment of string list        | S_Comment of string list
52        | S_Decl of ty * var * exp option (* ty var [ '=' exp ]';' *)        | S_Decl of ty * var * initializer option (* ty var [ '=' exp ]';' *)
53        | S_Assign of exp * exp           (* lvalue '=' exp ';' *)        | S_Assign of exp * exp           (* lvalue '=' exp ';' *)
54        | S_If of exp * stm * stm         (* 'if' exp stm 'else' stm *)        | S_If of exp * stm * stm         (* 'if' exp stm 'else' stm *)
55        | S_While of exp * stm            (* 'while' exp stm *)        | S_While of exp * stm            (* 'while' exp stm *)

Legend:
Removed from v.622  
changed lines
  Added in v.623

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