mirror of
https://github.com/c64scene-ar/llvm-6502.git
synced 2024-12-15 20:29:48 +00:00
b00c582b6d
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@697 91177308-0d34-0410-b5e6-96231b3b80d8
101 lines
3.1 KiB
C++
101 lines
3.1 KiB
C++
//===-- llvm/Analysis/ModuleAnalyzer.cpp - Module analysis driver ----------==//
|
|
//
|
|
// This class provides a nice interface to traverse a module in a predictable
|
|
// way. This is used by the AssemblyWriter, BytecodeWriter, and SlotCalculator
|
|
// to do analysis of a module.
|
|
//
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
#include "llvm/Analysis/ModuleAnalyzer.h"
|
|
#include "llvm/Method.h"
|
|
#include "llvm/Module.h"
|
|
#include "llvm/BasicBlock.h"
|
|
#include "llvm/DerivedTypes.h"
|
|
#include "llvm/ConstPoolVals.h"
|
|
#include "llvm/Support/STLExtras.h"
|
|
#include <map>
|
|
|
|
// processModule - Driver function to call all of my subclasses virtual methods.
|
|
//
|
|
bool ModuleAnalyzer::processModule(const Module *M) {
|
|
return processMethods(M);
|
|
}
|
|
|
|
inline bool ModuleAnalyzer::handleType(set<const Type *> &TypeSet,
|
|
const Type *T) {
|
|
if (!T->isDerivedType()) return false; // Boring boring types...
|
|
if (TypeSet.count(T) != 0) return false; // Already found this type...
|
|
TypeSet.insert(T); // Add it to the set
|
|
|
|
// Recursively process interesting types...
|
|
switch (T->getPrimitiveID()) {
|
|
case Type::MethodTyID: {
|
|
const MethodType *MT = (const MethodType *)T;
|
|
if (handleType(TypeSet, MT->getReturnType())) return true;
|
|
const MethodType::ParamTypes &Params = MT->getParamTypes();
|
|
|
|
for (MethodType::ParamTypes::const_iterator I = Params.begin();
|
|
I != Params.end(); ++I)
|
|
if (handleType(TypeSet, *I)) return true;
|
|
break;
|
|
}
|
|
|
|
case Type::ArrayTyID:
|
|
if (handleType(TypeSet, ((const ArrayType *)T)->getElementType()))
|
|
return true;
|
|
break;
|
|
|
|
case Type::StructTyID: {
|
|
const StructType *ST = cast<const StructType>(T);
|
|
const StructType::ElementTypes &Elements = ST->getElementTypes();
|
|
for (StructType::ElementTypes::const_iterator I = Elements.begin();
|
|
I != Elements.end(); ++I)
|
|
if (handleType(TypeSet, *I)) return true;
|
|
break;
|
|
}
|
|
|
|
case Type::PointerTyID:
|
|
if (handleType(TypeSet, ((const PointerType *)T)->getValueType()))
|
|
return true;
|
|
break;
|
|
|
|
default:
|
|
cerr << "ModuleAnalyzer::handleType, type unknown: '"
|
|
<< T->getName() << "'\n";
|
|
break;
|
|
}
|
|
|
|
return processType(T);
|
|
}
|
|
|
|
|
|
bool ModuleAnalyzer::processMethods(const Module *M) {
|
|
return apply_until(M->begin(), M->end(),
|
|
bind_obj(this, &ModuleAnalyzer::processMethod));
|
|
}
|
|
|
|
bool ModuleAnalyzer::processMethod(const Method *M) {
|
|
// Loop over the arguments, processing them...
|
|
if (apply_until(M->getArgumentList().begin(), M->getArgumentList().end(),
|
|
bind_obj(this, &ModuleAnalyzer::processMethodArgument)))
|
|
return true;
|
|
|
|
// Loop over all the basic blocks, in order...
|
|
return apply_until(M->begin(), M->end(),
|
|
bind_obj(this, &ModuleAnalyzer::processBasicBlock));
|
|
}
|
|
|
|
bool ModuleAnalyzer::processBasicBlock(const BasicBlock *BB) {
|
|
// Process all of the instructions in the basic block
|
|
BasicBlock::const_iterator Inst = BB->begin();
|
|
for (; Inst != BB->end(); Inst++) {
|
|
if (preProcessInstruction(*Inst) || processInstruction(*Inst)) return true;
|
|
}
|
|
return false;
|
|
}
|
|
|
|
bool ModuleAnalyzer::preProcessInstruction(const Instruction *I) {
|
|
|
|
return false;
|
|
}
|