830c0b9023
Move the closure of the subset of flang/runtime/*.h header files that are referenced by source files outside flang/runtime (apart from unit tests) into a new directory (flang/include/flang/Runtime) so that relative include paths into ../runtime need not be used. flang/runtime/pgmath.h.inc is moved to flang/include/flang/Evaluate; it's not used by the runtime. Differential Revision: https://reviews.llvm.org/D109107
46 lines
1.3 KiB
C++
46 lines
1.3 KiB
C++
//===-- runtime/derived-api.cpp
|
|
//-----------------------------------------------===//
|
|
//
|
|
// Part of the LLVM Project, under the Apache License v2.0 with LLVM Exceptions.
|
|
// See https://llvm.org/LICENSE.txt for license information.
|
|
// SPDX-License-Identifier: Apache-2.0 WITH LLVM-exception
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "flang/Runtime/derived-api.h"
|
|
#include "derived.h"
|
|
#include "terminator.h"
|
|
#include "type-info.h"
|
|
#include "flang/Runtime/descriptor.h"
|
|
|
|
namespace Fortran::runtime {
|
|
|
|
extern "C" {
|
|
|
|
void RTNAME(Initialize)(
|
|
const Descriptor &descriptor, const char *sourceFile, int sourceLine) {
|
|
if (const DescriptorAddendum * addendum{descriptor.Addendum()}) {
|
|
if (const auto *derived{addendum->derivedType()}) {
|
|
if (!derived->noInitializationNeeded()) {
|
|
Terminator terminator{sourceFile, sourceLine};
|
|
Initialize(descriptor, *derived, terminator);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
void RTNAME(Destroy)(const Descriptor &descriptor) {
|
|
if (const DescriptorAddendum * addendum{descriptor.Addendum()}) {
|
|
if (const auto *derived{addendum->derivedType()}) {
|
|
if (!derived->noDestructionNeeded()) {
|
|
Destroy(descriptor, true, *derived);
|
|
}
|
|
}
|
|
}
|
|
}
|
|
|
|
// TODO: Assign()
|
|
|
|
} // extern "C"
|
|
} // namespace Fortran::runtime
|