Deletion of a few coercions caused a translation failure

for setjmp.e.
The coercions have been grabbed from an old version by FvH.
This commit is contained in:
keie 1985-04-12 16:43:40 +00:00
parent ee9c5be180
commit ef92740400

View file

@ -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 */