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

SCM Repository

[diderot] Diff of /branches/lamont_dev/src/compiler/codegen/clang.sml
ViewVC logotype

Diff of /branches/lamont_dev/src/compiler/codegen/clang.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch 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)

Legend:
Removed from v.1232  
changed lines
  Added in v.1301

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