diff options
author | Chris Lattner <sabre@nondot.org> | 2002-11-06 22:59:28 +0000 |
---|---|---|
committer | Chris Lattner <sabre@nondot.org> | 2002-11-06 22:59:28 +0000 |
commit | 852902077055c08bc5f164f03b1797620ced310b (patch) | |
tree | ce24f95f9cb62cf3ee8f77916b0ca5e0a2d61e33 /llvm/lib/ExecutionEngine/Interpreter | |
parent | 642f44fe8e15f9057f43e93bf176221bbc8e3328 (diff) | |
download | bcm5719-llvm-852902077055c08bc5f164f03b1797620ced310b.tar.gz bcm5719-llvm-852902077055c08bc5f164f03b1797620ced310b.zip |
Implement fputc and ungetc to allow burg to run in lli
llvm-svn: 4584
Diffstat (limited to 'llvm/lib/ExecutionEngine/Interpreter')
-rw-r--r-- | llvm/lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/llvm/lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp b/llvm/lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp index bde32bd2691..c0230c32f79 100644 --- a/llvm/lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp +++ b/llvm/lib/ExecutionEngine/Interpreter/ExternalFunctions.cpp @@ -549,6 +549,22 @@ GenericValue lle_X_getc(FunctionType *M, const vector<GenericValue> &Args) { return GV; } +// int fputc(int C, FILE *stream); +GenericValue lle_X_fputc(FunctionType *M, const vector<GenericValue> &Args) { + assert(Args.size() == 2); + GenericValue GV; + GV.IntVal = fputc(Args[0].IntVal, getFILE(Args[1].PointerVal)); + return GV; +} + +// int ungetc(int C, FILE *stream); +GenericValue lle_X_ungetc(FunctionType *M, const vector<GenericValue> &Args) { + assert(Args.size() == 2); + GenericValue GV; + GV.IntVal = ungetc(Args[0].IntVal, getFILE(Args[1].PointerVal)); + return GV; +} + } // End extern "C" @@ -596,5 +612,8 @@ void Interpreter::initializeExternalMethods() { FuncNames["lle_X_fwrite"] = lle_X_fwrite; FuncNames["lle_X_fgets"] = lle_X_fgets; FuncNames["lle_X_fflush"] = lle_X_fflush; + FuncNames["lle_X_fgetc"] = lle_X_getc; FuncNames["lle_X_getc"] = lle_X_getc; + FuncNames["lle_X_fputc"] = lle_X_fputc; + FuncNames["lle_X_ungetc"] = lle_X_ungetc; } |