From ef9274040035ed56b4a90596fb83e7acd85fa5d5 Mon Sep 17 00:00:00 2001
From: keie <none@none>
Date: Fri, 12 Apr 1985 16:43:40 +0000
Subject: [PATCH] Deletion of a few coercions caused a translation failure for
 setjmp.e. The coercions have been grabbed from an old version by FvH.

---
 mach/z80/cg/table | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/mach/z80/cg/table b/mach/z80/cg/table
index 8ebc66743..71e265549 100644
--- a/mach/z80/cg/table
+++ b/mach/z80/cg/table
@@ -699,6 +699,8 @@ zrl ($1 < 0-128 || $1 >= 127) | |
 				"inc hl"
 				"ld (hl),a"
 				erase(HL)				| | |
+zrf | |
+				"call .unimpld" | | |
 zre  |  |			remove(EXTENDED,%[off] == $1)
 				remove(ALL)
 				allocate(ANY_REG = {IMMEDIATE,0} )
@@ -1368,7 +1370,7 @@ sig		| HL_REG_SCR |
 sim	| HL_REG | 		remove(MEM_ALL)
 				 "pop hl"
 				 "ld (ignmask),hl"		| | |
-str $1 == 0 | IMMEDIATE STACK |	move({IMMEDIATE,%[1.off]} , LB) | | |
+str $1 == 0 | |			"pop iy" | | |
 str $1 == 1 | STACK |		 allocate(HL_REG)
 				"pop hl"
 				"ld sp,hl"			| | |
@@ -1400,6 +1402,9 @@ mon	| |			remove(MEM_ALL)
 				move(LB,%[a])
 				"add %[a],%[1]"
 							|	%[a]  | |
+| IMMEDIATE |			allocate(ANY_REG)
+				move(%[1],%[a])
+							| %[a] | |
 				
 
 /* between registers */
-- 
2.34.1