forked from OSchip/llvm-project
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
|