Browse Source

Deletion of a few coercions caused a translation failure
for setjmp.e.
The coercions have been grabbed from an old version by FvH.

keie 39 years ago
parent
commit
ef92740400
1 changed files with 6 additions and 1 deletions
  1. 6 1
      mach/z80/cg/table

+ 6 - 1
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 */