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

SCM Repository

[diderot] Diff of /branches/vis12-cl/src/compiler/common/paths_sml.in
ViewVC logotype

Diff of /branches/vis12-cl/src/compiler/common/paths_sml.in

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

revision 3123, Tue Mar 24 09:33:07 2015 UTC revision 3124, Tue Mar 24 09:59:45 2015 UTC
# Line 120  Line 120 
120    
121    (* other configuration options *)    (* other configuration options *)
122      val clEnabled = @CL_ENABLED@      val clEnabled = @CL_ENABLED@
123      val clVersion = if clEnabled      val (clVersion, clStd) = if clEnabled
124            then let            then let
125            (* assume a numbering scheme equivalent to __OPENCL_VERSION__ *)            (* assume a numbering scheme equivalent to __OPENCL_VERSION__ *)
126              val major = @CL_VERSION@ div 100              val major = @CL_VERSION@ div 100
127              val minor = (@CL_VERSION@ div 10) mod 10              val minor = (@CL_VERSION@ div 10) mod 10
128              val patch = @CL_VERSION@ mod 10              val patch = @CL_VERSION@ mod 10
129                val vers = if patch > 0 then [major, minor, patch] else [major, minor]
130              in              in
131                if patch > 0 then [major, minor, patch] else [major, minor]                (vers, String.concat["CL", Int.toString major, ".", Int.toString minor])
132              end              end
133            else []            else ([], "")
134        val clVersionString = "@CL_VERSION@"
135      val cudaEnabled = @CUDA_ENABLED@      val cudaEnabled = @CUDA_ENABLED@
136      end (* local *)      end (* local *)
137    

Legend:
Removed from v.3123  
changed lines
  Added in v.3124

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