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

SCM Repository

[diderot] Diff of /branches/vis12/src/compiler/cl-target/cl-target.sml
ViewVC logotype

Diff of /branches/vis12/src/compiler/cl-target/cl-target.sml

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

revision 1705, Tue Mar 6 21:59:47 2012 UTC revision 1706, Wed Mar 7 12:06:48 2012 UTC
# Line 111  Line 111 
111                (* end case *))                (* end case *))
112        (* translate a variable that occurs in an l-value context (i.e., as the target of an assignment) *)        (* translate a variable that occurs in an l-value context (i.e., as the target of an assignment) *)
113          fun lvalueVar (env, x) = (case V.kind x          fun lvalueVar (env, x) = (case V.kind x
114                 of IL.VK_Global => CL.mkIndirect(CL.mkVar RN.globalsVarName, lookup(env, x))                 of IL.VK_Local => CL.mkVar(lookup(env, x))
115                  | IL.VK_Local => CL.mkVar(lookup(env, x))                  | _ => CL.mkIndirect(CL.mkVar RN.globalsVarName, lookup(env, x))
116                (* end case *))                (* end case *))
117        (* translate a variable that occurs in an r-value context *)        (* translate a variable that occurs in an r-value context *)
118          fun rvalueVar (env, x) = (case V.kind x          fun rvalueVar (env, x) = (case V.kind x
119                 of IL.VK_Global => CL.mkIndirect(CL.mkVar RN.globalsVarName, lookup(env, x))                 of IL.VK_Local => CL.mkVar(lookup(env, x))
120                  | IL.VK_Local => CL.mkVar(lookup(env, x))                  | _ => CL.mkIndirect(CL.mkVar RN.globalsVarName, lookup(env, x))
121                (* end case *))                (* end case *))
122        (* translate a strand state variable that occurs in an l-value context *)        (* translate a strand state variable that occurs in an l-value context *)
123          fun lvalueStateVar (IL.SV{name, ...}) = lvalueSV name          fun lvalueStateVar (IL.SV{name, ...}) = lvalueSV name
# Line 785  Line 785 
785                val extraLibs = condCons (parallel, #pthread Paths.extraLibs, [])                val extraLibs = condCons (parallel, #pthread Paths.extraLibs, [])
786                val extraLibs = Paths.teemLinkFlags @  #base Paths.extraLibs :: extraLibs                val extraLibs = Paths.teemLinkFlags @  #base Paths.extraLibs :: extraLibs
787                     val extraLibs =  #cl Paths.extraLibs :: extraLibs                     val extraLibs =  #cl Paths.extraLibs :: extraLibs
788                val rtLib = TargetUtil.runtimeName {                val rtLib = TargetUtil.runtimeName tgt
                       exec = exec, target = TargetUtil.TARGET_CL,  
                       parallel = parallel, double = double, debug = debug  
                     }  
789                val ldOpts = rtLib :: extraLibs                val ldOpts = rtLib :: extraLibs
790                val basename = OS.Path.joinDirFile{dir=outDir, file=outBase}                val basename = OS.Path.joinDirFile{dir=outDir, file=outBase}
791                in                in

Legend:
Removed from v.1705  
changed lines
  Added in v.1706

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