92d27b969a
`parser::AllocateObject` and `parser::PointerObject` can be represented as typed expressions once analyzed. This simplifies the work for parse-tree consumers that work with typed expressions to deal with allocatable and pointer objects such as lowering. This change also makes it easier to add typedExpr in the future by automatically handling nodes that have this member when possible. Changes: - Add a `mutable TypedExpr typedExpr` field to `parser::PointerObject` and `parser::AllocateObject`. - Add a `parser::HasTypedExpr<T>` helper to better share code relating to typedExpr in the parse tree. - Add hooks in `semantics::ExprChecker` for AllocateObject and PointerObject nodes, and use ExprOrVariable on it to analyze and set the tyedExpr field during expression analysis. This required adding overloads for `AssumedTypeDummy`. - Update check-nullify.cpp and check-deallocate.cpp to not re-analyze the StructureComponent but to use the typedExpr field instead. - Update dump/unparse to use HasTypedExpr and use the typedExpr when there is one. Differential Revision: https://reviews.llvm.org/D98256
67 lines
2.8 KiB
C++
67 lines
2.8 KiB
C++
//===-- lib/Semantics/check-nullify.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 "check-nullify.h"
|
|
#include "assignment.h"
|
|
#include "flang/Evaluate/expression.h"
|
|
#include "flang/Parser/message.h"
|
|
#include "flang/Parser/parse-tree.h"
|
|
#include "flang/Semantics/expression.h"
|
|
#include "flang/Semantics/tools.h"
|
|
|
|
namespace Fortran::semantics {
|
|
|
|
void NullifyChecker::Leave(const parser::NullifyStmt &nullifyStmt) {
|
|
CHECK(context_.location());
|
|
const Scope &scope{context_.FindScope(*context_.location())};
|
|
const Scope *pure{FindPureProcedureContaining(scope)};
|
|
parser::ContextualMessages messages{
|
|
*context_.location(), &context_.messages()};
|
|
for (const parser::PointerObject &pointerObject : nullifyStmt.v) {
|
|
std::visit(
|
|
common::visitors{
|
|
[&](const parser::Name &name) {
|
|
const Symbol *symbol{name.symbol};
|
|
if (context_.HasError(symbol)) {
|
|
// already reported an error
|
|
} else if (!IsVariableName(*symbol) && !IsProcName(*symbol)) {
|
|
messages.Say(name.source,
|
|
"name in NULLIFY statement must be a variable or procedure pointer name"_err_en_US);
|
|
} else if (!IsPointer(*symbol)) { // C951
|
|
messages.Say(name.source,
|
|
"name in NULLIFY statement must have the POINTER attribute"_err_en_US);
|
|
} else if (pure) {
|
|
CheckDefinabilityInPureScope(messages, *symbol, scope, *pure);
|
|
}
|
|
},
|
|
[&](const parser::StructureComponent &structureComponent) {
|
|
if (const auto *checkedExpr{GetExpr(pointerObject)}) {
|
|
if (!IsPointer(*structureComponent.component.symbol)) { // C951
|
|
messages.Say(structureComponent.component.source,
|
|
"component in NULLIFY statement must have the POINTER attribute"_err_en_US);
|
|
} else if (pure) {
|
|
if (const Symbol * symbol{GetFirstSymbol(*checkedExpr)}) {
|
|
CheckDefinabilityInPureScope(
|
|
messages, *symbol, scope, *pure);
|
|
}
|
|
}
|
|
}
|
|
},
|
|
},
|
|
pointerObject.u);
|
|
}
|
|
// From 9.7.3.1(1)
|
|
// A pointer-object shall not depend on the value,
|
|
// bounds, or association status of another pointer-
|
|
// object in the same NULLIFY statement.
|
|
// This restriction is the programmer's responsibilty.
|
|
// Some dependencies can be found compile time or at
|
|
// runtime, but for now we choose to skip such checks.
|
|
}
|
|
} // namespace Fortran::semantics
|