OpenCL-CTS/test_conformance/allocations/allocation_utils.cpp

//
// Copyright (c) 2017 The Khronos Group Inc.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//    http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.
//
#include "allocation_utils.h"

cl_command_queue reset_queue(cl_context context, cl_device_id device_id,
                             cl_command_queue *queue, int *error)
{
    log_info(
        "Invalid command queue. Releasing and recreating the command queue.\n");
    clReleaseCommandQueue(*queue);
    *queue = clCreateCommandQueue(context, device_id, 0, error);
    return *queue;
}

int check_allocation_error(cl_context context, cl_device_id device_id,
                           int error, cl_command_queue *queue, cl_event *event)
{
    // log_info("check_allocation_error context=%p device_id=%p error=%d
    // *queue=%p\n", context, device_id, error, *queue);
    if (error == CL_EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST && event != 0)
    {
        // check for errors from clWaitForEvents (e.g after
        // clEnqueueWriteBuffer)
        cl_int eventError;
        error = clGetEventInfo(*event, CL_EVENT_COMMAND_EXECUTION_STATUS,
                               sizeof(error), &eventError, 0);
        if (CL_SUCCESS != error)
        {
            log_error("Failed to get event execution status: %s\n",
                      IGetErrorString(error));
            return FAILED_ABORT;
        }
        if (eventError >= 0)
        {
            log_error("Non-negative event execution status after "
                      "CL_EXEC_STATUS_ERROR_FOR_EVENTS_IN_WAIT_LIST: %s\n",
                      IGetErrorString(error));
            return FAILED_ABORT;
        }
        error = eventError;
    }
    if ((error == CL_MEM_OBJECT_ALLOCATION_FAILURE)
        || (error == CL_OUT_OF_RESOURCES) || (error == CL_OUT_OF_HOST_MEMORY)
        || (error == CL_INVALID_IMAGE_SIZE))
    {
        return FAILED_TOO_BIG;
    }
    else if (error == CL_INVALID_COMMAND_QUEUE)
    {
        *queue = reset_queue(context, device_id, queue, &error);
        if (CL_SUCCESS != error)
        {
            log_error(
                "Failed to reset command queue after corrupted queue: %s\n",
                IGetErrorString(error));
            return FAILED_ABORT;
        }
        // Try again with smaller resources.
        return FAILED_TOO_BIG;
    }
    else if (error != CL_SUCCESS)
    {
        log_error("Allocation failed with %s.\n", IGetErrorString(error));
        return FAILED_ABORT;
    }
    return SUCCEEDED;
}


double toMB(cl_ulong size_in) { return (double)size_in / (1024.0 * 1024.0); }

size_t get_actual_allocation_size(cl_mem mem)
{
    int error;
    cl_mem_object_type type;
    size_t size, width, height;

    error = clGetMemObjectInfo(mem, CL_MEM_TYPE, sizeof(type), &type, NULL);
    if (error)
    {
        print_error(error, "clGetMemObjectInfo failed for CL_MEM_TYPE.");
        return 0;
    }

    if (type == CL_MEM_OBJECT_BUFFER)
    {
        error = clGetMemObjectInfo(mem, CL_MEM_SIZE, sizeof(size), &size, NULL);
        if (error)
        {
            print_error(error, "clGetMemObjectInfo failed for CL_MEM_SIZE.");
            return 0;
        }
        return size;
    }
    else if (type == CL_MEM_OBJECT_IMAGE2D)
    {
        error =
            clGetImageInfo(mem, CL_IMAGE_WIDTH, sizeof(width), &width, NULL);
        if (error)
        {
            print_error(error, "clGetMemObjectInfo failed for CL_IMAGE_WIDTH.");
            return 0;
        }
        error =
            clGetImageInfo(mem, CL_IMAGE_HEIGHT, sizeof(height), &height, NULL);
        if (error)
        {
            print_error(error,
                        "clGetMemObjectInfo failed for CL_IMAGE_HEIGHT.");
            return 0;
        }
        return width * height * 4 * sizeof(cl_uint);
    }

    log_error("Invalid CL_MEM_TYPE: %d\n", type);
    return 0;
}