Macintosh-Tools/Retro68
1
0
Fork 0
mirror of https://github.com/autc04/Retro68.git synced 2024-12-28 14:31:50 +00:00
Code Issues Projects Releases Wiki Activity

LaunchAPPLServer: fix problem with empty forks

Browse Source
This commit is contained in:
Wolfgang Thaller 2019-01-09 00:18:44 +01:00
parent 3bb5ce4e74
commit 71660defd6
1 changed files with 18 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
LaunchAPPL/Server/LaunchAPPLServer.cc
View File

@ -331,8 +331,21 @@ public:
FSDelete("\pout", 0);
Create("\pout", 0, 'ttxt', 'TEXT');
if(dataSize)
{
state = State::data;
remainingSize = dataSize;
}
else if(rsrcSize)
{
FSClose(refNum);
OpenRF("\pRetro68App", 0, &refNum);
state = State::rsrc;
remainingSize = rsrcSize;
}
else
state = State::launch;
return 16;
}
@ -350,9 +363,13 @@ public:
FSClose(refNum);
OpenRF("\pRetro68App", 0, &refNum);
if(rsrcSize)
{
state = State::rsrc;
remainingSize = rsrcSize;
}
else
state = State::launch;
return count;
}