Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2025-01-13 16:33:02 +00:00
Code Issues Projects Releases Wiki Activity

glue code must be declared pascal

Browse Source
This commit is contained in:
Wolfgang Thaller 2014-09-25 01:44:21 +02:00
parent 07451171d1
commit 7c33a47916
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
libretro/glue.c
View File

@ -21,7 +21,7 @@
#include <Files.h>
#include <string.h>
Size GetPtrSize(Ptr ptr)
pascal Size GetPtrSize(Ptr ptr)
{
long tmp;
__asm__ __volatile__(
@ -35,7 +35,7 @@ Size GetPtrSize(Ptr ptr)
return 0;
}
OSErr SetVol (ConstStr63Param volName, short vRefNum)
pascal OSErr SetVol (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
@ -44,7 +44,7 @@ OSErr SetVol (ConstStr63Param volName, short vRefNum)
return PBSetVolSync(&pb);
}
OSErr UnmountVol (ConstStr63Param volName, short vRefNum)
pascal OSErr UnmountVol (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));
@ -53,7 +53,7 @@ OSErr UnmountVol (ConstStr63Param volName, short vRefNum)
return PBUnmountVolImmed(&pb);
}
OSErr Eject (ConstStr63Param volName, short vRefNum)
pascal OSErr Eject (ConstStr63Param volName, short vRefNum)
{
ParamBlockRec pb;
memset(&pb, 0, sizeof(pb));