From bfdd10d84eb49ac301efc9110ee2ee646efbf141 Mon Sep 17 00:00:00 2001
From: michaelh <michaelh@4a8a32a2-be11-0410-ad9d-d568d2c75423>
Date: Sun, 20 Feb 2000 05:29:34 +0000
Subject: [PATCH] Added peephole.

git-svn-id: https://sdcc.svn.sourceforge.net/svnroot/sdcc/trunk/sdcc@114 4a8a32a2-be11-0410-ad9d-d568d2c75423
---
 src/z80/peeph-gbz80.def | 76 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 76 insertions(+)
 create mode 100644 src/z80/peeph-gbz80.def

diff --git a/src/z80/peeph-gbz80.def b/src/z80/peeph-gbz80.def
new file mode 100644
index 00000000..8f1977d5
--- /dev/null
+++ b/src/z80/peeph-gbz80.def
@@ -0,0 +1,76 @@
+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
+} by {
+	; Rule 3
+	or	a,a
+	jp	nz,%1
+}
+replace restart {
+	jp nz,%1
+	jp	%2
+%1:
+	jp	%3
+%2:
+} by {
+	; Rule 4
+	jp	z,%2
+%1:
+	jp	%3
+%2:
+}
+replace restart {
+	jp	nz,%1
+	jp	%2
+%1:
+} by {
+	; Rule 5
+	jp	z,%2
+%1:
+}
+replace restart {
+	jp	z,%1
+	jp	%2
+%1:
+} by {
+	; Rule 6
+	jp	nz,%2
+%1:
+}
+replace restart {
+%1:
+	jp	%2
+	jp	%3
+} by {
+	; Weird Rule 7
+%1:
+	jp	%2
+}
+replace restart {
+	ld	(hl),a
+	inc	hl
+} by {
+	ld	(hl+),a
+}
+replace restart {
+	ld	a,(hl)
+	inc	hl
+} by {
+	ld	a,(hl+)
+}
-- 
2.47.2