6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-28 19:31:58 +00:00
Code Issues Projects Releases Wiki Activity

Interpret the new varargs intrinsics correctly

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@9222 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Chris Lattner 2003-10-18 05:55:25 +00:00
parent eff112c6c3
commit 4c6654963d
3 changed files with 13 additions and 28 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lib/ExecutionEngine/Interpreter/Execution.cpp
View File

@ -845,27 +845,17 @@ void Interpreter::visitCastInst(CastInst &I) {
SetValue(&I, executeCastOperation(I.getOperand(0), I.getType(), SF), SF);
}
void Interpreter::visitVarArgInst(VarArgInst &I) {
void Interpreter::visitVANextInst(VANextInst &I) {
ExecutionContext &SF = ECStack.back();
// Get the pointer to the valist element. LLI treats the valist in memory as
// an integer.
GenericValue VAListPtr = getOperandValue(I.getOperand(0), SF);
// Load the pointer
GenericValue VAList =
TheEE->LoadValueFromMemory((GenericValue *)GVTOP(VAListPtr), Type::UIntTy);
// Get the incoming valist element. LLI treats the valist as an integer.
GenericValue VAList = getOperandValue(I.getOperand(0), SF);
// Move to the next operand.
unsigned Argument = VAList.IntVal++;
// Update the valist to point to the next argument...
TheEE->StoreValueToMemory(VAList, (GenericValue *)GVTOP(VAListPtr),
Type::UIntTy);
// Set the value...
assert(Argument < SF.VarArgs.size() &&
"Accessing past the last vararg argument!");
SetValue(&I, SF.VarArgs[Argument], SF);
SetValue(&I, VAList, SF);
}
//===----------------------------------------------------------------------===//

17
lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp
View File

@ -687,14 +687,12 @@ GenericValue lle_X_fprintf(FunctionType *M, const vector<GenericValue> &Args) {
// LLVM Intrinsic Functions...
//===----------------------------------------------------------------------===//
// void llvm.va_start(<va_list> *) - Implement the va_start operation...
// <va_list> llvm.va_start() - Implement the va_start operation...
GenericValue llvm_va_start(FunctionType *F, const vector<GenericValue> &Args) {
assert(Args.size() == 1);
GenericValue *VAListP = (GenericValue *)GVTOP(Args[0]);
assert(Args.size() == 0);
GenericValue Val;
Val.UIntVal = 0; // Start at the first '...' argument...
TheInterpreter->StoreValueToMemory(Val, VAListP, Type::UIntTy);
return GenericValue();
return Val;
}
// void llvm.va_end(<va_list> *) - Implement the va_end operation...
@ -703,13 +701,10 @@ GenericValue llvm_va_end(FunctionType *F, const vector<GenericValue> &Args) {
return GenericValue(); // Noop!
}
// void llvm.va_copy(<va_list> *, <va_list>) - Implement the va_copy
// operation...
// <va_list> llvm.va_copy(<va_list>) - Implement the va_copy operation...
GenericValue llvm_va_copy(FunctionType *F, const vector<GenericValue> &Args) {
assert(Args.size() == 2);
GenericValue *DestVAList = (GenericValue*)GVTOP(Args[0]);
TheInterpreter->StoreValueToMemory(Args[1], DestVAList, Type::UIntTy);
return GenericValue();
assert(Args.size() == 1);
return Args[0];
}
} // End extern "C"

2
lib/ExecutionEngine/Interpreter/Interpreter.h
View File

@ -131,7 +131,7 @@ public:
void visitCallInst(CallInst &I);
void visitShl(ShiftInst &I);
void visitShr(ShiftInst &I);
void visitVarArgInst(VarArgInst &I);
void visitVANextInst(VANextInst &I);
void visitInstruction(Instruction &I) {
std::cerr << I;
assert(0 && "Instruction not interpretable yet!");