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

SCM Repository

[diderot] Annotation of /branches/vis15/src/compiler/driver/targets.sml
ViewVC logotype

Annotation of /branches/vis15/src/compiler/driver/targets.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 5097 - (view) (download)

1 : jhr 3863 (* targets.sml
2 :     *
3 :     * This code is part of the Diderot Project (http://diderot-language.cs.uchicago.edu)
4 :     *
5 :     * COPYRIGHT (c) 2016 The University of Chicago
6 :     * All rights reserved.
7 :     *)
8 :    
9 :     structure Targets : sig
10 :    
11 :     val get : TargetOptions.t -> {
12 : jhr 4317 info : TreeIR.target_info,
13 : jhr 5097 generate : CmdLineConstants.t * TreeIR.program -> unit
14 : jhr 4317 }
15 : jhr 3863
16 :     end = struct
17 :    
18 : jhr 3901 fun get (tgt : TargetOptions.t) = (case #platform tgt
19 : jhr 4317 of TargetOptions.SEQUENTIAL => TargetCPU.target tgt
20 :     | TargetOptions.PARALLEL => TargetCPU.target tgt
21 : jhr 5012 | TargetOptions.DEBUGGER => TargetCPU.target tgt
22 : jhr 4317 | TargetOptions.OPENCL => raise Fail "OpenCL not supported yet"
23 :     | TargetOptions.CUDA => raise Fail "CUDA not supported yet"
24 :     (* end case *))
25 : jhr 3863
26 :     end

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