1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
|
/*
* Copyright © 2012 Intel Corporation
*
* This library 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 2.1 of the License, or (at your option) any later version.
*
* This library 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 this library. If not, see <http://www.gnu.org/licenses/>.
*
* Author: Benjamin Segovia <benjamin.segovia@intel.com>
*/
#include "cl_context.h"
#include "cl_sampler.h"
#include "cl_utils.h"
#include "cl_alloc.h"
#include "cl_khr_icd.h"
#include "cl_kernel.h"
#include <assert.h>
uint32_t cl_to_clk(cl_bool normalized_coords,
cl_addressing_mode address,
cl_filter_mode filter)
{
int clk_address = CLK_ADDRESS_NONE;
int clk_filter = CLK_FILTER_NEAREST;
switch (address) {
case CL_ADDRESS_NONE: clk_address = CLK_ADDRESS_NONE; break;
case CL_ADDRESS_CLAMP: clk_address = CLK_ADDRESS_CLAMP; break;
case CL_ADDRESS_CLAMP_TO_EDGE: clk_address = CLK_ADDRESS_CLAMP_TO_EDGE; break;
case CL_ADDRESS_REPEAT: clk_address = CLK_ADDRESS_REPEAT; break;
case CL_ADDRESS_MIRRORED_REPEAT: clk_address = CLK_ADDRESS_MIRRORED_REPEAT; break;
default:
assert(0);
}
switch(filter) {
case CL_FILTER_NEAREST: clk_filter = CLK_FILTER_NEAREST; break;
case CL_FILTER_LINEAR: clk_filter = CLK_FILTER_LINEAR; break;
default:
assert(0);
}
return (clk_address << __CLK_ADDRESS_BASE)
| (normalized_coords << __CLK_NORMALIZED_BASE)
| (clk_filter);
}
#define IS_SAMPLER_ARG(v) (v & __CLK_SAMPLER_ARG_KEY_BIT)
#define SAMPLER_ARG_ID(v) ((v & __CLK_SAMPLER_ARG_MASK) >> __CLK_SAMPLER_ARG_BASE)
int cl_set_sampler_arg_slot(cl_kernel k, int index, cl_sampler sampler)
{
int slot_id;
for(slot_id = 0; slot_id < k->sampler_sz; slot_id++)
{
if (IS_SAMPLER_ARG(k->samplers[slot_id])) {
if (SAMPLER_ARG_ID(k->samplers[slot_id]) == index) {
k->samplers[slot_id] = (k->samplers[slot_id] & (~__CLK_SAMPLER_MASK))
| sampler->clkSamplerValue;
return slot_id;
}
}
}
return -1;
}
LOCAL cl_sampler
cl_create_sampler(cl_context ctx, cl_bool normalized_coords, cl_addressing_mode address,
cl_filter_mode filter, cl_int *errcode_ret)
{
cl_sampler sampler = NULL;
/* Allocate and inialize the structure itself */
sampler = cl_calloc(1, sizeof(_cl_sampler));
if (sampler == NULL) {
*errcode_ret = CL_OUT_OF_HOST_MEMORY;
return NULL;
}
CL_OBJECT_INIT_BASE(sampler, CL_OBJECT_SAMPLER_MAGIC);
sampler->normalized_coords = normalized_coords;
sampler->address = address;
sampler->filter = filter;
/* Append the sampler in the context sampler list */
cl_context_add_sampler(ctx, sampler);
// TODO: May move it to other place, it's not a common sampler logic.
sampler->clkSamplerValue = cl_to_clk(normalized_coords, address, filter);
*errcode_ret = CL_SUCCESS;
return sampler;
}
LOCAL void
cl_sampler_delete(cl_sampler sampler)
{
if (UNLIKELY(sampler == NULL))
return;
if (CL_OBJECT_DEC_REF(sampler) > 1)
return;
cl_context_remove_sampler(sampler->ctx, sampler);
CL_OBJECT_DESTROY_BASE(sampler);
cl_free(sampler);
}
LOCAL void
cl_sampler_add_ref(cl_sampler sampler)
{
assert(sampler);
CL_OBJECT_INC_REF(sampler);
}
|
