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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/driver/backend.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/driver/backend.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1703, Tue Mar 6 13:05:55 2012 UTC revision 1704, Tue Mar 6 15:44:37 2012 UTC
# Line 16  Line 16 
16              | TargetUtil.TARGET_CUDA => raise Fail "CUDA not supported yet"              | TargetUtil.TARGET_CUDA => raise Fail "CUDA not supported yet"
17            (* end case *))            (* end case *))
18    
19      fun generate {target, parallel, double, debug} = let      fun generate {exec, target, parallel, double, debug} = let
20            val gen = pickBackend target            val gen = pickBackend target
21            in            in
22              fn (basename, prog) => gen {              fn (basename, prog) => gen {
23                  basename=basename, double=double, parallel=parallel, debug=debug, prog=prog                  basename=basename, exec=exec,
24                    double=double, parallel=parallel, debug=debug,
25                    prog=prog
26                }                }
27            end            end
28    

Legend:
Removed from v.1703  
changed lines
  Added in v.1704

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