Permalink
Browse files

refs #11: use new clCreateContext in examplex

  • Loading branch information...
1 parent 1e0f422 commit 36308d7d3bb30c4dd394e3e157acd3f5945288a8 @zhensydow zhensydow committed Jan 23, 2012
Showing with 6 additions and 6 deletions.
  1. +1 −1 examples/example01.hs
  2. +1 −1 examples/example02.hs
  3. +1 −1 examples/example03.hs
  4. +1 −1 examples/example04.hs
  5. +1 −1 examples/example05.hs
  6. +1 −1 examples/example06.hs
@@ -42,7 +42,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [CL_CONTEXT_PLATFORM platform] [dev] print
q <- clCreateCommandQueue context dev []
-- Initialize Kernel
@@ -47,7 +47,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [] [dev] print
q <- clCreateCommandQueue context dev [CL_QUEUE_PROFILING_ENABLE]
-- Initialize Kernel
@@ -45,7 +45,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [] [dev] print
q <- clCreateCommandQueue context dev []
-- Initialize Kernels
@@ -42,7 +42,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [] [dev] print
q <- clCreateCommandQueue context dev []
-- Compile and get binaries
@@ -44,7 +44,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [] [dev] print
q <- clCreateCommandQueue context dev []
-- Initialize Kernel
@@ -42,7 +42,7 @@ main = do
-- Initialize OpenCL
(platform:_) <- clGetPlatformIDs
(dev:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_ALL
- context <- clCreateContext [dev] print
+ context <- clCreateContext [] [dev] print
q <- clCreateCommandQueue context dev []
-- Initialize Kernel

0 comments on commit 36308d7

Please sign in to comment.