* src/z80/gen.c (fetchLitPair): Changed so that it properly caches direct space...

[fw/sdcc] / src / z80 / peeph-gbz80.def

diff --git a/src/z80/peeph-gbz80.def b/src/z80/peeph-gbz80.def
index 8f1977d5e5db2fdb22164632b05fa26e2f6ec2c5..178a3fb4d7ea1fe35be240737a4e54789e0dcab3 100644 (file)
--- a/src/z80/peeph-gbz80.def
+++ b/src/z80/peeph-gbz80.def
@@ -1,76 +1,43 @@
 replace restart {
-       ld %1,%1
-} by {
-       ; Removed redundent load
-}
-replace restart {
-       xor a,a
-       or a,%1
-       or a,a
-       jp %2,%3
-} by {
-       ; Removed redundent or a,a
-       xor     a,a
-       or      a,%1
-       jp      %2,%3
-}
-replace restart {
-       cp a,#0x00
-       jp nz,%1
+       ld      (hl),a
+       inc     hl
 } by {
-       ; Rule 3
-       or      a,a
-       jp      nz,%1
+       ld      (hl+),a
 }
 replace restart {
-       jp nz,%1
-       jp      %2
-%1:
-       jp      %3
-%2:
+       ld      a,(hl)
+       inc     hl
 } by {
-       ; Rule 4
-       jp      z,%2
-%1:
-       jp      %3
-%2:
+       ld      a,(hl+)
 }
 replace restart {
-       jp      nz,%1
-       jp      %2
-%1:
+        ld      (hl),a
+        dec     hl
 } by {
-       ; Rule 5
-       jp      z,%2
-%1:
+        ld      (hl-),a
 }
 replace restart {
-       jp      z,%1
-       jp      %2
-%1:
+       ld      a,[hl]
+       inc     hl
 } by {
-       ; Rule 6
-       jp      nz,%2
-%1:
+       ld      a,[hl+]
 }
 replace restart {
-%1:
-       jp      %2
-       jp      %3
+       ld      a,[hl]
+       inc     hl
 } by {
-       ; Weird Rule 7
-%1:
-       jp      %2
+       ld      a,[hl+]
 }
 replace restart {
-       ld      (hl),a
+       ld      [hl],a
        inc     hl
 } by {
-       ld      (hl+),a
+       ld      [hl+],a
 }
 replace restart {
-       ld      a,(hl)
-       inc     hl
+       ld      [hl],a
+       dec     hl
 } by {
-       ld      a,(hl+)
+       ld      [hl-],a
 }
+