6502/llvm-6502
1
0
Fork 0
mirror of https://github.com/c64scene-ar/llvm-6502.git synced 2024-12-13 20:32:21 +00:00
Code Issues Projects Releases Wiki Activity

Implement fputc and ungetc to allow burg to run in lli

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

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

@ -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;
}