Deletion of a few coercions caused a translation failure

for setjmp.e.
The coercions have been grabbed from an old version by FvH.

diff --git a/mach/z80/cg/table b/mach/z80/cg/table
index 8ebc667..71e2655 100644 (file)
--- 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 */