4

我正在用 Haskell 和 OpenCL 编写路径跟踪器，但在将 image2d_t 传递给内核以将输出写入时遇到问题。也就是说，get_image_*在 image2d_t 上调用 OpenCL 中的任何函数都会返回无意义的值（通常是 0 或 2^24-1），并且write_imagef什么也不做。这只发生在 GPU 上运行时——CPU 运行良好。调用clGetImageInfo主机返回正确的值。OpenCL 的 Haskell 绑定将错误代码转换为异常，因此不必忘记检查错误。clinfo 将我的版本报告为“OpenCL 1.2 AMD-APP (1084.2)”。我应该注意到我遇到（并报告了）多个导致 OpenCL 编译器出现段错误或无法链接的错误，所以这可能是我的代码中的错误而不是错误的结果。

我像这样初始化 OpenCL（希望对不了解 Haskell 的人来说应该比较容易理解）：

(platform:_) <- clGetPlatformIDs
(device:_) <- clGetDeviceIDs platform CL_DEVICE_TYPE_GPU
glContext <- glXGetCurrentContext
glDisplay <- glXGetCurrentDisplay
context <- clCreateContext [CL_GL_CONTEXT_KHR glContext, CL_GLX_DISPLAY_KHR glDisplay] [device] putStrLn
queue <- clCreateCommandQueue context device []
source <- readFile "pt.cl"
program <- clCreateProgramWithSource context source
clBuildProgram program [device] "-cl-strict-aliasing"
        `catch` (λe -> case (e :: CLError) of
                            CL_BUILD_PROGRAM_FAILURE -> putStrLn "Building OpenCL program failed:"
                                                     >> clGetProgramBuildLog program device >>= putStrLn
                                                     >> throw e
                            _                        -> return ())
kernel <- clCreateKernel program "sample"
pCorners <- mallocArray 4
buffer <- clCreateBuffer context [CL_MEM_READ_ONLY, CL_MEM_USE_HOST_PTR] (4*sizeOf (undefined :: V.Vec4F), castPtr pCorners)
clSetKernelArgSto kernel 1 buffer
tex@(TextureObject texid) <- head <$> (genObjectNames 1)
activeTexture $= TextureUnit 0
textureBinding Texture2D $= Just tex
textureFilter Texture2D $= ((Nearest, Nothing), Nearest)
textureWrapMode Texture2D S $= (Repeated, Clamp)
textureWrapMode Texture2D T $= (Repeated, Clamp)
texImage2D Nothing NoProxy 0 RGBA′ (TextureSize2D initialWidth initialHeight) 0 (PixelData RGBA UnsignedByte nullPtr)
image <- clCreateFromGLTexture2D context [CL_MEM_READ_WRITE] gl_TEXTURE_2D 0 texid
clSetKernelArgSto kernel 2 image

我称之为（稍微简化）来运行内核并渲染结果：

clSetKernelArgSto kernel 0 position
pokeArray pCorners orientedCorners -- update the pCorners array
finish -- This is glFinish()
clEnqueueAcquireGLObjects queue [image] []
clEnqueueNDRangeKernel queue kernel [width, height] [] []
clEnqueueReleaseGLObjects queue [image] []
clFinish queue
drawElements TriangleFan 4 UnsignedInt offset0
swapBuffers

最后，测试内核：

__kernel void sample(float3 position, __constant float3 corner[4], image2d_t output) {
        write_imagef(output, (int2)(get_global_id(0), get_global_id(1)), (float4)(0, 0.5f, 1, 1));
}

其输出是一个全屏四边形，显示 GPU 内存的随机未初始化区域。它应该是全屏青色四边形。我在那里有一些printfs 来显示get_image_*函数的结果，但是它们已经开始导致程序挂起。

4

2 回答 2

1

OpenCL 规范对此有规定——image2d_t对象需要访问限定符。

有两个这样的限定符：

  • read_only（或__read_only）
  • write_only（或__write_only）

它们是互斥的，不能一起使用（因此您不能同时读取和写入纹理 - 如果您打算对图像进行累积工作，这一点很重要，我怀疑蒙特卡洛就是这种情况应用程序，例如路径跟踪）。省略限定符是有效的，因为它只是默认为read_only，但不幸的是，这是输出图像的错误选择。

解决方案是使用 限定您的图像参数write_only，或者如果您也需要从中读取，请使用某种交换系统（或使用可以同时读取和写入的全局内存缓冲区，但这使得CL/GL 互操作有点困难，而且你会失去采样功能......）。

我认为它在 CPU 上工作的原因是，因为在 CPU 上没有只读的“纹理内存”，所以即使写入图像在技术上是非法的，它也是可能的，运行时允许你这样做。另一方面，GPU 确实具有只读内存部分，无论您多么努力（或者您的 GPU 设备的运行时间可能更严格），都无法在内核运行时写入这些部分。

*当我说运行时，我指的是支持 OpenCL 的设备，当然不是你的程序。

于 2012-11-30T09:38:20.517 回答
0

我有一个类似的问题。重新排序内核参数后，所有 image2d_t 参数都是第一个参数，它起作用了。特别是调用 get_image_dim 返回了正确的结果。不知道，如果这是一个错误。我的显卡：ATI Radeon 7950。

于 2013-03-06T10:01:10.147 回答