mirror of
https://github.com/apple/swift.git
synced 2025-12-21 12:14:44 +01:00
271 lines
9.3 KiB
C++
271 lines
9.3 KiB
C++
//===--- Verifier.cpp - AST Invariant Verification ------------------------===//
|
|
//
|
|
// This source file is part of the Swift.org open source project
|
|
//
|
|
// Copyright (c) 2014 - 2015 Apple Inc. and the Swift project authors
|
|
// Licensed under Apache License v2.0 with Runtime Library Exception
|
|
//
|
|
// See http://swift.org/LICENSE.txt for license information
|
|
// See http://swift.org/CONTRIBUTORS.txt for the list of Swift project authors
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
//
|
|
// This file implements a verifier of AST invariants.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "swift/AST/AST.h"
|
|
#include "swift/AST/ASTVisitor.h"
|
|
#include "swift/AST/Verifier.h"
|
|
#include "swift/Parse/Lexer.h" // bad dependency!
|
|
#include "llvm/Support/raw_ostream.h"
|
|
#include "llvm/Support/MemoryBuffer.h"
|
|
#include "llvm/Support/SourceMgr.h"
|
|
using namespace swift;
|
|
|
|
namespace {
|
|
enum ShouldHalt { Continue, Halt };
|
|
|
|
class Verifier {
|
|
ASTContext &Ctx;
|
|
VerificationKind Stage;
|
|
llvm::raw_ostream &Out;
|
|
|
|
public:
|
|
Verifier(ASTContext &Ctx, VerificationKind Stage)
|
|
: Ctx(Ctx), Stage(Stage), Out(llvm::errs()) {}
|
|
|
|
Expr *dispatch(Expr *E, WalkOrder ord, WalkContext const& WalkCtx) {
|
|
switch (E->getKind()) {
|
|
#define DISPATCH(ID) return dispatchVisit(static_cast<ID##Expr*>(E), ord, \
|
|
WalkCtx)
|
|
#define EXPR(ID, PARENT) \
|
|
case ExprKind::ID: \
|
|
DISPATCH(ID);
|
|
#define UNCHECKED_EXPR(ID, PARENT) \
|
|
case ExprKind::ID: \
|
|
assert(Stage < VerificationKind::CheckedTypes && #ID "in wrong phase");\
|
|
DISPATCH(ID);
|
|
#define UNBOUND_EXPR(ID, PARENT) \
|
|
case ExprKind::ID: \
|
|
assert(Stage < VerificationKind::BoundNames && #ID "in wrong phase"); \
|
|
DISPATCH(ID);
|
|
#include "swift/AST/ExprNodes.def"
|
|
#undef DISPATCH
|
|
}
|
|
llvm_unreachable("not all cases handled!");
|
|
}
|
|
|
|
Stmt *dispatch(Stmt *S, WalkOrder ord, WalkContext const& WalkCtx) {
|
|
switch (S->getKind()) {
|
|
#define DISPATCH(ID) return dispatchVisit(static_cast<ID##Stmt*>(S), ord, \
|
|
WalkCtx)
|
|
#define STMT(ID, PARENT) \
|
|
case StmtKind::ID: \
|
|
DISPATCH(ID);
|
|
#include "swift/AST/StmtNodes.def"
|
|
#undef DISPATCH
|
|
}
|
|
llvm_unreachable("not all cases handled!");
|
|
}
|
|
|
|
private:
|
|
/// Helper template for dispatching visitation.
|
|
template <class T> T dispatchVisit(T node, WalkOrder ord,
|
|
WalkContext const& WalkCtx) {
|
|
// If we're visiting in pre-order, don't validate the node yet;
|
|
// just check whether we should stop further descent.
|
|
if (ord == WalkOrder::PreOrder)
|
|
return (shouldVerify(node) ? node : T());
|
|
|
|
// Otherwise, actually verify the node.
|
|
|
|
// We always verify source ranges.
|
|
checkSourceRanges(node, WalkCtx);
|
|
|
|
// Always verify the node as a parsed node.
|
|
verifyParsed(node, WalkCtx);
|
|
|
|
// If we've bound names already, verify as a bound node.
|
|
if (Stage >= VerificationKind::BoundNames)
|
|
verifyBound(node, WalkCtx);
|
|
|
|
// If we've checked types already, do some extra verification.
|
|
if (Stage >= VerificationKind::CheckedTypes)
|
|
verifyChecked(node, WalkCtx);
|
|
|
|
// Always continue.
|
|
return node;
|
|
}
|
|
|
|
// Default cases for whether we should verify within the given subtree.
|
|
bool shouldVerify(Expr *E) { return true; }
|
|
bool shouldVerify(Stmt *S) { return true; }
|
|
|
|
// Base cases for the various stages of verification.
|
|
void verifyParsed(Expr *E, WalkContext const& WalkCtx) {}
|
|
void verifyParsed(Stmt *S, WalkContext const& WalkCtx) {}
|
|
void verifyBound(Expr *E, WalkContext const& WalkCtx) {}
|
|
void verifyBound(Stmt *S, WalkContext const& WalkCtx) {}
|
|
void verifyChecked(Expr *E, WalkContext const& WalkCtx) {}
|
|
void verifyChecked(Stmt *S, WalkContext const& WalkCtx) {}
|
|
|
|
// Specialized verifiers.
|
|
|
|
void verifyChecked(AssignStmt *S, WalkContext const& WalkCtx) {
|
|
checkSameType(S->getDest()->getType(), S->getSrc()->getType(),
|
|
"assignment operands");
|
|
}
|
|
|
|
void verifyChecked(TupleElementExpr *E, WalkContext const &WalkCtx) {
|
|
TupleType *tupleType = E->getBase()->getType()->getAs<TupleType>();
|
|
if (!tupleType) {
|
|
Out << "base of TupleElementExpr does not have tuple type: ";
|
|
E->getBase()->getType().print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
|
|
if (E->getFieldNumber() >= tupleType->Fields.size()) {
|
|
Out << "field index " << E->getFieldNumber()
|
|
<< " for TupleElementExpr is out of range [0,"
|
|
<< tupleType->Fields.size() << ")\n";
|
|
abort();
|
|
}
|
|
|
|
checkSameType(E->getType(), tupleType->getElementType(E->getFieldNumber()),
|
|
"TupleElementExpr and the corresponding tuple element");
|
|
}
|
|
|
|
void verifyChecked(LookThroughOneofExpr *E, WalkContext const &WalkCtx) {
|
|
OneOfType *oneof = E->getSubExpr()->getType()->getAs<OneOfType>();
|
|
if (!oneof) {
|
|
Out << "sub-expression of LookThroughOneofExpr does not have oneof type: ";
|
|
E->getSubExpr()->getType().print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
|
|
if (!oneof->isTransparentType()) {
|
|
Out << "looking through a oneof with multiple elements: ";
|
|
E->getSubExpr()->getType().print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
|
|
checkSameType(E->getType(), oneof->getTransparentType(),
|
|
"result of LookThroughOneofExpr and single element of oneof");
|
|
}
|
|
|
|
// Verification utilities.
|
|
void checkSameType(Type T0, Type T1, const char *what) {
|
|
if (T0->getCanonicalType() == T1->getCanonicalType())
|
|
return;
|
|
|
|
Out << "different types for " << what << ": ";
|
|
T0.print(Out);
|
|
Out << " vs. ";
|
|
T1.print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
|
|
void checkSourceRanges(Expr *E, WalkContext const& WalkCtx) {
|
|
if (!E->getSourceRange().isValid()) {
|
|
Out << "invalid source range for expression: ";
|
|
E->print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
checkSourceRanges(E->getSourceRange(), WalkCtx.Parent,
|
|
^ { E->print(Out); } );
|
|
}
|
|
|
|
void checkSourceRanges(Stmt *S, WalkContext const &WalkCtx) {
|
|
if (!S->getSourceRange().isValid()) {
|
|
Out << "invalid source range for statement: ";
|
|
S->print(Out);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
checkSourceRanges(S->getSourceRange(), WalkCtx.Parent,
|
|
^ { S->print(Out); });
|
|
}
|
|
|
|
/// \brief Verify that the given source ranges is contained within the
|
|
/// parent's source range.
|
|
void checkSourceRanges(SourceRange Current,
|
|
llvm::PointerUnion<Expr *, Stmt *> Parent,
|
|
void (^printEntity)()) {
|
|
SourceRange Enclosing;
|
|
if (Stmt *S = Parent.dyn_cast<Stmt *>())
|
|
Enclosing = S->getSourceRange();
|
|
else if (Expr *E = Parent.dyn_cast<Expr *>())
|
|
Enclosing = E->getSourceRange();
|
|
else // no parent
|
|
return;
|
|
|
|
// FIXME: This is a very ugly way to check inclusion.
|
|
if (Enclosing.Start.Value.getPointer() > Current.Start.Value.getPointer()
|
|
|| Enclosing.End.Value.getPointer() < Current.End.Value.getPointer())
|
|
{
|
|
Out << "child source range not contained within its parent: ";
|
|
printEntity();
|
|
Out << "\n parent range: ";
|
|
printRange(Enclosing);
|
|
Out << "\n child range: ";
|
|
printRange(Current);
|
|
Out << "\n";
|
|
abort();
|
|
}
|
|
}
|
|
|
|
void printRange(SourceRange R) {
|
|
SourceLoc Begin = R.Start, End = R.End;
|
|
|
|
// If either of those locations is invalid, fall back on printing pointers.
|
|
if (!Begin.isValid() || !End.isValid()) {
|
|
Out << "[" << (void*) Begin.Value.getPointer()
|
|
<< "," << (void*) End.Value.getPointer()
|
|
<< "]";
|
|
return;
|
|
}
|
|
|
|
// Otherwise, advance the end token.
|
|
End = Lexer::getLocForEndOfToken(Ctx.SourceMgr, R.End);
|
|
|
|
int BufferIndex = Ctx.SourceMgr.FindBufferContainingLoc(Begin.Value);
|
|
if (BufferIndex != -1) {
|
|
const llvm::MemoryBuffer *Buffer =
|
|
Ctx.SourceMgr.getMemoryBuffer((unsigned) BufferIndex);
|
|
const char *BufferStart = Buffer->getBufferStart();
|
|
Out << Buffer->getBufferIdentifier()
|
|
<< ':' << (Begin.Value.getPointer() - BufferStart)
|
|
<< '-' << (End.Value.getPointer() - BufferStart)
|
|
<< ' ';
|
|
}
|
|
|
|
llvm::StringRef Text(Begin.Value.getPointer(),
|
|
End.Value.getPointer() - Begin.Value.getPointer());
|
|
Out << '"' << Text << '"';
|
|
}
|
|
|
|
};
|
|
}
|
|
|
|
void swift::verify(TranslationUnit *TUnit, VerificationKind Stage) {
|
|
// FIXME: For now, punt if there are errors in the translation unit.
|
|
if (TUnit->Ctx.hadError()) return;
|
|
|
|
// Make a verifier object, and then capture it by reference.
|
|
Verifier VObject(TUnit->Ctx, Stage);
|
|
Verifier *V = &VObject;
|
|
|
|
TUnit->Body->walk(^(Expr *E, WalkOrder Ord, WalkContext const &WalkCtx) {
|
|
return V->dispatch(E, Ord, WalkCtx);
|
|
},
|
|
^(Stmt *S, WalkOrder Ord, WalkContext const &WalkCtx) {
|
|
return V->dispatch(S, Ord, WalkCtx);
|
|
});
|
|
}
|