d: Add testcase from PR108962
[official-gcc.git] / libgomp / oacc-host.c
blobb75e8bead399cda435629ffa838c7273e1ad7715
1 /* OpenACC Runtime Library: acc_device_host.
3 Copyright (C) 2013-2023 Free Software Foundation, Inc.
5 Contributed by Mentor Embedded.
7 This file is part of the GNU Offloading and Multi Processing Library
8 (libgomp).
10 Libgomp is free software; you can redistribute it and/or modify it
11 under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 3, or (at your option)
13 any later version.
15 Libgomp is distributed in the hope that it will be useful, but WITHOUT ANY
16 WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
17 FOR A PARTICULAR PURPOSE. See the GNU General Public License for
18 more details.
20 Under Section 7 of GPL version 3, you are granted additional
21 permissions described in the GCC Runtime Library Exception, version
22 3.1, as published by the Free Software Foundation.
24 You should have received a copy of the GNU General Public License and
25 a copy of the GCC Runtime Library Exception along with this program;
26 see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
27 <http://www.gnu.org/licenses/>. */
29 #include "libgomp.h"
30 #include "oacc-int.h"
31 #include "gomp-constants.h"
33 #include <stdbool.h>
34 #include <stddef.h>
36 static struct gomp_device_descr host_dispatch;
38 static const char *
39 host_get_name (void)
41 return host_dispatch.name;
44 static unsigned int
45 host_get_caps (void)
47 return host_dispatch.capabilities;
50 static int
51 host_get_type (void)
53 return host_dispatch.type;
56 static int
57 host_get_num_devices (unsigned int omp_requires_mask __attribute__((unused)))
59 return 1;
62 static bool
63 host_init_device (int n __attribute__ ((unused)))
65 return true;
68 static bool
69 host_fini_device (int n __attribute__ ((unused)))
71 return true;
74 static unsigned
75 host_version (void)
77 return GOMP_VERSION;
80 static int
81 host_load_image (int n __attribute__ ((unused)),
82 unsigned v __attribute__ ((unused)),
83 const void *t __attribute__ ((unused)),
84 struct addr_pair **r __attribute__ ((unused)),
85 uint64_t **f __attribute__ ((unused)))
87 return 0;
90 static bool
91 host_unload_image (int n __attribute__ ((unused)),
92 unsigned v __attribute__ ((unused)),
93 const void *t __attribute__ ((unused)))
95 return true;
98 static void *
99 host_alloc (int n __attribute__ ((unused)), size_t s)
101 return gomp_malloc (s);
104 static bool
105 host_free (int n __attribute__ ((unused)), void *p)
107 free (p);
108 return true;
111 static bool
112 host_dev2host (int n __attribute__ ((unused)),
113 void *h __attribute__ ((unused)),
114 const void *d __attribute__ ((unused)),
115 size_t s __attribute__ ((unused)))
117 return true;
120 static bool
121 host_host2dev (int n __attribute__ ((unused)),
122 void *d __attribute__ ((unused)),
123 const void *h __attribute__ ((unused)),
124 size_t s __attribute__ ((unused)))
126 return true;
129 static void
130 host_run (int n __attribute__ ((unused)), void *fn_ptr, void *vars,
131 void **args __attribute__((unused)))
133 void (*fn)(void *) = (void (*)(void *)) fn_ptr;
135 fn (vars);
138 static void
139 host_openacc_exec (void (*fn) (void *),
140 size_t mapnum __attribute__ ((unused)),
141 void **hostaddrs,
142 void **devaddrs __attribute__ ((unused)),
143 unsigned *dims __attribute__ ((unused)),
144 void *targ_mem_desc __attribute__ ((unused)))
146 fn (hostaddrs);
149 static void
150 host_openacc_async_exec (void (*fn) (void *),
151 size_t mapnum __attribute__ ((unused)),
152 void **hostaddrs,
153 void **devaddrs __attribute__ ((unused)),
154 unsigned *dims __attribute__ ((unused)),
155 void *targ_mem_desc __attribute__ ((unused)),
156 struct goacc_asyncqueue *aq __attribute__ ((unused)))
158 fn (hostaddrs);
161 static int
162 host_openacc_async_test (struct goacc_asyncqueue *aq __attribute__ ((unused)))
164 return 1;
167 static bool
168 host_openacc_async_synchronize (struct goacc_asyncqueue *aq
169 __attribute__ ((unused)))
171 return true;
174 static bool
175 host_openacc_async_serialize (struct goacc_asyncqueue *aq1
176 __attribute__ ((unused)),
177 struct goacc_asyncqueue *aq2
178 __attribute__ ((unused)))
180 return true;
183 static bool
184 host_openacc_async_host2dev (int ord __attribute__ ((unused)),
185 void *dst __attribute__ ((unused)),
186 const void *src __attribute__ ((unused)),
187 size_t n __attribute__ ((unused)),
188 struct goacc_asyncqueue *aq
189 __attribute__ ((unused)))
191 return true;
194 static bool
195 host_openacc_async_dev2host (int ord __attribute__ ((unused)),
196 void *dst __attribute__ ((unused)),
197 const void *src __attribute__ ((unused)),
198 size_t n __attribute__ ((unused)),
199 struct goacc_asyncqueue *aq
200 __attribute__ ((unused)))
202 return true;
205 static void
206 host_openacc_async_queue_callback (struct goacc_asyncqueue *aq
207 __attribute__ ((unused)),
208 void (*callback_fn)(void *)
209 __attribute__ ((unused)),
210 void *userptr __attribute__ ((unused)))
214 static struct goacc_asyncqueue *
215 host_openacc_async_construct (int device __attribute__((unused)))
217 /* Non-NULL 0xffff... value as opaque dummy. */
218 return (struct goacc_asyncqueue *) -1;
221 static bool
222 host_openacc_async_destruct (struct goacc_asyncqueue *aq
223 __attribute__ ((unused)))
225 return true;
228 static union goacc_property_value
229 host_openacc_get_property (int n, enum goacc_property prop)
231 union goacc_property_value nullval = { .val = 0 };
233 if (n >= host_get_num_devices (0))
234 return nullval;
236 switch (prop)
238 case GOACC_PROPERTY_NAME:
239 return (union goacc_property_value) { .ptr = "GOMP" };
240 case GOACC_PROPERTY_VENDOR:
241 return (union goacc_property_value) { .ptr = "GNU" };
242 case GOACC_PROPERTY_DRIVER:
243 return (union goacc_property_value) { .ptr = VERSION };
244 case GOACC_PROPERTY_MEMORY:
245 case GOACC_PROPERTY_FREE_MEMORY:
246 default:
247 return nullval;
251 static void *
252 host_openacc_create_thread_data (int ord __attribute__ ((unused)))
254 return NULL;
257 static void
258 host_openacc_destroy_thread_data (void *tls_data __attribute__ ((unused)))
262 static struct gomp_device_descr host_dispatch =
264 .name = "host",
265 .capabilities = (GOMP_OFFLOAD_CAP_SHARED_MEM
266 | GOMP_OFFLOAD_CAP_NATIVE_EXEC
267 | GOMP_OFFLOAD_CAP_OPENACC_200),
268 .target_id = 0,
269 .type = OFFLOAD_TARGET_TYPE_HOST,
271 .get_name_func = host_get_name,
272 .get_caps_func = host_get_caps,
273 .get_type_func = host_get_type,
274 .get_num_devices_func = host_get_num_devices,
275 .init_device_func = host_init_device,
276 .fini_device_func = host_fini_device,
277 .version_func = host_version,
278 .load_image_func = host_load_image,
279 .unload_image_func = host_unload_image,
280 .alloc_func = host_alloc,
281 .free_func = host_free,
282 .dev2host_func = host_dev2host,
283 .host2dev_func = host_host2dev,
284 .run_func = host_run,
286 .mem_map = { NULL },
287 .mem_map_rev = { NULL },
288 /* .lock initialized in goacc_host_init. */
289 .state = GOMP_DEVICE_UNINITIALIZED,
291 .openacc = {
292 .exec_func = host_openacc_exec,
294 .create_thread_data_func = host_openacc_create_thread_data,
295 .destroy_thread_data_func = host_openacc_destroy_thread_data,
297 .async = {
298 .construct_func = host_openacc_async_construct,
299 .destruct_func = host_openacc_async_destruct,
300 .test_func = host_openacc_async_test,
301 .synchronize_func = host_openacc_async_synchronize,
302 .serialize_func = host_openacc_async_serialize,
303 .queue_callback_func = host_openacc_async_queue_callback,
304 .exec_func = host_openacc_async_exec,
305 .dev2host_func = host_openacc_async_dev2host,
306 .host2dev_func = host_openacc_async_host2dev,
309 .get_property_func = host_openacc_get_property,
311 .cuda = {
312 .get_current_device_func = NULL,
313 .get_current_context_func = NULL,
314 .get_stream_func = NULL,
315 .set_stream_func = NULL,
320 /* Initialize and register this device type. */
321 void
322 goacc_host_init (void)
324 gomp_mutex_init (&host_dispatch.lock);
325 goacc_register (&host_dispatch);