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

SCM Repository

[diderot] Annotation of /branches/vis15/src/compiler/options/target-options.sml
ViewVC logotype

Annotation of /branches/vis15/src/compiler/options/target-options.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 3812 - (view) (download)

1 : jhr 3812 (* target-options.sml
2 : jhr 3351 *
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 :     * Utility support for target selection, etc.
9 :     *)
10 :    
11 : jhr 3812 structure TargetOptions =
12 : jhr 3351 struct
13 :    
14 : jhr 3812 datatype platform
15 :     = SEQUENTIAL (* sequential code for the CPU *)
16 :     | PARALLEL (* parallel code for the CPU *)
17 : jhr 3351 | OPENCL (* OpenCL *)
18 :     | CUDA (* CUDA *)
19 :    
20 :     (* the target descriptor collects together the information specified on the Diderot
21 :     * compiler's command-line.
22 :     *)
23 : jhr 3812 type t = {
24 : jhr 3351 srcFile : string, (* source filename *)
25 :     outDir : string, (* directory to put output *)
26 :     outBase : string, (* basename for output or name of executable *)
27 :     exec : bool, (* generate standalone executable? *)
28 :     snapshot : bool, (* generate functions to get snapshot *)
29 : jhr 3812 platform : platform, (* target platform *)
30 : jhr 3351 namespace : string, (* optional namespace prefix *)
31 :     double : bool, (* true for double-precision candidates *)
32 :     longint : bool, (* true for 64-bit integers (not currently used) *)
33 :     debug : bool, (* true if debugging of the target is enabled *)
34 :     bsp : bool (* true if BSP style execution should always be used *)
35 :     }
36 :    
37 : jhr 3812 fun platformToString SEQUENTIAL = "SEQUENTIAL"
38 :     | platformToString PARALLEL = "PARALLEL"
39 :     | platformToString OPENCL = "OPENCL"
40 :     | platformToString CUDA = "CUDA"
41 :    
42 : jhr 3351 end

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