6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-10-21 16:24:47 +00:00
Code Issues Projects Releases Wiki Activity

Implement fprintf

Browse Source 
git-svn-id: https://llvm.org/svn/llvm-project/llvm/trunk@4585 91177308-0d34-0410-b5e6-96231b3b80d8
This commit is contained in:
Chris Lattner 2002-11-06 23:05:03 +00:00
parent a5c0bfe09a
commit cf9b4f0f41
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -565,6 +565,21 @@ GenericValue lle_X_ungetc(FunctionType *M, const vector<GenericValue> &Args) {
return GV;
}
// int fprintf(FILE *,sbyte *, ...) - a very rough implementation to make output
// useful.
GenericValue lle_X_fprintf(FunctionType *M, const vector<GenericValue> &Args) {
assert(Args.size() > 2);
char Buffer[10000];
vector<GenericValue> NewArgs;
GenericValue GV; GV.PointerVal = (PointerTy)Buffer;
NewArgs.push_back(GV);
NewArgs.insert(NewArgs.end(), Args.begin()+1, Args.end());
GV = lle_X_sprintf(M, NewArgs);
fputs(Buffer, getFILE(Args[0].PointerVal));
return GV;
}
} // End extern "C"
@ -616,4 +631,5 @@ void Interpreter::initializeExternalMethods() {
FuncNames["lle_X_getc"] = lle_X_getc;
FuncNames["lle_X_fputc"] = lle_X_fputc;
FuncNames["lle_X_ungetc"] = lle_X_ungetc;
FuncNames["lle_X_fprintf"] = lle_X_fprintf;
}