X-Git-Url: https://git.gag.com/?a=blobdiff_plain;f=src%2Fpic%2Fpeeph.def;h=8e6df14f6100431cd5e0c267ad197babd481eff0;hb=d9a3555b8dd102f049b6a3ce6b06150d6e4a3f79;hp=79bdb92be38d297755261d2f70ed443a9d60ade0;hpb=99009970ea0d5ea5afa70f768a63e81192268753;p=fw%2Fsdcc

diff --git a/src/pic/peeph.def b/src/pic/peeph.def
index 79bdb92b..8e6df14f 100644
--- a/src/pic/peeph.def
+++ b/src/pic/peeph.def
@@ -112,7 +112,7 @@ replace restart {
 	%4
 %3:	%5
 } by {
-	;peep 1 - test/jump to test/skip
+	;     peep 1 - test/jump to test/skip
         %1
 	_INVERTBITSKIP_	%2
 	%4
@@ -126,7 +126,7 @@ replace restart {
 %4:	%5
 %3:	%6
 } by {
-	;peep 1b - test/jump to test/skip
+	;     peep 1b - test/jump to test/skip
         %1
 	_INVERTBITSKIP_	%2
 %4:	%5
@@ -156,7 +156,7 @@ replace restart {
 	movwf	%1
 	movf	%1,w
 } by {
-	; peep 2 - Removed redundant move
+	;     peep 2 - Removed redundant move
 	movwf	%1
 } if NZ
 
@@ -164,10 +164,10 @@ replace restart {
 replace restart {
 	decf	%1,f
 	movf	%1,w
-	btfss	_STATUS,z
+	btfss	STATUS,z
 	goto	%2
 } by {
-	; peep 3 - decf/mov/skpz to decfsz
+	;     peep 3 - decf/mov/skpz to decfsz
 	decfsz	%1,f
 	 goto	%2
 }
@@ -177,7 +177,7 @@ replace restart {
 	movf	%1,w
 	movf	%1,w
 } by {
-	; peep 4 - Removed redundant move
+	;     peep 4 - Removed redundant move
 	movf	%1,w
 }
 
@@ -187,7 +187,7 @@ replace restart {
 	movwf	%2
 	movlw	%1
 } by {
-	; peep 5 - Removed redundant move
+	;     peep 5 - Removed redundant move
 	movlw	%1
 	movwf	%2
 }
@@ -196,7 +196,7 @@ replace restart {
 	movwf	%1
 	movwf	%1
 } by {
-	; peep 6 - Removed redundant move
+	;     peep 6 - Removed redundant move
 	movwf	%1
 }
 
@@ -204,7 +204,7 @@ replace restart {
 	movlw	0
 	iorwf	%1,w
 } by {
-	; peep 7 - Removed redundant move
+	;     peep 7 - Removed redundant move
 	movf	%1,w
 }
 
@@ -213,7 +213,7 @@ replace restart {
 	movwf	%2
 	decf	%2,f
 } by {
-	; peep 8 - Removed redundant move
+	;     peep 8 - Removed redundant move
 	decf	%1,w
 	movwf	%2
 }
@@ -223,7 +223,7 @@ replace restart {
 	movf	%2,w
 	xorwf	%1,w
 } by {
-	; peep 9a - Removed redundant move
+	;     peep 9a - Removed redundant move
 	movwf	%1
 	xorwf	%2,w
 }
@@ -233,7 +233,7 @@ replace restart {
 	movf	%2,w
 	iorwf	%1,w
 } by {
-	; peep 9b - Removed redundant move
+	;     peep 9b - Removed redundant move
 	movwf	%1
 	iorwf	%2,w
 }
@@ -243,7 +243,7 @@ replace restart {
 	movwf	%2
 	movf	%2,w
 } by {
-	; peep 9c - Removed redundant move
+	;     peep 9c - Removed redundant move
 	movf	%1,w
 	movwf	%2
 }
@@ -253,17 +253,79 @@ replace restart {
 	movf	%1,w
 	movwf	%2
 } by {
-	; peep 9d - Removed redundant move
+	;     peep 9d - Removed redundant move
 	movwf	%1
 	movwf	%2
 } if NZ
 
+// From: Frieder Ferlemann
+
 replace restart {
-	movwf	%1
-	iorlw	0
+        iorlw   0
+} by {
+        ;     peep 10a - Removed unnecessary iorlw
+} if NZ
+
+// From: Frieder Ferlemann
+
+replace restart {
+        xorlw   0
+} by {
+        ;     peep 10b - Removed unnecessary xorlw
+} if NZ
+
+// From: Frieder Ferlemann
+
+replace restart {
+        movf    %1,w
+        movwf   %1
+} by {
+        ;     peep 11 - Removed redundant move
+        movf    %1,w
+}
+
+replace restart {
+        comf    %1,w
+        movwf   %1
+} by {
+        ;     peep 12 - Removed redundant move
+        comf    %1,f
+}
+
+replace restart {
+	clrf	%1
+	rlf	%1,f
+	movlw	0x01
+	xorwf	%1,f
 	movf	%1,w
+	btfss	STATUS,2
+	goto	%2
+
 } by {
-	; peep 10 - Removed unnecessary iorlw
-	movwf	%1
-	movf	%1
+        ;     peep 13 - Optimized carry sequence
+	clrf	%1
+	incf	%1,F
+	btfss	status,C
+	goto	%2
+	clrf	%1
+	
+}
+
+replace restart {
+	clrf	%1
+	rlf	%1,f
+	movlw	0x01
+	xorwf	%1,f
+	movf	%1,w
+	btfsc	STATUS,2
+	goto	%2
+
+} by {
+        ;     peep 13a - Optimized carry sequence
+	clrf	%1
+	incf	%1,F
+	btfsc	status,C
+	goto	%2
+	clrf	%1
+	
 }