ccl_kernel_arg.c

Go to the documentation of this file.

/*
 * This file is part of cf4ocl (C Framework for OpenCL).
 *
 * cf4ocl is free software: you can redistribute it and/or modify
 * it under the terms of the GNU Lesser General Public License as
 * published by the Free Software Foundation, either version 3 of the
 * License, or (at your option) any later version.
 *
 * cf4ocl is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU Lesser General Public License for more details.
 *
 * You should have received a copy of the GNU Lesser General Public
 * License along with cf4ocl. If not, see
 * <http://www.gnu.org/licenses/>.
 * */

#include "ccl_kernel_arg.h"
#include "_ccl_abstract_wrapper.h"

#define ccl_arg_is_local(arg) \
     (arg->info == (void*) &arg_local_marker)

static char arg_local_marker;

static const CCLArg arg_skip = { CCL_NONE, NULL, NULL, 0 };

/* Use this constant to skip kernel arguments in ::ccl_kernel_set_args()
 * and ::ccl_kernel_set_args_v() functions. */
CCL_EXPORT
const CCLArg* ccl_arg_skip = &arg_skip;

CCL_EXPORT
CCLArg* ccl_arg_new(void* value, size_t size) {

    /* Make sure size is > 0. */
    g_return_val_if_fail(size > 0, NULL);

    CCLArg* arg = g_slice_new(CCLArg);

    arg->cl_object = g_memdup((const void*) value, (guint) size);
    arg->info = (void*) &arg_local_marker;
    arg->ref_count = (gint) size;

    return arg;

}

CCL_EXPORT
void ccl_arg_destroy(CCLArg* arg) {

    /* Make sure arg is not NULL. */
    g_return_if_fail(arg != NULL);

    if ccl_arg_is_local(arg) {
        g_free(arg->cl_object);
        g_slice_free(CCLArg, arg);
    }
}

CCL_EXPORT
size_t ccl_arg_size(CCLArg* arg) {

    /* Make sure arg is not NULL. */
    g_return_val_if_fail(arg != NULL, 0);

    return ccl_arg_is_local(arg)
        ? (size_t) arg->ref_count
        : sizeof(void*);
}

CCL_EXPORT
void* ccl_arg_value(CCLArg* arg) {

    /* Make sure arg is not NULL. */
    g_return_val_if_fail(arg != NULL, NULL);

    return ccl_arg_is_local(arg)
        ? arg->cl_object
        : &arg->cl_object;
}