#include "llvm/Constants.h"
#include "llvm/Assembly/Writer.h"
#include "llvm/Target/TargetData.h"
-#include "llvm/GlobalVariable.h"
#include "Support/CommandLine.h"
#include <math.h> // For fmod
#include <signal.h>
#include <setjmp.h>
-#include <iostream>
using std::vector;
using std::cout;
using std::cerr;
-cl::Flag QuietMode ("quiet" , "Do not emit any non-program output");
-cl::Alias QuietModeA("q" , "Alias for -quiet", cl::NoFlags, QuietMode);
-cl::Flag ArrayChecksEnabled("array-checks", "Enable array bound checks");
-cl::Flag AbortOnExceptions("abort-on-exception", "Halt execution on a machine exception");
+static cl::opt<bool>
+QuietMode("quiet", cl::desc("Do not emit any non-program output"));
+
+static cl::alias
+QuietModeA("q", cl::desc("Alias for -quiet"), cl::aliasopt(QuietMode));
+
+static cl::opt<bool>
+ArrayChecksEnabled("array-checks", cl::desc("Enable array bound checks"));
+
+static cl::opt<bool>
+AbortOnExceptions("abort-on-exception",
+ cl::desc("Halt execution on a machine exception"));
// Create a TargetData structure to handle memory addressing and size/alignment
// computations
//
-static TargetData TD("lli Interpreter");
+TargetData TD("lli Interpreter");
CachedWriter CW; // Object to accelerate printing of LLVM
#ifdef PROFILE_STRUCTURE_FIELDS
-static cl::Flag ProfileStructureFields("profilestructfields",
- "Profile Structure Field Accesses");
+static cl::opt<bool>
+ProfileStructureFields("profilestructfields",
+ cl::desc("Profile Structure Field Accesses"));
#include <map>
static std::map<const StructType *, vector<unsigned> > FieldAccessCounts;
#endif
}
#define GET_CONST_VAL(TY, CLASS) \
- case Type::TY##TyID: Result.TY##Val = cast<CLASS>(CPV)->getValue(); break
+ case Type::TY##TyID: Result.TY##Val = cast<CLASS>(C)->getValue(); break
+
+// Operations used by constant expr implementations...
+static GenericValue executeCastOperation(Value *Src, const Type *DestTy,
+ ExecutionContext &SF);
+static GenericValue executeGEPOperation(Value *Src, User::op_iterator IdxBegin,
+ User::op_iterator IdxEnd,
+ ExecutionContext &SF);
+static GenericValue executeAddInst(GenericValue Src1, GenericValue Src2,
+ const Type *Ty, ExecutionContext &SF);
+
+static GenericValue getConstantValue(const Constant *C) {
+ GenericValue Result;
+ switch (C->getType()->getPrimitiveID()) {
+ GET_CONST_VAL(Bool , ConstantBool);
+ GET_CONST_VAL(UByte , ConstantUInt);
+ GET_CONST_VAL(SByte , ConstantSInt);
+ GET_CONST_VAL(UShort , ConstantUInt);
+ GET_CONST_VAL(Short , ConstantSInt);
+ GET_CONST_VAL(UInt , ConstantUInt);
+ GET_CONST_VAL(Int , ConstantSInt);
+ GET_CONST_VAL(ULong , ConstantUInt);
+ GET_CONST_VAL(Long , ConstantSInt);
+ GET_CONST_VAL(Float , ConstantFP);
+ GET_CONST_VAL(Double , ConstantFP);
+ case Type::PointerTyID:
+ if (isa<ConstantPointerNull>(C)) {
+ Result.PointerVal = 0;
+ } else if (const ConstantPointerRef *CPR = dyn_cast<ConstantPointerRef>(C)){
+ GlobalAddress *Address =
+ (GlobalAddress*)CPR->getValue()->getOrCreateAnnotation(GlobalAddressAID);
+ Result.PointerVal = (PointerTy)Address->Ptr;
+ } else {
+ assert(0 && "Unknown constant pointer type!");
+ }
+ break;
+ default:
+ cout << "ERROR: Constant unimp for type: " << C->getType() << "\n";
+ }
+ return Result;
+}
static GenericValue getOperandValue(Value *V, ExecutionContext &SF) {
- if (Constant *CPV = dyn_cast<Constant>(V)) {
- GenericValue Result;
- switch (CPV->getType()->getPrimitiveID()) {
- GET_CONST_VAL(Bool , ConstantBool);
- GET_CONST_VAL(UByte , ConstantUInt);
- GET_CONST_VAL(SByte , ConstantSInt);
- GET_CONST_VAL(UShort , ConstantUInt);
- GET_CONST_VAL(Short , ConstantSInt);
- GET_CONST_VAL(UInt , ConstantUInt);
- GET_CONST_VAL(Int , ConstantSInt);
- GET_CONST_VAL(ULong , ConstantUInt);
- GET_CONST_VAL(Long , ConstantSInt);
- GET_CONST_VAL(Float , ConstantFP);
- GET_CONST_VAL(Double , ConstantFP);
- case Type::PointerTyID:
- if (isa<ConstantPointerNull>(CPV)) {
- Result.PointerVal = 0;
- } else if (isa<ConstantPointerRef>(CPV)) {
- assert(0 && "Not implemented!");
- } else {
- assert(0 && "Unknown constant pointer type!");
- }
- break;
+ if (ConstantExpr *CE = dyn_cast<ConstantExpr>(V)) {
+ switch (CE->getOpcode()) {
+ case Instruction::Cast:
+ return executeCastOperation(CE->getOperand(0), CE->getType(), SF);
+ case Instruction::GetElementPtr:
+ return executeGEPOperation(CE->getOperand(0), CE->op_begin()+1,
+ CE->op_end(), SF);
+ case Instruction::Add:
+ return executeAddInst(getOperandValue(CE->getOperand(0), SF),
+ getOperandValue(CE->getOperand(1), SF),
+ CE->getType(), SF);
default:
- cout << "ERROR: Constant unimp for type: " << CPV->getType() << "\n";
+ cerr << "Unhandled ConstantExpr: " << CE << "\n";
+ abort();
+ { GenericValue V; return V; }
}
- return Result;
+ } else if (Constant *CPV = dyn_cast<Constant>(V)) {
+ return getConstantValue(CPV);
} else if (GlobalValue *GV = dyn_cast<GlobalValue>(V)) {
GlobalAddress *Address =
(GlobalAddress*)GV->getOrCreateAnnotation(GlobalAddressAID);
initializeSignalHandlers();
}
+static void StoreValueToMemory(GenericValue Val, GenericValue *Ptr,
+ const Type *Ty);
+
// InitializeMemory - Recursive function to apply a Constant value into the
// specified memory location...
//
-static void InitializeMemory(Constant *Init, char *Addr) {
-#define INITIALIZE_MEMORY(TYID, CLASS, TY) \
- case Type::TYID##TyID: { \
- TY Tmp = cast<CLASS>(Init)->getValue(); \
- memcpy(Addr, &Tmp, sizeof(TY)); \
- } return
+static void InitializeMemory(const Constant *Init, char *Addr) {
- switch (Init->getType()->getPrimitiveID()) {
- INITIALIZE_MEMORY(Bool , ConstantBool, bool);
- INITIALIZE_MEMORY(UByte , ConstantUInt, unsigned char);
- INITIALIZE_MEMORY(SByte , ConstantSInt, signed char);
- INITIALIZE_MEMORY(UShort , ConstantUInt, unsigned short);
- INITIALIZE_MEMORY(Short , ConstantSInt, signed short);
- INITIALIZE_MEMORY(UInt , ConstantUInt, unsigned int);
- INITIALIZE_MEMORY(Int , ConstantSInt, signed int);
- INITIALIZE_MEMORY(ULong , ConstantUInt, uint64_t);
- INITIALIZE_MEMORY(Long , ConstantSInt, int64_t);
- INITIALIZE_MEMORY(Float , ConstantFP , float);
- INITIALIZE_MEMORY(Double , ConstantFP , double);
-#undef INITIALIZE_MEMORY
+ if (Init->getType()->isFirstClassType()) {
+ GenericValue Val = getConstantValue(Init);
+ StoreValueToMemory(Val, (GenericValue*)Addr, Init->getType());
+ return;
+ }
+ switch (Init->getType()->getPrimitiveID()) {
case Type::ArrayTyID: {
- ConstantArray *CPA = cast<ConstantArray>(Init);
+ const ConstantArray *CPA = cast<ConstantArray>(Init);
const vector<Use> &Val = CPA->getValues();
unsigned ElementSize =
TD.getTypeSize(cast<ArrayType>(CPA->getType())->getElementType());
}
case Type::StructTyID: {
- ConstantStruct *CPS = cast<ConstantStruct>(Init);
+ const ConstantStruct *CPS = cast<ConstantStruct>(Init);
const StructLayout *SL=TD.getStructLayout(cast<StructType>(CPS->getType()));
const vector<Use> &Val = CPS->getValues();
for (unsigned i = 0; i < Val.size(); ++i)
return;
}
- case Type::PointerTyID:
- if (isa<ConstantPointerNull>(Init)) {
- *(void**)Addr = 0;
- } else if (ConstantPointerRef *CPR = dyn_cast<ConstantPointerRef>(Init)) {
- GlobalAddress *Address =
- (GlobalAddress*)CPR->getValue()->getOrCreateAnnotation(GlobalAddressAID);
- *(void**)Addr = (GenericValue*)Address->Ptr;
- } else {
- assert(0 && "Unknown Constant pointer type!");
- }
- return;
-
default:
CW << "Bad Type: " << Init->getType() << "\n";
assert(0 && "Unknown constant type to initialize memory with!");
return new GlobalAddress(Addr, true); // Simply invoke the ctor
}
-
//===----------------------------------------------------------------------===//
// Binary Instruction Implementations
//===----------------------------------------------------------------------===//
return Dest;
}
-static void executeBinaryInst(BinaryOperator *I, ExecutionContext &SF) {
- const Type *Ty = I->getOperand(0)->getType();
- GenericValue Src1 = getOperandValue(I->getOperand(0), SF);
- GenericValue Src2 = getOperandValue(I->getOperand(1), SF);
+static void executeBinaryInst(BinaryOperator &I, ExecutionContext &SF) {
+ const Type *Ty = I.getOperand(0)->getType();
+ GenericValue Src1 = getOperandValue(I.getOperand(0), SF);
+ GenericValue Src2 = getOperandValue(I.getOperand(1), SF);
GenericValue R; // Result
- switch (I->getOpcode()) {
+ switch (I.getOpcode()) {
case Instruction::Add: R = executeAddInst (Src1, Src2, Ty, SF); break;
case Instruction::Sub: R = executeSubInst (Src1, Src2, Ty, SF); break;
case Instruction::Mul: R = executeMulInst (Src1, Src2, Ty, SF); break;
R = Src1;
}
- SetValue(I, R, SF);
+ SetValue(&I, R, SF);
}
//===----------------------------------------------------------------------===//
PerformExitStuff();
}
-void Interpreter::executeRetInst(ReturnInst *I, ExecutionContext &SF) {
+void Interpreter::executeRetInst(ReturnInst &I, ExecutionContext &SF) {
const Type *RetTy = 0;
GenericValue Result;
// Save away the return value... (if we are not 'ret void')
- if (I->getNumOperands()) {
- RetTy = I->getReturnValue()->getType();
- Result = getOperandValue(I->getReturnValue(), SF);
+ if (I.getNumOperands()) {
+ RetTy = I.getReturnValue()->getType();
+ Result = getOperandValue(I.getReturnValue(), SF);
}
// Save previously executing meth
}
}
-void Interpreter::executeBrInst(BranchInst *I, ExecutionContext &SF) {
+void Interpreter::executeBrInst(BranchInst &I, ExecutionContext &SF) {
SF.PrevBB = SF.CurBB; // Update PrevBB so that PHI nodes work...
BasicBlock *Dest;
- Dest = I->getSuccessor(0); // Uncond branches have a fixed dest...
- if (!I->isUnconditional()) {
- Value *Cond = I->getCondition();
+ Dest = I.getSuccessor(0); // Uncond branches have a fixed dest...
+ if (!I.isUnconditional()) {
+ Value *Cond = I.getCondition();
GenericValue CondVal = getOperandValue(Cond, SF);
if (CondVal.BoolVal == 0) // If false cond...
- Dest = I->getSuccessor(1);
+ Dest = I.getSuccessor(1);
}
SF.CurBB = Dest; // Update CurBB to branch destination
SF.CurInst = SF.CurBB->begin(); // Update new instruction ptr...
// Memory Instruction Implementations
//===----------------------------------------------------------------------===//
-void Interpreter::executeAllocInst(AllocationInst *I, ExecutionContext &SF) {
- const Type *Ty = I->getType()->getElementType(); // Type to be allocated
+void Interpreter::executeAllocInst(AllocationInst &I, ExecutionContext &SF) {
+ const Type *Ty = I.getType()->getElementType(); // Type to be allocated
// Get the number of elements being allocated by the array...
- unsigned NumElements = getOperandValue(I->getOperand(0), SF).UIntVal;
+ unsigned NumElements = getOperandValue(I.getOperand(0), SF).UIntVal;
// Allocate enough memory to hold the type...
// FIXME: Don't use CALLOC, use a tainted malloc.
GenericValue Result;
Result.PointerVal = (PointerTy)Memory;
assert(Result.PointerVal != 0 && "Null pointer returned by malloc!");
- SetValue(I, Result, SF);
+ SetValue(&I, Result, SF);
- if (I->getOpcode() == Instruction::Alloca)
+ if (I.getOpcode() == Instruction::Alloca)
ECStack.back().Allocas.add(Memory);
}
-static void executeFreeInst(FreeInst *I, ExecutionContext &SF) {
- assert(I->getOperand(0)->getType()->isPointerType() && "Freeing nonptr?");
- GenericValue Value = getOperandValue(I->getOperand(0), SF);
+static void executeFreeInst(FreeInst &I, ExecutionContext &SF) {
+ assert(isa<PointerType>(I.getOperand(0)->getType()) && "Freeing nonptr?");
+ GenericValue Value = getOperandValue(I.getOperand(0), SF);
// TODO: Check to make sure memory is allocated
free((void*)Value.PointerVal); // Free memory
}
-// getElementOffset - The workhorse for getelementptr, load and store. This
-// function returns the offset that arguments ArgOff+1 -> NumArgs specify for
-// the pointer type specified by argument Arg.
+// getElementOffset - The workhorse for getelementptr.
//
-static PointerTy getElementOffset(MemAccessInst *I, ExecutionContext &SF) {
- assert(isa<PointerType>(I->getPointerOperand()->getType()) &&
+static GenericValue executeGEPOperation(Value *Ptr, User::op_iterator I,
+ User::op_iterator E,
+ ExecutionContext &SF) {
+ assert(isa<PointerType>(Ptr->getType()) &&
"Cannot getElementOffset of a nonpointer type!");
PointerTy Total = 0;
- const Type *Ty = I->getPointerOperand()->getType();
-
- unsigned ArgOff = I->getFirstIndexOperandNumber();
- while (ArgOff < I->getNumOperands()) {
+ const Type *Ty = Ptr->getType();
+
+ for (; I != E; ++I) {
if (const StructType *STy = dyn_cast<StructType>(Ty)) {
const StructLayout *SLO = TD.getStructLayout(STy);
// Indicies must be ubyte constants...
- const ConstantUInt *CPU = cast<ConstantUInt>(I->getOperand(ArgOff++));
+ const ConstantUInt *CPU = cast<ConstantUInt>(*I);
assert(CPU->getType() == Type::UByteTy);
unsigned Index = CPU->getValue();
} else if (const SequentialType *ST = cast<SequentialType>(Ty)) {
// Get the index number for the array... which must be uint type...
- assert(I->getOperand(ArgOff)->getType() == Type::UIntTy);
- unsigned Idx = getOperandValue(I->getOperand(ArgOff++), SF).UIntVal;
+ assert((*I)->getType() == Type::LongTy);
+ unsigned Idx = getOperandValue(*I, SF).LongVal;
if (const ArrayType *AT = dyn_cast<ArrayType>(ST))
if (Idx >= AT->getNumElements() && ArrayChecksEnabled) {
cerr << "Out of range memory access to element #" << Idx
<< " of a " << AT->getNumElements() << " element array."
- << " Subscript #" << (ArgOff-I->getFirstIndexOperandNumber())
- << "\n";
+ << " Subscript #" << *I << "\n";
// Get outta here!!!
siglongjmp(SignalRecoverBuffer, SIGTRAP);
}
}
}
- return Total;
-}
-
-static void executeGEPInst(GetElementPtrInst *I, ExecutionContext &SF) {
- GenericValue SRC = getOperandValue(I->getPointerOperand(), SF);
- PointerTy SrcPtr = SRC.PointerVal;
-
GenericValue Result;
- Result.PointerVal = SrcPtr + getElementOffset(I, SF);
- SetValue(I, Result, SF);
+ Result.PointerVal = getOperandValue(Ptr, SF).PointerVal + Total;
+ return Result;
}
-static void executeLoadInst(LoadInst *I, ExecutionContext &SF) {
- GenericValue SRC = getOperandValue(I->getPointerOperand(), SF);
- PointerTy SrcPtr = SRC.PointerVal;
- PointerTy Offset = getElementOffset(I, SF); // Handle any structure indices
- SrcPtr += Offset;
+static void executeGEPInst(GetElementPtrInst &I, ExecutionContext &SF) {
+ SetValue(&I, executeGEPOperation(I.getPointerOperand(),
+ I.idx_begin(), I.idx_end(), SF), SF);
+}
- GenericValue *Ptr = (GenericValue*)SrcPtr;
+static void executeLoadInst(LoadInst &I, ExecutionContext &SF) {
+ GenericValue SRC = getOperandValue(I.getPointerOperand(), SF);
+ GenericValue *Ptr = (GenericValue*)SRC.PointerVal;
GenericValue Result;
- switch (I->getType()->getPrimitiveID()) {
- case Type::BoolTyID:
- case Type::UByteTyID:
- case Type::SByteTyID: Result.SByteVal = Ptr->SByteVal; break;
- case Type::UShortTyID:
- case Type::ShortTyID: Result.ShortVal = Ptr->ShortVal; break;
- case Type::UIntTyID:
- case Type::IntTyID: Result.IntVal = Ptr->IntVal; break;
- case Type::ULongTyID:
- case Type::LongTyID: Result.ULongVal = Ptr->ULongVal; break;
- case Type::PointerTyID: Result.PointerVal = Ptr->PointerVal; break;
- case Type::FloatTyID: Result.FloatVal = Ptr->FloatVal; break;
- case Type::DoubleTyID: Result.DoubleVal = Ptr->DoubleVal; break;
- default:
- cout << "Cannot load value of type " << I->getType() << "!\n";
+ if (TD.isLittleEndian()) {
+ switch (I.getType()->getPrimitiveID()) {
+ case Type::BoolTyID:
+ case Type::UByteTyID:
+ case Type::SByteTyID: Result.Untyped[0] = Ptr->UByteVal; break;
+ case Type::UShortTyID:
+ case Type::ShortTyID: Result.Untyped[0] = Ptr->UShortVal & 255;
+ Result.Untyped[1] = (Ptr->UShortVal >> 8) & 255;
+ break;
+ case Type::FloatTyID:
+ case Type::UIntTyID:
+ case Type::IntTyID: Result.Untyped[0] = Ptr->UIntVal & 255;
+ Result.Untyped[1] = (Ptr->UIntVal >> 8) & 255;
+ Result.Untyped[2] = (Ptr->UIntVal >> 16) & 255;
+ Result.Untyped[3] = (Ptr->UIntVal >> 24) & 255;
+ break;
+ case Type::DoubleTyID:
+ case Type::ULongTyID:
+ case Type::LongTyID:
+ case Type::PointerTyID: Result.Untyped[0] = Ptr->ULongVal & 255;
+ Result.Untyped[1] = (Ptr->ULongVal >> 8) & 255;
+ Result.Untyped[2] = (Ptr->ULongVal >> 16) & 255;
+ Result.Untyped[3] = (Ptr->ULongVal >> 24) & 255;
+ Result.Untyped[4] = (Ptr->ULongVal >> 32) & 255;
+ Result.Untyped[5] = (Ptr->ULongVal >> 40) & 255;
+ Result.Untyped[6] = (Ptr->ULongVal >> 48) & 255;
+ Result.Untyped[7] = (Ptr->ULongVal >> 56) & 255;
+ break;
+ default:
+ cout << "Cannot load value of type " << I.getType() << "!\n";
+ }
+ } else {
+ switch (I.getType()->getPrimitiveID()) {
+ case Type::BoolTyID:
+ case Type::UByteTyID:
+ case Type::SByteTyID: Result.Untyped[0] = Ptr->UByteVal; break;
+ case Type::UShortTyID:
+ case Type::ShortTyID: Result.Untyped[1] = Ptr->UShortVal & 255;
+ Result.Untyped[0] = (Ptr->UShortVal >> 8) & 255;
+ break;
+ case Type::FloatTyID:
+ case Type::UIntTyID:
+ case Type::IntTyID: Result.Untyped[3] = Ptr->UIntVal & 255;
+ Result.Untyped[2] = (Ptr->UIntVal >> 8) & 255;
+ Result.Untyped[1] = (Ptr->UIntVal >> 16) & 255;
+ Result.Untyped[0] = (Ptr->UIntVal >> 24) & 255;
+ break;
+ case Type::DoubleTyID:
+ case Type::ULongTyID:
+ case Type::LongTyID:
+ case Type::PointerTyID: Result.Untyped[7] = Ptr->ULongVal & 255;
+ Result.Untyped[6] = (Ptr->ULongVal >> 8) & 255;
+ Result.Untyped[5] = (Ptr->ULongVal >> 16) & 255;
+ Result.Untyped[4] = (Ptr->ULongVal >> 24) & 255;
+ Result.Untyped[3] = (Ptr->ULongVal >> 32) & 255;
+ Result.Untyped[2] = (Ptr->ULongVal >> 40) & 255;
+ Result.Untyped[1] = (Ptr->ULongVal >> 48) & 255;
+ Result.Untyped[0] = (Ptr->ULongVal >> 56) & 255;
+ break;
+ default:
+ cout << "Cannot load value of type " << I.getType() << "!\n";
+ }
}
- SetValue(I, Result, SF);
+ SetValue(&I, Result, SF);
}
-static void executeStoreInst(StoreInst *I, ExecutionContext &SF) {
- GenericValue SRC = getOperandValue(I->getPointerOperand(), SF);
- PointerTy SrcPtr = SRC.PointerVal;
- SrcPtr += getElementOffset(I, SF); // Handle any structure indices
-
- GenericValue *Ptr = (GenericValue *)SrcPtr;
- GenericValue Val = getOperandValue(I->getOperand(0), SF);
-
- switch (I->getOperand(0)->getType()->getPrimitiveID()) {
- case Type::BoolTyID:
- case Type::UByteTyID:
- case Type::SByteTyID: Ptr->SByteVal = Val.SByteVal; break;
- case Type::UShortTyID:
- case Type::ShortTyID: Ptr->ShortVal = Val.ShortVal; break;
- case Type::UIntTyID:
- case Type::IntTyID: Ptr->IntVal = Val.IntVal; break;
- case Type::ULongTyID:
- case Type::LongTyID: Ptr->LongVal = Val.LongVal; break;
- case Type::PointerTyID: Ptr->PointerVal = Val.PointerVal; break;
- case Type::FloatTyID: Ptr->FloatVal = Val.FloatVal; break;
- case Type::DoubleTyID: Ptr->DoubleVal = Val.DoubleVal; break;
- default:
- cout << "Cannot store value of type " << I->getType() << "!\n";
+static void StoreValueToMemory(GenericValue Val, GenericValue *Ptr,
+ const Type *Ty) {
+ if (TD.isLittleEndian()) {
+ switch (Ty->getPrimitiveID()) {
+ case Type::BoolTyID:
+ case Type::UByteTyID:
+ case Type::SByteTyID: Ptr->Untyped[0] = Val.UByteVal; break;
+ case Type::UShortTyID:
+ case Type::ShortTyID: Ptr->Untyped[0] = Val.UShortVal & 255;
+ Ptr->Untyped[1] = (Val.UShortVal >> 8) & 255;
+ break;
+ case Type::FloatTyID:
+ case Type::UIntTyID:
+ case Type::IntTyID: Ptr->Untyped[0] = Val.UIntVal & 255;
+ Ptr->Untyped[1] = (Val.UIntVal >> 8) & 255;
+ Ptr->Untyped[2] = (Val.UIntVal >> 16) & 255;
+ Ptr->Untyped[3] = (Val.UIntVal >> 24) & 255;
+ break;
+ case Type::DoubleTyID:
+ case Type::ULongTyID:
+ case Type::LongTyID:
+ case Type::PointerTyID: Ptr->Untyped[0] = Val.ULongVal & 255;
+ Ptr->Untyped[1] = (Val.ULongVal >> 8) & 255;
+ Ptr->Untyped[2] = (Val.ULongVal >> 16) & 255;
+ Ptr->Untyped[3] = (Val.ULongVal >> 24) & 255;
+ Ptr->Untyped[4] = (Val.ULongVal >> 32) & 255;
+ Ptr->Untyped[5] = (Val.ULongVal >> 40) & 255;
+ Ptr->Untyped[6] = (Val.ULongVal >> 48) & 255;
+ Ptr->Untyped[7] = (Val.ULongVal >> 56) & 255;
+ break;
+ default:
+ cout << "Cannot load value of type " << Ty << "!\n";
+ }
+ } else {
+ switch (Ty->getPrimitiveID()) {
+ case Type::BoolTyID:
+ case Type::UByteTyID:
+ case Type::SByteTyID: Ptr->Untyped[0] = Val.UByteVal; break;
+ case Type::UShortTyID:
+ case Type::ShortTyID: Ptr->Untyped[1] = Val.UShortVal & 255;
+ Ptr->Untyped[0] = (Val.UShortVal >> 8) & 255;
+ break;
+ case Type::FloatTyID:
+ case Type::UIntTyID:
+ case Type::IntTyID: Ptr->Untyped[3] = Val.UIntVal & 255;
+ Ptr->Untyped[2] = (Val.UIntVal >> 8) & 255;
+ Ptr->Untyped[1] = (Val.UIntVal >> 16) & 255;
+ Ptr->Untyped[0] = (Val.UIntVal >> 24) & 255;
+ break;
+ case Type::DoubleTyID:
+ case Type::ULongTyID:
+ case Type::LongTyID:
+ case Type::PointerTyID: Ptr->Untyped[7] = Val.ULongVal & 255;
+ Ptr->Untyped[6] = (Val.ULongVal >> 8) & 255;
+ Ptr->Untyped[5] = (Val.ULongVal >> 16) & 255;
+ Ptr->Untyped[4] = (Val.ULongVal >> 24) & 255;
+ Ptr->Untyped[3] = (Val.ULongVal >> 32) & 255;
+ Ptr->Untyped[2] = (Val.ULongVal >> 40) & 255;
+ Ptr->Untyped[1] = (Val.ULongVal >> 48) & 255;
+ Ptr->Untyped[0] = (Val.ULongVal >> 56) & 255;
+ break;
+ default:
+ cout << "Cannot load value of type " << Ty << "!\n";
+ }
}
}
+static void executeStoreInst(StoreInst &I, ExecutionContext &SF) {
+ GenericValue Val = getOperandValue(I.getOperand(0), SF);
+ GenericValue SRC = getOperandValue(I.getPointerOperand(), SF);
+ StoreValueToMemory(Val, (GenericValue *)SRC.PointerVal, I.getType());
+}
+
//===----------------------------------------------------------------------===//
// Miscellaneous Instruction Implementations
//===----------------------------------------------------------------------===//
-void Interpreter::executeCallInst(CallInst *I, ExecutionContext &SF) {
- ECStack.back().Caller = I;
+void Interpreter::executeCallInst(CallInst &I, ExecutionContext &SF) {
+ ECStack.back().Caller = &I;
vector<GenericValue> ArgVals;
- ArgVals.reserve(I->getNumOperands()-1);
- for (unsigned i = 1; i < I->getNumOperands(); ++i)
- ArgVals.push_back(getOperandValue(I->getOperand(i), SF));
+ ArgVals.reserve(I.getNumOperands()-1);
+ for (unsigned i = 1; i < I.getNumOperands(); ++i)
+ ArgVals.push_back(getOperandValue(I.getOperand(i), SF));
// To handle indirect calls, we must get the pointer value from the argument
// and treat it as a function pointer.
- GenericValue SRC = getOperandValue(I->getCalledValue(), SF);
+ GenericValue SRC = getOperandValue(I.getCalledValue(), SF);
callMethod((Function*)SRC.PointerVal, ArgVals);
}
-static void executePHINode(PHINode *I, ExecutionContext &SF) {
+static void executePHINode(PHINode &I, ExecutionContext &SF) {
BasicBlock *PrevBB = SF.PrevBB;
Value *IncomingValue = 0;
// Search for the value corresponding to this previous bb...
- for (unsigned i = I->getNumIncomingValues(); i > 0;) {
- if (I->getIncomingBlock(--i) == PrevBB) {
- IncomingValue = I->getIncomingValue(i);
+ for (unsigned i = I.getNumIncomingValues(); i > 0;) {
+ if (I.getIncomingBlock(--i) == PrevBB) {
+ IncomingValue = I.getIncomingValue(i);
break;
}
}
assert(IncomingValue && "No PHI node predecessor for current PrevBB!");
// Found the value, set as the result...
- SetValue(I, getOperandValue(IncomingValue, SF), SF);
+ SetValue(&I, getOperandValue(IncomingValue, SF), SF);
}
#define IMPLEMENT_SHIFT(OP, TY) \
case Type::TY##TyID: Dest.TY##Val = Src1.TY##Val OP Src2.UByteVal; break
-static void executeShlInst(ShiftInst *I, ExecutionContext &SF) {
- const Type *Ty = I->getOperand(0)->getType();
- GenericValue Src1 = getOperandValue(I->getOperand(0), SF);
- GenericValue Src2 = getOperandValue(I->getOperand(1), SF);
+static void executeShlInst(ShiftInst &I, ExecutionContext &SF) {
+ const Type *Ty = I.getOperand(0)->getType();
+ GenericValue Src1 = getOperandValue(I.getOperand(0), SF);
+ GenericValue Src2 = getOperandValue(I.getOperand(1), SF);
GenericValue Dest;
switch (Ty->getPrimitiveID()) {
IMPLEMENT_SHIFT(<<, Int);
IMPLEMENT_SHIFT(<<, ULong);
IMPLEMENT_SHIFT(<<, Long);
+ IMPLEMENT_SHIFT(<<, Pointer);
default:
cout << "Unhandled type for Shl instruction: " << Ty << "\n";
}
- SetValue(I, Dest, SF);
+ SetValue(&I, Dest, SF);
}
-static void executeShrInst(ShiftInst *I, ExecutionContext &SF) {
- const Type *Ty = I->getOperand(0)->getType();
- GenericValue Src1 = getOperandValue(I->getOperand(0), SF);
- GenericValue Src2 = getOperandValue(I->getOperand(1), SF);
+static void executeShrInst(ShiftInst &I, ExecutionContext &SF) {
+ const Type *Ty = I.getOperand(0)->getType();
+ GenericValue Src1 = getOperandValue(I.getOperand(0), SF);
+ GenericValue Src2 = getOperandValue(I.getOperand(1), SF);
GenericValue Dest;
switch (Ty->getPrimitiveID()) {
IMPLEMENT_SHIFT(>>, Int);
IMPLEMENT_SHIFT(>>, ULong);
IMPLEMENT_SHIFT(>>, Long);
+ IMPLEMENT_SHIFT(>>, Pointer);
default:
cout << "Unhandled type for Shr instruction: " << Ty << "\n";
}
- SetValue(I, Dest, SF);
+ SetValue(&I, Dest, SF);
}
#define IMPLEMENT_CAST(DTY, DCTY, STY) \
IMPLEMENT_CAST_CASE_FP_IMP(DESTTY, DESTCTY); \
IMPLEMENT_CAST_CASE_END()
-static void executeCastInst(CastInst *I, ExecutionContext &SF) {
- const Type *Ty = I->getType();
- const Type *SrcTy = I->getOperand(0)->getType();
- GenericValue Src = getOperandValue(I->getOperand(0), SF);
- GenericValue Dest;
+static GenericValue executeCastOperation(Value *SrcVal, const Type *Ty,
+ ExecutionContext &SF) {
+ const Type *SrcTy = SrcVal->getType();
+ GenericValue Dest, Src = getOperandValue(SrcVal, SF);
switch (Ty->getPrimitiveID()) {
IMPLEMENT_CAST_CASE(UByte , (unsigned char));
IMPLEMENT_CAST_CASE(SByte , ( signed char));
IMPLEMENT_CAST_CASE(UShort , (unsigned short));
- IMPLEMENT_CAST_CASE(Short , ( signed char));
+ IMPLEMENT_CAST_CASE(Short , ( signed short));
IMPLEMENT_CAST_CASE(UInt , (unsigned int ));
IMPLEMENT_CAST_CASE(Int , ( signed int ));
IMPLEMENT_CAST_CASE(ULong , (uint64_t));
default:
cout << "Unhandled dest type for cast instruction: " << Ty << "\n";
}
- SetValue(I, Dest, SF);
+
+ return Dest;
}
+static void executeCastInst(CastInst &I, ExecutionContext &SF) {
+ SetValue(&I, executeCastOperation(I.getOperand(0), I.getType(), SF), SF);
+}
//===----------------------------------------------------------------------===//
// Dispatch and Execution Code
//===----------------------------------------------------------------------===//
-MethodInfo::MethodInfo(Function *M) : Annotation(MethodInfoAID) {
+MethodInfo::MethodInfo(Function *F) : Annotation(MethodInfoAID) {
// Assign slot numbers to the function arguments...
- const Function::ArgumentListType &ArgList = M->getArgumentList();
- for (Function::ArgumentListType::const_iterator AI = ArgList.begin(),
- AE = ArgList.end(); AI != AE; ++AI)
- ((Value*)(*AI))->addAnnotation(new SlotNumber(getValueSlot((Value*)*AI)));
+ for (Function::const_aiterator AI = F->abegin(), E = F->aend(); AI != E; ++AI)
+ AI->addAnnotation(new SlotNumber(getValueSlot(AI)));
// Iterate over all of the instructions...
unsigned InstNum = 0;
- for (Function::iterator MI = M->begin(), ME = M->end(); MI != ME; ++MI) {
- BasicBlock *BB = *MI;
- for (BasicBlock::iterator II = BB->begin(), IE = BB->end(); II != IE; ++II){
- Instruction *I = *II; // For each instruction... Add Annote
- I->addAnnotation(new InstNumber(++InstNum, getValueSlot(I)));
- }
- }
+ for (Function::iterator BB = F->begin(), BBE = F->end(); BB != BBE; ++BB)
+ for (BasicBlock::iterator II = BB->begin(), IE = BB->end(); II != IE; ++II)
+ // For each instruction... Add Annote
+ II->addAnnotation(new InstNumber(++InstNum, getValueSlot(II)));
}
unsigned MethodInfo::getValueSlot(const Value *V) {
cout << "\n";
if (RetTy->isIntegral())
- ExitCode = Result.SByteVal; // Capture the exit code of the program
+ ExitCode = Result.IntVal; // Capture the exit code of the program
}
}
ExecutionContext &StackFrame = ECStack.back(); // Fill it in...
StackFrame.CurMethod = M;
- StackFrame.CurBB = M->front();
+ StackFrame.CurBB = M->begin();
StackFrame.CurInst = StackFrame.CurBB->begin();
StackFrame.MethInfo = MethInfo;
// Run through the function arguments and initialize their values...
- assert(ArgVals.size() == M->getArgumentList().size() &&
+ assert(ArgVals.size() == M->asize() &&
"Invalid number of values passed to function invocation!");
unsigned i = 0;
- for (Function::ArgumentListType::iterator AI = M->getArgumentList().begin(),
- AE = M->getArgumentList().end(); AI != AE; ++AI, ++i) {
- SetValue((Value*)*AI, ArgVals[i], StackFrame);
- }
+ for (Function::aiterator AI = M->abegin(), E = M->aend(); AI != E; ++AI, ++i)
+ SetValue(AI, ArgVals[i], StackFrame);
}
// executeInstruction - Interpret a single instruction, increment the "PC", and
assert(!ECStack.empty() && "No program running, cannot execute inst!");
ExecutionContext &SF = ECStack.back(); // Current stack frame
- Instruction *I = *SF.CurInst++; // Increment before execute
+ Instruction &I = *SF.CurInst++; // Increment before execute
if (Trace)
CW << "Run:" << I;
if (int SigNo = sigsetjmp(SignalRecoverBuffer, 1)) {
--SF.CurInst; // Back up to erroring instruction
if (SigNo != SIGINT) {
- cout << "EXCEPTION OCCURRED [" << _sys_siglistp[SigNo] << "]:\n";
+ cout << "EXCEPTION OCCURRED [" << strsignal(SigNo) << "]:\n";
printStackTrace();
// If -abort-on-exception was specified, terminate LLI instead of trying
// to debug it.
}
InInstruction = true;
- if (I->isBinaryOp()) {
+ if (I.isBinaryOp()) {
executeBinaryInst(cast<BinaryOperator>(I), SF);
} else {
- switch (I->getOpcode()) {
+ switch (I.getOpcode()) {
// Terminators
case Instruction::Ret: executeRetInst (cast<ReturnInst>(I), SF); break;
case Instruction::Br: executeBrInst (cast<BranchInst>(I), SF); break;
// Memory Instructions
case Instruction::Alloca:
- case Instruction::Malloc: executeAllocInst((AllocationInst*)I, SF); break;
+ case Instruction::Malloc: executeAllocInst((AllocationInst&)I, SF); break;
case Instruction::Free: executeFreeInst (cast<FreeInst> (I), SF); break;
case Instruction::Load: executeLoadInst (cast<LoadInst> (I), SF); break;
case Instruction::Store: executeStoreInst(cast<StoreInst>(I), SF); break;
if (CurFrame == -1) return false; // No breakpoint if no code
// Return true if there is a breakpoint annotation on the instruction...
- return (*ECStack[CurFrame].CurInst)->getAnnotation(BreakpointAID) != 0;
+ return ECStack[CurFrame].CurInst->getAnnotation(BreakpointAID) != 0;
}
void Interpreter::stepInstruction() { // Do the 'step' command
// If this is a call instruction, step over the call instruction...
// TODO: ICALL, CALL WITH, ...
- if ((*ECStack.back().CurInst)->getOpcode() == Instruction::Call) {
+ if (ECStack.back().CurInst->getOpcode() == Instruction::Call) {
unsigned StackSize = ECStack.size();
// Step into the function...
if (executeInstruction()) {
if (ECStack.back().CurBB->begin() == ECStack.back().CurInst) // print label
WriteAsOperand(cout, ECStack.back().CurBB) << ":\n";
- Instruction *I = *ECStack.back().CurInst;
- InstNumber *IN = (InstNumber*)I->getAnnotation(SlotNumberAID);
+ Instruction &I = *ECStack.back().CurInst;
+ InstNumber *IN = (InstNumber*)I.getAnnotation(SlotNumberAID);
assert(IN && "Instruction has no numbering annotation!");
cout << "#" << IN->InstNum << I;
}
void Interpreter::printValue(const Type *Ty, GenericValue V) {
switch (Ty->getPrimitiveID()) {
case Type::BoolTyID: cout << (V.BoolVal?"true":"false"); break;
- case Type::SByteTyID: cout << V.SByteVal; break;
- case Type::UByteTyID: cout << V.UByteVal; break;
+ case Type::SByteTyID:
+ cout << (int)V.SByteVal << " '" << V.SByteVal << "'"; break;
+ case Type::UByteTyID:
+ cout << (unsigned)V.UByteVal << " '" << V.UByteVal << "'"; break;
case Type::ShortTyID: cout << V.ShortVal; break;
case Type::UShortTyID: cout << V.UShortVal; break;
case Type::IntTyID: cout << V.IntVal; break;
// printStackFrame - Print information about the specified stack frame, or -1
// for the default one.
//
-void Interpreter::printStackFrame(int FrameNo = -1) {
+void Interpreter::printStackFrame(int FrameNo) {
if (FrameNo == -1) FrameNo = CurFrame;
- Function *Func = ECStack[FrameNo].CurMethod;
- const Type *RetTy = Func->getReturnType();
+ Function *F = ECStack[FrameNo].CurMethod;
+ const Type *RetTy = F->getReturnType();
CW << ((FrameNo == CurFrame) ? '>' : '-') << "#" << FrameNo << ". "
- << (Value*)RetTy << " \"" << Func->getName() << "\"(";
+ << (Value*)RetTy << " \"" << F->getName() << "\"(";
- Function::ArgumentListType &Args = Func->getArgumentList();
- for (unsigned i = 0; i < Args.size(); ++i) {
+ unsigned i = 0;
+ for (Function::aiterator I = F->abegin(), E = F->aend(); I != E; ++I, ++i) {
if (i != 0) cout << ", ";
- CW << (Value*)Args[i] << "=";
+ CW << *I << "=";
- printValue(((Value*)Args[i])->getType(),
- getOperandValue((Value*)Args[i], ECStack[FrameNo]));
+ printValue(I->getType(), getOperandValue(I, ECStack[FrameNo]));
}
cout << ")\n";
- CW << *(ECStack[FrameNo].CurInst-(FrameNo != int(ECStack.size()-1)));
+
+ if (FrameNo != int(ECStack.size()-1)) {
+ BasicBlock::iterator I = ECStack[FrameNo].CurInst;
+ CW << --I;
+ } else {
+ CW << *ECStack[FrameNo].CurInst;
+ }
}