Macintosh-SW/mpw
1
0
Fork 0
mirror of https://github.com/ksherlock/mpw.git synced 2025-08-14 19:27:28 +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
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) uint16_t ResError(uint16_t trap)
{ {
uint32_t sp;
Log("%04x ResError()\n", trap); Log("%04x ResError()\n", trap);
return memoryReadWord(MacOS::ResErr); sp = cpuGetAReg(7);
ToolReturn<2>(sp, memoryReadWord(MacOS::ResErr));
return 0;
} }
// SetResLoad (load: BOOLEAN); // SetResLoad (load: BOOLEAN);