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

SCM Repository

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

Diff of /branches/vis12/src/compiler/driver/options.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              defs : string list,                 (* input-variable definitions *)              defs : string list,                 (* input-variable definitions *)
17              target : TargetUtil.target_desc,              target : TargetUtil.target_desc,
18              output : string option,             (* "-o" specified file *)              output : string option,             (* "-o" specified file *)
             standalone : bool,                  (* true if target is standalone executable *)  
19              file : string              file : string
20            }            }
21    
# Line 123  Line 122 
122                  } args                  } args
123          (* figure out target details *)          (* figure out target details *)
124            val targetDesc = {            val targetDesc = {
125                      exec = !standaloneFlg,
126                    target = !target,                    target = !target,
127                    parallel = !parallel,                    parallel = !parallel,
128                    double = !doubleFlg,                    double = !doubleFlg,
# Line 134  Line 134 
134              defs = defs,              defs = defs,
135              target = targetDesc,              target = targetDesc,
136              output = !outputOpt,              output = !outputOpt,
             standalone = !standaloneFlg,  
137              file = (case files              file = (case files
138                 of [] => if !helpFlg then "" else raise Usage "missing file argument"                 of [] => if !helpFlg then "" else raise Usage "missing file argument"
139                  | f::_ => f                  | f::_ => f

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