void Interpreter::visitVANextInst(VANextInst &I) {
ExecutionContext &SF = ECStack.back();
- // Get the incoming valist element. LLI treats the valist as an integer.
+ // Get the incoming valist parameter. LLI treats the valist as a pointer
+ // to the next argument.
GenericValue VAList = getOperandValue(I.getOperand(0), SF);
- // Move to the next operand.
- unsigned Argument = VAList.IntVal++;
- assert(Argument < SF.VarArgs.size() &&
- "Accessing past the last vararg argument!");
+ // Move the pointer to the next vararg.
+ GenericValue *ArgPtr = (GenericValue *) GVTOP (VAList);
+ ++ArgPtr;
+ VAList = PTOGV (ArgPtr);
SetValue(&I, VAList, SF);
}
void Interpreter::visitVAArgInst(VAArgInst &I) {
ExecutionContext &SF = ECStack.back();
- // Get the incoming valist element. LLI treats the valist as an integer.
+ // Get the incoming valist parameter. LLI treats the valist as a pointer
+ // to the next argument.
GenericValue VAList = getOperandValue(I.getOperand(0), SF);
- unsigned Argument = VAList.IntVal;
- assert(Argument < SF.VarArgs.size() &&
- "Accessing past the last vararg argument!");
- GenericValue Dest, Src = SF.VarArgs[Argument];
+ assert (GVTOP (VAList) != 0 && "VAList was null in vaarg instruction");
+ GenericValue Dest, Src = *(GenericValue *) GVTOP (VAList);
const Type *Ty = I.getType();
switch (Ty->getPrimitiveID()) {
IMPLEMENT_VAARG(UByte);
// <va_list> llvm.va_start() - Implement the va_start operation...
GenericValue llvm_va_start(FunctionType *F, const vector<GenericValue> &Args) {
assert(Args.size() == 0);
- GenericValue Val;
- Val.UIntVal = 0; // Start at the first '...' argument...
- return Val;
+ return TheInterpreter->getFirstVarArg();
}
// void llvm.va_end(<va_list> *) - Implement the va_end operation...