755535b5eb
Detect and handle LHS/RHS aliasing when effecting intrinsic assignments via the Assign() runtime function. Also: don't apply special handling for allocatable LHS when calling a user-defined type-bound ASSIGNMENT(=) generic procedure for a polymorphic type, and refactor some code into utility functions to make Assign() more comprehensible. Differential Revision: https://reviews.llvm.org/D144026
24 lines
977 B
C++
24 lines
977 B
C++
//===-- runtime/assign-impl.h -----------------------------------*- C++ -*-===//
|
|
//
|
|
// 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
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#ifndef FORTRAN_RUNTIME_ASSIGN_IMPL_H_
|
|
#define FORTRAN_RUNTIME_ASSIGN_IMPL_H_
|
|
|
|
namespace Fortran::runtime {
|
|
class Descriptor;
|
|
class Terminator;
|
|
|
|
// Assign one object to another via allocate statement from source specifier.
|
|
// Note that if allocate object and source expression have the same rank, the
|
|
// value of the allocate object becomes the value provided; otherwise the value
|
|
// of each element of allocate object becomes the value provided (9.7.1.2(7)).
|
|
void DoFromSourceAssign(Descriptor &, const Descriptor &, Terminator &);
|
|
|
|
} // namespace Fortran::runtime
|
|
#endif // FORTRAN_RUNTIME_ASSIGN_IMPL_H_
|