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
|
/*
* 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 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_platform_id.h"
#include "cl_internals.h"
#include "cl_utils.h"
#include "CL/cl.h"
#include "CL/cl_ext.h"
#include <stdlib.h>
#include <string.h>
#define DECL_INFO_STRING(FIELD, STRING) \
.FIELD = STRING, \
.JOIN(FIELD,_sz) = sizeof(STRING),
static struct _cl_platform_id intel_platform_data = {
INIT_ICD(dispatch)
DECL_INFO_STRING(profile, "FULL_PROFILE")
DECL_INFO_STRING(version, LIBCL_VERSION_STRING)
DECL_INFO_STRING(name, "Experiment Intel Gen OCL Driver")
DECL_INFO_STRING(vendor, "Intel")
DECL_INFO_STRING(icd_suffix_khr, "Intel")
};
#undef DECL_INFO_STRING
/* Intel platform (only GPU now) */
cl_platform_id const intel_platform = &intel_platform_data;
LOCAL cl_int
cl_get_platform_ids(cl_uint num_entries,
cl_platform_id * platforms,
cl_uint * num_platforms)
{
if (num_platforms != NULL)
*num_platforms = 1;
cl_intel_platform_extension_init(intel_platform);
/* Easy right now, only one platform is supported */
if(platforms)
*platforms = intel_platform;
intel_platform->extensions_sz = strlen(intel_platform->extensions) + 1;
return CL_SUCCESS;
}
#define DECL_FIELD(CASE,FIELD) \
case JOIN(CL_,CASE): \
if (param_value_size < intel_platform->JOIN(FIELD,_sz)) \
return CL_INVALID_VALUE; \
if (param_value_size_ret != NULL) \
*param_value_size_ret = intel_platform->JOIN(FIELD,_sz); \
memcpy(param_value, \
intel_platform->FIELD, \
intel_platform->JOIN(FIELD,_sz)); \
return CL_SUCCESS;
#define GET_FIELD_SZ(CASE,FIELD) \
case JOIN(CL_,CASE): \
if (param_value_size_ret != NULL) \
*param_value_size_ret = intel_platform->JOIN(FIELD,_sz); \
return CL_SUCCESS;
LOCAL cl_int
cl_get_platform_info(cl_platform_id platform,
cl_platform_info param_name,
size_t param_value_size,
void * param_value,
size_t * param_value_size_ret)
{
if (param_value == NULL) {
switch (param_name) {
GET_FIELD_SZ (PLATFORM_PROFILE, profile);
GET_FIELD_SZ (PLATFORM_VERSION, version);
GET_FIELD_SZ (PLATFORM_NAME, name);
GET_FIELD_SZ (PLATFORM_VENDOR, vendor);
GET_FIELD_SZ (PLATFORM_EXTENSIONS, extensions);
GET_FIELD_SZ (PLATFORM_ICD_SUFFIX_KHR, icd_suffix_khr);
default: return CL_INVALID_VALUE;
}
}
/* Fetch the platform inform */
switch (param_name) {
DECL_FIELD (PLATFORM_PROFILE, profile);
DECL_FIELD (PLATFORM_VERSION, version);
DECL_FIELD (PLATFORM_NAME, name);
DECL_FIELD (PLATFORM_VENDOR, vendor);
DECL_FIELD (PLATFORM_EXTENSIONS, extensions);
DECL_FIELD (PLATFORM_ICD_SUFFIX_KHR, icd_suffix_khr);
default: return CL_INVALID_VALUE;
}
}
#undef DECL_FIELD
|
