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

SCM Repository

[diderot] Annotation of /branches/vis15/src/compiler/common/size-of_sml.in
ViewVC logotype

Annotation of /branches/vis15/src/compiler/common/size-of_sml.in

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4239 - (view) (download)

1 : jhr 3348 (* size-of.sml
2 :     *
3 :     * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     *
5 :     * COPYRIGHT (c) 2015 The University of Chicago
6 :     * All rights reserved.
7 :     *
8 :     * @configure_input@
9 :     *
10 :     * Sizes of various C types that the compiler needs to know about.
11 :     *)
12 :    
13 :     structure SizeOf =
14 :     struct
15 :    
16 : jhr 4239 (* C representation of booleans; we include this definition in this module because
17 :     * it defined by the configuration.
18 :     *)
19 :     val c_bool = "@BOOLTY@"
20 :    
21 :     (* Sizes of standard C/C++ types *)
22 : jhr 3348 val c_int : Word.word = 0w@SIZEOF_C_INT@
23 :     val c_long : Word.word = 0w@SIZEOF_C_LONG@
24 :     val c_float : Word.word = 0w@SIZEOF_C_FLOAT@
25 :     val c_double : Word.word = 0w@SIZEOF_C_DOUBLE@
26 :    
27 :     (* Sizes of host-side OpenCL types; these will be 0 if OpenCL is not supported *)
28 :     val cl_int : Word.word = 0w@SIZEOF_CL_INT@
29 :     val cl_long : Word.word = 0w@SIZEOF_CL_LONG@
30 :     val cl_float : Word.word = 0w@SIZEOF_CL_FLOAT@
31 :     val cl_double : Word.word = 0w@SIZEOF_CL_DOUBLE@
32 :    
33 :     end

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