Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2025-01-15 08:29:50 +00:00
Code Issues Projects Releases Wiki Activity

ResError should return the error on the stack (Pascal / Pascal IIgs)

Browse Source
This commit is contained in:
Kelvin Sherlock 2013-07-13 01:05:02 -04:00
parent db89554b31
commit 9e2a8d3e53
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
toolbox/rm.cpp
View File

@ -317,9 +317,13 @@ namespace RM
uint16_t ResError(uint16_t trap)
{
uint32_t sp;
Log("%04x ResError()\n", trap);
return memoryReadWord(MacOS::ResErr);
sp = cpuGetAReg(7);
ToolReturn<2>(sp, memoryReadWord(MacOS::ResErr));
return 0;
}
// SetResLoad (load: BOOLEAN);