2002-12-24 00:01:05 +00:00
|
|
|
//===- Interpreter.cpp - Top-Level LLVM Interpreter Implementation --------===//
|
2005-04-21 22:43:08 +00:00
|
|
|
//
|
2003-10-20 19:43:21 +00:00
|
|
|
// The LLVM Compiler Infrastructure
|
|
|
|
//
|
|
|
|
// This file was developed by the LLVM research group and is distributed under
|
|
|
|
// the University of Illinois Open Source License. See LICENSE.TXT for details.
|
2005-04-21 22:43:08 +00:00
|
|
|
//
|
2003-10-20 19:43:21 +00:00
|
|
|
//===----------------------------------------------------------------------===//
|
2002-12-24 00:01:05 +00:00
|
|
|
//
|
|
|
|
// This file implements the top-level functionality for the LLVM interpreter.
|
|
|
|
// This interpreter is designed to be a very simple, portable, inefficient
|
|
|
|
// interpreter.
|
|
|
|
//
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
|
|
|
|
#include "Interpreter.h"
|
2004-06-20 07:49:54 +00:00
|
|
|
#include "llvm/CodeGen/IntrinsicLowering.h"
|
2003-09-05 04:46:26 +00:00
|
|
|
#include "llvm/DerivedTypes.h"
|
2003-12-28 09:44:37 +00:00
|
|
|
#include "llvm/Module.h"
|
2003-12-14 23:25:48 +00:00
|
|
|
using namespace llvm;
|
2003-11-11 22:41:34 +00:00
|
|
|
|
2003-09-03 20:34:19 +00:00
|
|
|
/// create - Create a new interpreter object. This can never fail.
|
2002-12-24 00:01:05 +00:00
|
|
|
///
|
2003-12-28 09:44:37 +00:00
|
|
|
ExecutionEngine *Interpreter::create(Module *M, IntrinsicLowering *IL) {
|
2003-09-22 20:33:34 +00:00
|
|
|
bool isLittleEndian = false;
|
2003-08-24 19:50:53 +00:00
|
|
|
switch (M->getEndianness()) {
|
|
|
|
case Module::LittleEndian: isLittleEndian = true; break;
|
|
|
|
case Module::BigEndian: isLittleEndian = false; break;
|
|
|
|
case Module::AnyPointerSize:
|
|
|
|
int Test = 0;
|
|
|
|
*(char*)&Test = 1; // Return true if the host is little endian
|
|
|
|
isLittleEndian = (Test == 1);
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
2003-09-22 20:33:34 +00:00
|
|
|
bool isLongPointer = false;
|
2003-08-24 19:50:53 +00:00
|
|
|
switch (M->getPointerSize()) {
|
|
|
|
case Module::Pointer32: isLongPointer = false; break;
|
|
|
|
case Module::Pointer64: isLongPointer = true; break;
|
|
|
|
case Module::AnyPointerSize:
|
|
|
|
isLongPointer = (sizeof(void*) == 8); // Follow host
|
|
|
|
break;
|
|
|
|
}
|
|
|
|
|
2003-12-28 09:44:37 +00:00
|
|
|
return new Interpreter(M, isLittleEndian, isLongPointer, IL);
|
2002-12-24 00:01:05 +00:00
|
|
|
}
|
|
|
|
|
|
|
|
//===----------------------------------------------------------------------===//
|
|
|
|
// Interpreter ctor - Initialize stuff
|
|
|
|
//
|
2003-12-28 09:44:37 +00:00
|
|
|
Interpreter::Interpreter(Module *M, bool isLittleEndian, bool isLongPointer,
|
|
|
|
IntrinsicLowering *il)
|
2006-02-07 05:29:44 +00:00
|
|
|
: ExecutionEngine(M),
|
2003-10-24 19:59:28 +00:00
|
|
|
TD("lli", isLittleEndian, isLongPointer ? 8 : 4, isLongPointer ? 8 : 4,
|
2003-12-28 09:44:37 +00:00
|
|
|
isLongPointer ? 8 : 4), IL(il) {
|
2002-12-24 00:01:05 +00:00
|
|
|
|
2006-02-07 05:29:44 +00:00
|
|
|
memset(&ExitValue, 0, sizeof(ExitValue));
|
2002-12-24 00:01:05 +00:00
|
|
|
setTargetData(TD);
|
|
|
|
// Initialize the "backend"
|
|
|
|
initializeExecutionEngine();
|
2003-05-08 16:18:31 +00:00
|
|
|
initializeExternalFunctions();
|
2003-05-12 02:14:34 +00:00
|
|
|
emitGlobals();
|
2003-12-28 09:44:37 +00:00
|
|
|
|
|
|
|
if (IL == 0) IL = new DefaultIntrinsicLowering();
|
|
|
|
}
|
|
|
|
|
|
|
|
Interpreter::~Interpreter() {
|
|
|
|
delete IL;
|
2002-12-24 00:01:05 +00:00
|
|
|
}
|
|
|
|
|
2003-09-05 18:42:01 +00:00
|
|
|
void Interpreter::runAtExitHandlers () {
|
|
|
|
while (!AtExitHandlers.empty()) {
|
|
|
|
callFunction(AtExitHandlers.back(), std::vector<GenericValue>());
|
|
|
|
AtExitHandlers.pop_back();
|
2002-12-24 00:01:05 +00:00
|
|
|
run();
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
2003-09-05 18:42:01 +00:00
|
|
|
/// run - Start execution with the specified function and arguments.
|
|
|
|
///
|
2005-07-27 06:12:32 +00:00
|
|
|
GenericValue
|
2005-04-22 04:08:30 +00:00
|
|
|
Interpreter::runFunction(Function *F,
|
|
|
|
const std::vector<GenericValue> &ArgValues) {
|
2003-09-05 18:42:01 +00:00
|
|
|
assert (F && "Function *F was null at entry to run()");
|
|
|
|
|
|
|
|
// Try extra hard not to pass extra args to a function that isn't
|
|
|
|
// expecting them. C programmers frequently bend the rules and
|
|
|
|
// declare main() with fewer parameters than it actually gets
|
|
|
|
// passed, and the interpreter barfs if you pass a function more
|
|
|
|
// parameters than it is declared to take. This does not attempt to
|
|
|
|
// take into account gratuitous differences in declared types,
|
|
|
|
// though.
|
|
|
|
std::vector<GenericValue> ActualArgs;
|
2004-02-09 04:14:01 +00:00
|
|
|
const unsigned ArgCount = F->getFunctionType()->getNumParams();
|
2003-10-24 19:59:28 +00:00
|
|
|
for (unsigned i = 0; i < ArgCount; ++i)
|
2004-02-09 04:14:01 +00:00
|
|
|
ActualArgs.push_back(ArgValues[i]);
|
2005-04-21 22:43:08 +00:00
|
|
|
|
2003-09-05 18:42:01 +00:00
|
|
|
// Set up the function call.
|
|
|
|
callFunction(F, ActualArgs);
|
2003-09-05 04:46:26 +00:00
|
|
|
|
2003-09-05 18:42:01 +00:00
|
|
|
// Start executing the function.
|
|
|
|
run();
|
2005-04-21 22:43:08 +00:00
|
|
|
|
2006-02-07 05:29:44 +00:00
|
|
|
return ExitValue;
|
2003-09-05 04:46:26 +00:00
|
|
|
}
|
2003-11-11 22:41:34 +00:00
|
|
|
|