File tree Expand file tree Collapse file tree 1 file changed +6
-0
lines changed Expand file tree Collapse file tree 1 file changed +6
-0
lines changed Original file line number Diff line number Diff line change @@ -20,6 +20,8 @@ namespace {
20
20
21
21
using namespace Fortran ::runtime;
22
22
23
+ RT_OFFLOAD_API_GROUP_BEGIN
24
+
23
25
// the number of elements to allocate when first creating the vector
24
26
constexpr size_t INITIAL_ALLOC = 8 ;
25
27
@@ -181,8 +183,11 @@ inline static DescriptorStack *getDescriptorStorage(void *opaquePtr) {
181
183
return static_cast <DescriptorStack *>(opaquePtr);
182
184
}
183
185
186
+ RT_OFFLOAD_API_GROUP_END
187
+
184
188
namespace Fortran ::runtime {
185
189
extern " C" {
190
+ RT_EXT_API_GROUP_BEGIN
186
191
void *RTNAME (CreateValueStack)(const char *sourceFile, int line) {
187
192
return ValueStack::allocate (sourceFile, line);
188
193
}
@@ -223,5 +228,6 @@ void RTNAME(DestroyDescriptorStack)(void *opaquePtr) {
223
228
DescriptorStack::destroy (getDescriptorStorage (opaquePtr));
224
229
}
225
230
231
+ RT_EXT_API_GROUP_END
226
232
} // extern "C"
227
233
} // namespace Fortran::runtime
You can’t perform that action at this time.
0 commit comments