case Type::LongTyID: Result.LongVal = Ptr->LongVal; break;
case Type::FloatTyID: Result.FloatVal = Ptr->FloatVal; break;
case Type::DoubleTyID: Result.DoubleVal = Ptr->DoubleVal; break;
- case Type::PointerTyID: Result.PointerVal = Ptr->PointerVal; break;
+ case Type::PointerTyID: Result.PointerVal =(GenericValue*)Ptr->LongVal; break;
default:
cout << "Cannot load value of type " << I->getType() << "!\n";
}
// Hack until we can parse command line args...
bool callMainMethod(const string &MainName,
- const string &InputFilename);
+ const vector<string> &InputFilename);
void list(); // Do the 'list' command
void printStackTrace(); // Do the 'backtrace' command
return false;
}
+static void *CreateArgv(const vector<string> &InputArgv) {
+ // Pointers are 64 bits...
+ uint64_t *Result = new uint64_t[InputArgv.size()+1];
+
+ for (unsigned i = 0; i < InputArgv.size(); ++i) {
+ unsigned Size = InputArgv[i].size()+1;
+ char *Dest = new char[Size];
+ copy(InputArgv[i].begin(), InputArgv[i].end(), Dest);
+ Dest[Size-1] = 0;
+ Result[i] = (uint64_t)Dest;
+ }
+
+ Result[InputArgv.size()] = 0;
+ return Result;
+}
+
// callMainMethod - This is a nasty gross hack that will dissapear when
// callMethod can parse command line options and stuff for us.
//
bool Interpreter::callMainMethod(const string &Name,
- const string &InputFilename) {
+ const vector<string> &InputArgv) {
vector<Value*> Options = LookupMatchingNames(Name);
for (unsigned i = 0; i < Options.size(); ++i) { // Remove nonmethod matches...
<< SPP->getDescription() << "'!\n";
return true;
}
- // TODO:
- GenericValue GV; GV.PointerVal = 0;
+
+ GenericValue GV; GV.PointerVal = (GenericValue*)CreateArgv(InputArgv);
Args.push_back(GV);
}
// fallthrough
cout << "First argument of '" << Name << "' should be integral!\n";
return true;
} else {
- GenericValue GV; GV.IntVal = 1;
+ GenericValue GV; GV.UIntVal = InputArgv.size();
Args.insert(Args.begin(), GV);
}
// fallthrough
#include "Interpreter.h"
#include "llvm/Support/CommandLine.h"
-cl::String InputFilename("" , "Input filename", cl::NoFlags, "-");
+cl::StringList InputArgv("" , "Input command line", cl::ConsumeAfter);
cl::String MainFunction ("f" , "Function to execute", cl::NoFlags, "main");
cl::Flag DebugMode ("debug" , "Start program in debugger");
cl::Alias DebugModeA ("d" , "Alias for -debug", cl::NoFlags, DebugMode);
//
Interpreter::Interpreter() : ExitCode(0), Profile(ProfileMode), CurFrame(-1) {
CurMod = 0;
- loadModule(InputFilename);
+ loadModule(InputArgv.size() ? InputArgv[0] : "");
// Initialize the "backend"
initializeExecutionEngine();
// Start interpreter into the main function...
//
- if (!I.callMainMethod(MainFunction, InputFilename) && !DebugMode) {
+ if (!I.callMainMethod(MainFunction, InputArgv) && !DebugMode) {
// If not in debug mode and if the call succeeded, run the code now...
I.run();
}