SCM Repository
Diff of /trunk/src/compiler/codegen/clang.sml
Parent Directory
| 
Revision Log
| 
Patch
| revision 1232, Mon May 16 23:37:52 2011 UTC | revision 1301, Thu Jun 9 23:58:40 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_Named "char") | val charTy = T_Named "char" |
| 25 | val charPtr = T_Ptr(charTy) | |
| 26 | val charArrayPtr = T_Ptr(charPtr) | |
| 27 | val intTy = T_Named "int" | val intTy = T_Named "int" |
| 28 | val int32 = T_Num(RawTypes.RT_Int32) | val int32 = T_Num(RawTypes.RT_Int32) |
| 29 | val uint32 = T_Num(RawTypes.RT_UInt32) | val uint32 = T_Num(RawTypes.RT_UInt32) |
| # | Line 268 | Line 270 |
| 270 | | ^-- => "--" | | ^-- => "--" |
| 271 | (* end case *)) | (* end case *)) |
| 272 | ||
| 273 | (* for debugging (not syntactically correct!) *) | |
| 274 | fun expToString e = let | fun expToString e = let |
| 275 | fun e2s (e, l) = (case e | fun e2s (e, l) = (case e |
| 276 | of E_Grp e => "(" :: e2s(e, ")"::l) | of E_Grp e => "(" :: e2s(e, ")"::l) |
|
||||||||
| root@smlnj-gforge.cs.uchicago.edu | ViewVC Help |
| Powered by ViewVC 1.0.0 |
