destroy_test.nim

# Works on checkout 8ce9e434348f6f63b81f7a788bd4093996dbaca7, from 11 days ago but not on latest

import opencl

{.experimental.}

type clResource = PCommandQueue | PKernel | PProgram | PMem | PContext

template release*(queue: PCommandQueue) = check releaseCommandQueue(queue)
template release*(kernel: PKernel) = check releaseKernel(kernel)
template release*(program: PProgram) = check releaseProgram(program)
template release*(buffer: PMem) = check releaseMemObject(buffer)
template release*(context: PContext) = check releaseContext(context)

proc `=destroy`*(clres: clResource) =
  release clres