OpenHarmony-v4.1-Release/s

/**
 * Copyright (c) 2021-2022 Huawei Device Co., Ltd.
 * Licensed under the Apache License, Version 2.0 (the "License");
 * you may not use this file except in compliance with the License.
 * You may obtain a copy of the License at
 *
 * http://www.apache.org/licenses/LICENSE-2.0
 *
 * Unless required by applicable law or agreed to in writing, software
 * distributed under the License is distributed on an "AS IS" BASIS,
 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
 * See the License for the specific language governing permissions and
 * limitations under the License.
 */

#include "runtime/include/runtime.h"
#include "runtime/include/panda_vm.h"
#include "runtime/mem/gc/gc_root.h"
#include "runtime/mem/heap_verifier.h"

namespace panda::mem {

// NOLINTNEXTLINE(cppcoreguidelines-macro-usage)
#define LOG_HEAP_VERIFIER LOG(ERROR, GC) << "HEAP_VERIFIER: "

// Should be called only with MutatorLock held
template <class LanguageConfig>
size_t HeapVerifier<LanguageConfig>::VerifyAllPaused() const
{
    Rendezvous *rendezvous = Thread::GetCurrent()->GetVM()->GetRendezvous();
    rendezvous->SafepointBegin();
    size_t failCount = VerifyAll();
    rendezvous->SafepointEnd();
    return failCount;
}

template <LangTypeT LANG_TYPE>
void HeapObjectVerifier<LANG_TYPE>::operator()(ObjectHeader *obj)
{
    HeapReferenceVerifier<LANG_TYPE> refVerifier(heap_, failCount_);
    ObjectHelpers<LANG_TYPE>::TraverseAllObjects(obj, refVerifier);
}

template <LangTypeT LANG_TYPE>
void HeapReferenceVerifier<LANG_TYPE>::operator()([[maybe_unused]] ObjectHeader *objectHeader, ObjectHeader *referent)
{
    // NOLINTNEXTLINE(readability-braces-around-statements, bugprone-suspicious-semicolon)
    if constexpr (LANG_TYPE == LANG_TYPE_DYNAMIC) {
        // Weak reference can be passed here, need to resolve the referent
        coretypes::TaggedValue value(referent);
        if (value.IsWeak()) {
            referent = value.GetWeakReferent();
        }
    }
    if (!heap_->IsLiveObject(referent)) {
        LOG_HEAP_VERIFIER << "Heap corruption found! Heap object " << std::hex << objectHeader
                          << " references a dead object at " << referent;
        ++(*failCount_);
    } else if (referent->IsForwarded()) {
        LOG_HEAP_VERIFIER << "Heap corruption found! Heap object " << std::hex << objectHeader
                          << " references a forwarded object at " << referent;
        ++(*failCount_);
    }
}

template <LangTypeT LANG_TYPE>
void HeapReferenceVerifier<LANG_TYPE>::operator()(const GCRoot &root)
{
    auto referent = root.GetObjectHeader();
    // NOLINTNEXTLINE(readability-braces-around-statements, bugprone-suspicious-semicolon)
    if constexpr (LANG_TYPE == LANG_TYPE_DYNAMIC) {
        // Weak reference can be passed here, need to resolve the referent
        coretypes::TaggedValue value(referent);
        if (value.IsWeak()) {
            referent = value.GetWeakReferent();
        }
    }
    if (!heap_->IsLiveObject(referent)) {
        LOG_HEAP_VERIFIER << "Heap corruption found! Root references a dead object at " << std::hex << referent;
        ++(*failCount_);
    } else if (referent->IsForwarded()) {
        LOG_HEAP_VERIFIER << "Heap corruption found! Root references a forwarded object at " << std::hex << referent;
        ++(*failCount_);
    }
}

template <class LanguageConfig>
bool HeapVerifier<LanguageConfig>::IsValidObjectAddress(void *addr) const
{
    return IsAligned<DEFAULT_ALIGNMENT_IN_BYTES>(ToUintPtr(addr)) && IsHeapAddress(addr);
}

template <class LanguageConfig>
bool HeapVerifier<LanguageConfig>::IsHeapAddress(void *addr) const
{
    return heap_->ContainObject(reinterpret_cast<ObjectHeader *>(addr));
}

template <class LanguageConfig>
size_t HeapVerifier<LanguageConfig>::VerifyHeap() const
{
    return heap_->VerifyHeapReferences();
}

template <class LanguageConfig>
size_t HeapVerifier<LanguageConfig>::VerifyRoot() const
{
    RootManager<LanguageConfig> rootManager;
    size_t failCount = 0;
    rootManager.SetPandaVM(heap_->GetPandaVM());
    rootManager.VisitNonHeapRoots([this, &failCount](const GCRoot &root) {
        if (root.GetType() == RootType::ROOT_FRAME || root.GetType() == RootType::ROOT_THREAD) {
            auto *baseCls = root.GetObjectHeader()->ClassAddr<BaseClass>();
            if (baseCls == nullptr) {
                LOG_HEAP_VERIFIER << "Heap corruption found! Class address for root " << std::hex
                                  << root.GetObjectHeader() << " is null";
                ++failCount;
            } else if (!(!baseCls->IsDynamicClass() && static_cast<Class *>(baseCls)->IsClassClass())) {
                HeapReferenceVerifier<LanguageConfig::LANG_TYPE>(heap_, &failCount)(root);
            }
        }
    });

    return failCount;
}

template <class LanguageConfig>
size_t FastHeapVerifier<LanguageConfig>::VerifyAll() const
{
    PandaUnorderedSet<const ObjectHeader *> heapObjects;
    PandaVector<ObjectCache> referentObjects;
    size_t failsCount = 0;

    auto lazyVerify = [&heapObjects, &referentObjects, &failsCount](const ObjectHeader *objectHeader,
                                                                    const ObjectHeader *referent) {
        // Lazy verify during heap objects collection
        if (heapObjects.find(referent) == heapObjects.end()) {
            referentObjects.push_back(ObjectCache({objectHeader, referent}));
        }
        if (objectHeader->IsForwarded()) {
            LOG_HEAP_VERIFIER << "Heap object " << std::hex << objectHeader << " is forwarded object";
            ++failsCount;
        }
        auto *classAddr = objectHeader->ClassAddr<BaseClass>();
        if (!IsAddressInObjectsHeap(classAddr)) {
            LOG_HEAP_VERIFIER << "Heap object " << std::hex << objectHeader
                              << " has non-heap class address: " << classAddr;
            ++failsCount;
        }
    };
    const std::function<void(ObjectHeader *, ObjectHeader *)> lazyVerifyFunctor(lazyVerify);
    auto collectObjects = [&heapObjects, &lazyVerifyFunctor](ObjectHeader *object) {
        heapObjects.insert(object);
        ObjectHelpers<LanguageConfig::LANG_TYPE>::TraverseAllObjects(object, lazyVerifyFunctor);
    };

    // Heap objects verifier

    // Add strings from string table because these objects are like a phoenix.
    // A string object may exist but there are no live references to it (no bit set in the live bitmap).
    // But later code may reuse it by calling StringTable::GetOrInternString so this string
    // get alive. That is why we mark all strings as alive by visiting the string table.
    Thread::GetCurrent()->GetVM()->VisitStrings(collectObjects);
    heap_->IterateOverObjects(collectObjects);
    for (auto objectCache : referentObjects) {
        if (heapObjects.find(objectCache.referent) == heapObjects.end()) {
            static constexpr const char *UNKNOWN_CLASS = "unknown class";
            PandaString refClassStr = UNKNOWN_CLASS;
            PandaString objClassStr = UNKNOWN_CLASS;
            if constexpr (LanguageConfig::LANG_TYPE == LANG_TYPE_STATIC) {
                auto *cls = objectCache.referent->template ClassAddr<Class>();
                if (IsAddressInObjectsHeap(cls)) {
                    refClassStr = cls->GetName();
                }
                cls = objectCache.heapObject->template ClassAddr<Class>();
                if (IsAddressInObjectsHeap(cls)) {
                    objClassStr = cls->GetName();
                }
            }
            LOG_HEAP_VERIFIER << "Heap object " << std::hex << objectCache.heapObject << " (" << objClassStr
                              << ") references a dead object at " << objectCache.referent << " (" << refClassStr << ")";
            ++failsCount;
        }
    }
    // Stack verifier
    RootManager<LanguageConfig> rootManager;
    rootManager.SetPandaVM(heap_->GetPandaVM());
    auto rootVerifier = [&heapObjects, &failsCount](const GCRoot &root) {
        const auto *rootObjHeader = root.GetObjectHeader();
        auto *baseCls = rootObjHeader->ClassAddr<BaseClass>();
        if (!IsAddressInObjectsHeap(ToUintPtr(baseCls))) {
            LOG_HEAP_VERIFIER << "Class address for root " << std::hex << rootObjHeader
                              << " is not in objects heap: " << baseCls;
            ++failsCount;
        } else if (baseCls->IsDynamicClass() || !static_cast<Class *>(baseCls)->IsClassClass()) {
            if (heapObjects.find(rootObjHeader) == heapObjects.end()) {
                LOG_HEAP_VERIFIER << "Root references a dead object at " << std::hex << rootObjHeader;
                ++failsCount;
            }
        }
    };
    rootManager.VisitLocalRoots(rootVerifier);

    return failsCount;
}

ObjectVerificationInfo::ObjectVerificationInfo(ObjectHeader *referent)
    : classAddress_(referent->ClassAddr<void *>()), oldAddress_(referent)
{
}

bool ObjectVerificationInfo::VerifyUpdatedRef(ObjectHeader *objectHeader, ObjectHeader *updatedRef,
                                              bool inAliveSpace) const
{
    ObjectHeader *correctAddress = oldAddress_;
    if (!inAliveSpace) {
        if (!oldAddress_->IsForwarded()) {
            LOG_HEAP_VERIFIER << "Object " << std::hex << objectHeader << " had reference " << oldAddress_
                              << ", which is not forwarded, new reference address: " << updatedRef;
            return false;
        }
        correctAddress = GetForwardAddress(oldAddress_);
    }
    if (correctAddress != updatedRef) {
        LOG_HEAP_VERIFIER << "Object " << std::hex << objectHeader << " has incorrect updated reference " << updatedRef
                          << ", correct address: " << correctAddress;
        return false;
    }
    void *newClassAddr = updatedRef->ClassAddr<void *>();
    if (newClassAddr != classAddress_) {
        LOG_HEAP_VERIFIER << "Object " << std::hex << objectHeader << " has incorrect class address (" << newClassAddr
                          << ") in updated reference " << updatedRef
                          << ", class address before collection: " << classAddress_;
        return false;
    }

    return true;
}

template <class LanguageConfig>
bool HeapVerifierIntoGC<LanguageConfig>::InCollectableSpace(const ObjectHeader *object) const
{
    for (const auto &memRange : this->collectableMemRanges_) {
        if (memRange.Contains(ToUintPtr(object))) {
            return true;
        }
    }
    return false;
}

template <class LanguageConfig>
bool HeapVerifierIntoGC<LanguageConfig>::InAliveSpace(const ObjectHeader *object) const
{
    for (const auto &memRange : this->aliveMemRanges_) {
        if (memRange.Contains(ToUintPtr(object))) {
            return true;
        }
    }
    return false;
}

template <class LanguageConfig>
void HeapVerifierIntoGC<LanguageConfig>::AddToVerificationInfo(RefsVerificationInfo &verificationInfo, size_t refNumber,
                                                               ObjectHeader *objectHeader, ObjectHeader *referent)
{
    if (this->InCollectableSpace(referent)) {
        ObjectVerificationInfo objInfo(referent);
        auto it = verificationInfo.find(objectHeader);
        if (it != verificationInfo.end()) {
            it->second.insert({refNumber, objInfo});
        } else {
            verificationInfo.insert({objectHeader, VerifyingRefs({{refNumber, objInfo}})});
        }
    }
}

template <class LanguageConfig>
void HeapVerifierIntoGC<LanguageConfig>::CollectVerificationInfo(PandaVector<MemRange> &&collectableMemRanges)
{
    size_t refNumber = 0;
    collectableMemRanges_ = std::move(collectableMemRanges);
    const std::function<void(ObjectHeader *, ObjectHeader *)> refsCollector =
        [this, &refNumber](ObjectHeader *objectHeader, ObjectHeader *referent) {
            if (this->InCollectableSpace(objectHeader)) {
                this->AddToVerificationInfo(this->collectableVerificationInfo_, refNumber, objectHeader, referent);
            } else {
                this->AddToVerificationInfo(this->permanentVerificationInfo_, refNumber, objectHeader, referent);
            }
            ++refNumber;
        };

    auto collectFunctor = [&refNumber, &refsCollector](ObjectHeader *object) {
        if (object->IsMarkedForGC<false>()) {
            refNumber = 0;
            ObjectHelpers<LanguageConfig::LANG_TYPE>::TraverseAllObjects(object, refsCollector);
        }
    };
    heap_->IterateOverObjects(collectFunctor);
}

template <class LanguageConfig>
size_t HeapVerifierIntoGC<LanguageConfig>::VerifyAll(PandaVector<MemRange> &&aliveMemRanges)
{
    size_t failsCount = 0U;
    size_t refNumber = 0U;
    aliveMemRanges_ = std::move(aliveMemRanges);
    auto it = permanentVerificationInfo_.begin();
    for (auto &info : collectableVerificationInfo_) {
        ObjectHeader *obj = info.first;
        if (obj->IsForwarded()) {
            // NOLINTNEXTLINE(cppcoreguidelines-pro-bounds-pointer-arithmetic)
            permanentVerificationInfo_[GetForwardAddress(obj)] = std::move(info.second);
        } else if (this->InAliveSpace(obj)) {
            // NOLINTNEXTLINE(cppcoreguidelines-pro-bounds-pointer-arithmetic)
            permanentVerificationInfo_[obj] = std::move(info.second);
        }
    }
    collectableVerificationInfo_.clear();
    const std::function<void(ObjectHeader *, ObjectHeader *)> nonYoungChecker =
        [this, &failsCount](const ObjectHeader *objectHeader, const ObjectHeader *referent) {
            if (this->InCollectableSpace(referent)) {
                LOG_HEAP_VERIFIER << "Object " << std::hex << objectHeader << " references a dead object " << referent
                                  << " after collection";
                ++failsCount;
            }
        };
    const std::function<void(ObjectHeader *, ObjectHeader *)> sameObjChecker =
        [this, &nonYoungChecker, &refNumber, &failsCount, &it](ObjectHeader *objectHeader, ObjectHeader *referent) {
            auto refIt = it->second.find(refNumber);
            if (refIt != it->second.end()) {
                if (!refIt->second.VerifyUpdatedRef(objectHeader, referent, this->InAliveSpace(referent))) {
                    ++failsCount;
                }
            } else {
                nonYoungChecker(objectHeader, referent);
            }
            ++refNumber;
        };
    // Check references in alive objects
    ObjectVisitor traverseAliveObj = [&nonYoungChecker, &sameObjChecker, &refNumber, this, &it](ObjectHeader *object) {
        if (!object->IsMarkedForGC<false>() || (this->InCollectableSpace(object) && !this->InAliveSpace(object))) {
            return;
        }
        it = this->permanentVerificationInfo_.find(object);
        if (it == this->permanentVerificationInfo_.end()) {
            ObjectHelpers<LanguageConfig::LANG_TYPE>::TraverseAllObjects(object, nonYoungChecker);
        } else {
            refNumber = 0U;
            ObjectHelpers<LanguageConfig::LANG_TYPE>::TraverseAllObjects(object, sameObjChecker);
        }
    };
    heap_->IterateOverObjects(traverseAliveObj);
    return failsCount;
}

TEMPLATE_CLASS_LANGUAGE_CONFIG(HeapVerifier);
TEMPLATE_CLASS_LANGUAGE_CONFIG(FastHeapVerifier);
TEMPLATE_CLASS_LANGUAGE_CONFIG(HeapVerifierIntoGC);
}  // namespace panda::mem