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

2026-04-26 20:17:49 +00:00 · 2013-07-13 01:05:02 -04:00
parent db89554b31
commit 9e2a8d3e53
1 changed files with 5 additions and 1 deletions
@@ -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);