From: ceriel <none@none>
Date: Wed, 1 Mar 1989 11:28:49 +0000 (+0000)
Subject: Added some patterns
X-Git-Tag: release-5-5~2544
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=da2ba8e09392a1783b75a7c5d172ef46e8e48371;p=ack.git

Added some patterns
---

diff --git a/mach/m68020/top/table b/mach/m68020/top/table
index ce84357bf..b0132cdec 100644
--- a/mach/m68020/top/table
+++ b/mach/m68020/top/table
@@ -132,6 +132,19 @@ blt L1 : bra L2: labdef L1		->	bge L2 : labdef L1 ;
 ble L1 : bra L2: labdef L1		->	bgt L2 : labdef L1 ;
 bne L1 : bra L2: labdef L1		->	beq L2 : labdef L1 ;
 
+move.l A, B : bra LAB : labdef L1 : move.l A, B : labdef LAB
+					->	labdef L1 : move.l A, B :
+						labdef LAB ;
+/* some strength reduction */
+mulu.l #NUM,DREG			->	muls.l #NUM,DREG ;
+muls.l #NUM,DREG
+	{is_shift_twice(NUM,X,Y)}	->	asl.l #X,DREG :
+						move.l DREG,-(sp) :
+						asl.l #Y,DREG :
+						add.l (sp)+,DREG ;
+asl.l #0,DREG				->	;
+asl.l #1,DREG				->	add.l DREG,DREG ;
+
 %%;
 
 /* auxiliary routines: */
@@ -151,6 +164,39 @@ int no_side_effects(s)
 }
 
 
+int is_shift_twice(s, c1, c2)
+	char *s, *c1, *c2;
+{
+	long atol();
+	register int i = 0;
+	long val = atol(s), pow = 1;
+
+	while (i <= 8) {
+		if (pow & val) {
+			val -= pow;
+			sprintf(c1, "%d", i);
+			break;
+		}
+		pow <<= 1;
+		i++;
+	}
+	if (pow > 0 && val) {
+		i = 0;
+		while (i <= 8) {
+			if (pow & val) {
+				val -= pow;
+				sprintf(c2, "%d", i);
+				if (val == 0) return 1;
+				break;
+			}
+			pow <<= 1;
+			i++;
+		}
+	}
+	return 0;
+}
+
+
 int is_dreg(s)
 	register char *s;
 {