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
121
122
123
124
125
126
127
128
129
130
131
|
/* Copyright (C) The GNU Toolchain Authors.
Contributed by Mohamed Atef <mohamedatef1698@gmail.com>.
This file is part of the GNU Offloading and Multi Processing Library
(libgomp).
Libgomp is free software; you can redistribute it and/or modify it
under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 3, or (at your option)
any later version.
Libgomp 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 General Public License for
more details.
Under Section 7 of GPL version 3, you are granted additional
permissions described in the GCC Runtime Library Exception, version
3.1, as published by the Free Software Foundation.
You should have received a copy of the GNU General Public License and
a copy of the GCC Runtime Library Exception along with this program;
see the files COPYING3 and COPYING.RUNTIME respectively. If not, see
<http://www.gnu.org/licenses/>. */
/* This file contains the implementation of functions defined in
section 5.5.1, 5.5.2. */
#include "ompd-helper.h"
/* Per OMPD initialization and finalization. */
__UINT64_TYPE__ gompd_state;
const ompd_callbacks_t *callbacks;
ompd_rc_t
ompd_initialize (ompd_word_t api_version,
const ompd_callbacks_t *callbacks_table)
{
if (callbacks_table == NULL)
return ompd_rc_bad_input;
ompd_word_t version;
ompd_rc_t ret = ompd_get_api_version (&version);
if (version != api_version)
return ompd_rc_unsupported;
callbacks = callbacks_table;
return ret;
}
ompd_rc_t
ompd_get_api_version (ompd_word_t *version)
{
if (version == NULL)
return ompd_rc_bad_input;
*version = OMPD_VERSION;
return ompd_rc_ok;
}
ompd_rc_t
ompd_get_version_string (const char **string)
{
if (string == NULL)
return ompd_rc_bad_input;
static const char tmp_string[]
= "GNU OpenMP runtime implementing OMPD version "
stringize (OMPD_VERSION) " Debugging library";
*string = tmp_string;
return ompd_rc_ok;
}
ompd_rc_t
ompd_finalize (void)
{
return ompd_rc_ok;
}
/* Per process initialization and finalization. */
ompd_rc_t
ompd_process_initialize (ompd_address_space_context_t *context,
ompd_address_space_handle_t **handle)
{
if (context == NULL || handle == NULL)
return ompd_rc_bad_input;
ompd_rc_t ret = gompd_get_sizes (context);
if (ret != ompd_rc_ok)
return ret;
/* Naive way to read from memory. */
ompd_address_t symbol_addr = {OMPD_SEGMENT_UNSPECIFIED, 0};
GET_VALUE (context, NULL, "gompd_state", gompd_state, gompd_state,
target_sizes.sizeof_short, 1, ret, symbol_addr);
ret = callbacks->alloc_memory (sizeof (ompd_address_space_handle_t),
(void **) (handle));
if (ret != ompd_rc_ok)
return ret;
if (handle == NULL)
return ompd_rc_error;
(*handle)->context = context;
(*handle)->kind = OMPD_DEVICE_KIND_HOST;
return ret;
}
/* OMPD will not support GPUs for now. */
ompd_rc_t
ompd_device_initialize (ompd_address_space_handle_t *process_handle,
ompd_address_space_context_t *device_context,
ompd_device_t kind, ompd_size_t sizeof_id, void *id,
ompd_address_space_handle_t **device_handle)
{
if (device_context == NULL)
return ompd_rc_bad_input;
return ompd_rc_unsupported;
}
ompd_rc_t
ompd_rel_address_space_handle (ompd_address_space_handle_t *handle)
{
if (handle == NULL)
return ompd_rc_stale_handle;
ompd_rc_t ret = callbacks->free_memory ((void *) handle);
return ret;
}
|
