Added Borland Makefile

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

diff --git a/src/z80/peeph.def b/src/z80/peeph.def
index 6b144b3335974cc161c48e045ec79b8a987a258c..7c48663c27ce2a4ecab24826f32d1e33a166d7ea 100644 (file)
--- a/src/z80/peeph.def
+++ b/src/z80/peeph.def
@@ -1,4 +1,4 @@
-replace restart {
+replace {
        ld (hl),(hl)
 } by {
        ERROR - peephole - caught (hl),(hl)
@@ -96,15 +96,117 @@ replace restart {
 } by {
         xor     a,a
 }
-replace restart {
+replace {
         ld      e,#0x00
         ld      d,#0x00
 } by {
         ld      de,#0x0000
 }
+replace {
+       ld      l,#0x00
+       ld      h,#0x00
+} by {
+        ld      hl,#0x0000
+}
 replace restart {
        ld      %1,a
        ld      a,%1
 } by {
         ld     %1,a
 }
+replace restart {
+       jp      %1,%2
+       jr      %3
+%2:
+       jp      %4
+} by {
+       jp      %1,%4
+       jr      %3
+%2:
+       jp      %4
+}
+replace {
+       ld      l,e
+       ld      h,d
+       push    hl
+       ld      l,c
+       ld      h,b
+       push    hl
+} by {
+        push   de
+        push    bc
+}
+replace {
+       and     a,#%1
+       or      a,a
+} by {
+        and     a,#%1
+}
+replace {
+       ld      b,l
+       ld      a,b
+       pop     bc
+       ld      b,a
+} by {
+       ld      a,l
+       pop     bc
+       ld      b,a
+}
+replace {
+       ld      d,l
+       ld      a,d
+       pop     de
+       ld      d,a
+} by {
+       ld      a,l
+       pop     de
+       ld      d,a
+}
+replace {
+       ld      a,b
+       push    af
+       inc     sp
+} by {
+        push    bc
+        inc     sp
+}
+replace {
+       ld      a,d
+       push    af
+       inc     sp
+} by {
+        push    de
+        inc     sp
+}
+replace {
+       ld      a,%1
+       sub     a,#%2
+       jp      m,%3
+       ld      a,%1
+       sub     a,#%4
+       jp      p,%5
+} by {
+       ld      a,%1
+       cp      a,#%2
+       jp      m,%3
+       cp      a,#%4
+       jp      p,%5
+}
+replace {
+       ld      e,l
+       ld      d,h
+       ld      l,e
+       ld      h,d
+} by {
+       ld      e,l
+       ld      d,h
+}
+replace {
+       ld      %1,%2
+       ld      %3,%4
+       ld      %2,%1
+       ld      %4,%3
+} by {
+       ld      %1,%2
+       ld      %3,%4
+}