Function getSCImage

src/library/blas/scimage.c:149–193

}

cl_mem VISIBILITY_HIDDEN
getSCImage(
    cl_context ctx,
    cl_device_id devID,
    cl_ulong bestSize,
    cl_ulong minSize,
    size_t minWidth)
{
    cl_mem img = NULL;
    DeviceNode *devNode;
    SearchContext sctx;

    sctx.ctx = ctx;
    sctx.devID = devID;
    sctx.bestSize = bestSize;
    sctx.minSize = minSize;
    sctx.minWidth = minWidth;
    sctx.minExtraSize = (cl_ulong)1 << 63;
    sctx.bestImgNode = NULL;

    devNode = malloc(sizeof(DeviceNode));
    if (devNode == NULL) {
        return NULL;
    }

    /*
     * find an image serving turn to minimum of either
     * unused image space or unfitted data size
     */
    IMAGES_LOCK();
    listDoForEachPriv(&images, checkBestImage, &sctx);
    if (sctx.bestImgNode != NULL) {
        img = sctx.bestImgNode->image;
        devNode->devID = devID;
        listAddToTail(&sctx.bestImgNode->usingDevices, &devNode->node);
        clRetainMemObject(img);
    }
    IMAGES_UNLOCK();

    if (img == NULL) {
        free(devNode);
    }

    return img;
}

void VISIBILITY_HIDDEN
putSCImage(cl_device_id devID, cl_mem image)