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 1278, Mon Jun 6 16:27:28 2011 UTC revision 1279, Mon Jun 6 17:09:33 2011 UTC
# Line 23  Line 23 
23      val voidTy = T_Named "void"      val voidTy = T_Named "void"
24      val charTy = T_Named "char"      val charTy = T_Named "char"
25      val charPtr = T_Ptr(T_Named "char")      val charPtr = T_Ptr(T_Named "char")
26      val charArrayPtr = T_Ptr(T_Named "char *")      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 32  Line 32 
32      val double = T_Num(RawTypes.RT_Double)      val double = T_Num(RawTypes.RT_Double)
33    
34  (* FIXME: these types do not belong here! *)  (* FIXME: these types do not belong here! *)
   (* OpenCL specific types *)  
     val clProgramTy = T_Named "cl_program"  
     val clKernelTy  = T_Named "cl_kernel"  
     val clCmdQueueTy = T_Named "cl_command_queue"  
     val clContextTy = T_Named "cl_context"  
     val clDeviceIdTy = T_Named "cl_device_id"  
     val clPlatformIdTy = T_Named "cl_platform_id"  
     val clMemoryTy = T_Named "cl_mem"  
   
35      datatype decl      datatype decl
36        = D_Comment of string list        = D_Comment of string list
37      (* verbatim text (e.g., preprocessor directives) *)      (* verbatim text (e.g., preprocessor directives) *)

Legend:
Removed from v.1278  
changed lines
  Added in v.1279

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