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 3122, Tue Mar 24 09:08:24 2015 UTC revision 3123, Tue Mar 24 09:33:07 2015 UTC
# Line 122  Line 122 
122      val clEnabled = @CL_ENABLED@      val clEnabled = @CL_ENABLED@
123      val clVersion = if clEnabled      val clVersion = if clEnabled
124            then let            then let
125              val major = @CL_VERSION@ div 10000            (* assume a numbering scheme equivalent to __OPENCL_VERSION__ *)
126              val minor = (@CL_VERSION@ div 100) mod 100              val major = @CL_VERSION@ div 100
127              val patch = @CL_VERSION@ mod 100              val minor = (@CL_VERSION@ div 10) mod 10
128                val patch = @CL_VERSION@ mod 10
129              in              in
130                if patch > 0 then [major, minor, patch] else [major, minor]                if patch > 0 then [major, minor, patch] else [major, minor]
131              end              end

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

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