-replace {
- ld (hl),(hl)
-} by {
- ERROR - peephole - caught (hl),(hl)
-}
-replace {
- ld %1,%1
-} by {
- ; Removed redundent load
-}
-replace restart {
- xor a,a
- or a,%1
- or a,a
- jp %2,%3
-} by {
- xor a,a
- or a,%1
- jp %2,%3
-}
-replace restart {
- cp a,#0x00
- jp nz,%1
-} by {
- or a,a
- jp nz,%1
-}
-replace restart {
- jp nz,%1
- jp %2
-%1:
- jp %3
-%2:
-} by {
- jp z,%2
-%1:
- jp %3
-%2:
-}
-replace restart {
- jp nz,%1
- jp %2
-%1:
-} by {
- jp z,%2
-%1:
-}
-replace restart {
- jp z,%1
- jp %2
-%1:
-} by {
- jp nz,%2
-%1:
-}
-replace restart {
- or a,%1
- or a,a
-} by {
- or a,%1
-}
-replace restart {
- or a,%1)
- or a,a
-} by {
- or a,%1)
-}
-replace restart {
- xor a,a
- or a,%1
- jp nz,%2
- xor a,a
- or a,%3
- jp z,%2
-} by {
- xor a,a
- or a,%1
- jp nz,%2
- or a,%3
- jp z,%2
-}
-replace restart {
- jp nz,%1
- inc %3)
-%1:
- jp %2
-} by {
- jp nz,%2
- inc %3)
-%1:
- jp %2
-}
-replace restart {
- xor a,a
- ld a,#0x00
-} by {
- xor a,a
-}
-replace restart {
- ld e,#0x00
- ld d,#0x00
-} by {
- ld de,#0x0000
-}
-replace restart {
- ld %1,a
- ld a,%1
-} by {
- ld %1,a
-}
+// peeph.def - Common Z80 and gbz80 peephole rules
+
+// This file should contain common Z80/GBZ80 peepholes.
+// However the GBZ80 port is currently unmaintained;
+// a GBZ80 expert could extract peepholes that are useful for both Z80 and GBZ80
+// from peeph-z80.def and peeph-gbz80.def and move them here.
+