Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-06-08 04:29:46 +00:00
Code Issues Projects Releases Wiki Activity

Add SetEOF

Browse Source
This commit is contained in:
Charles Lehner 2014-09-26 09:53:08 -04:00
parent 3bd859aaa3
commit 5ec06b0605
1 changed files with 10 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
libretro/glue.c
View File

@ -135,6 +135,16 @@ pascal OSErr GetEOF (short refNum, long *logEOF)
return err;
}
pascal OSErr SetEOF (short refNum, long logEOF)
{
OSErr err;
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
pb.ioParam.ioRefNum = refNum;
pb.ioParam.ioMisc = (Ptr)logEOF;
return PBGetEOFSync(&pb);
}
pascal OSErr GetFPos (short refNum, long *filePos)
{
OSErr err;