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

SCM Repository

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

View of /branches/staging/src/compiler/common/size-of_sml.in

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2152 - (download) (annotate)
Sun Feb 17 19:39:37 2013 UTC (6 years, 5 months ago) by jhr
File size: 728 byte(s)
 Updating stage with changes from vis12 branch (mostly functions, plus some bug fixes)
(* size-of.sml
 *
 * COPYRIGHT (c) 2012 The Diderot Project (http://diderot-language.cs.uchicago.edu)
 * All rights reserved.
 *
 * @configure_input@
 *
 * Sizes of various C types that the compiler needs to know about.
 *)

structure SizeOf =
  struct

  (* Sizes of standard C types *)
    val c_int : Word.word = 0w@SIZEOF_C_INT@
    val c_long : Word.word = 0w@SIZEOF_C_LONG@
    val c_float : Word.word = 0w@SIZEOF_C_FLOAT@
    val c_double : Word.word = 0w@SIZEOF_C_DOUBLE@

  (* Sizes of host-side OpenCL types *)
    val cl_int : Word.word = 0w@SIZEOF_CL_INT@
    val cl_long : Word.word = 0w@SIZEOF_CL_LONG@
    val cl_float : Word.word = 0w@SIZEOF_CL_FLOAT@
    val cl_double : Word.word = 0w@SIZEOF_CL_DOUBLE@

  end

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