From: ceriel <none@none>
Date: Mon, 14 Mar 1988 13:42:20 +0000 (+0000)
Subject: CMI was translated wrongly; corrected
X-Git-Tag: release-5-5~3572
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=23be652f111b154ecf2066ea812f3fa75ea59974;p=ack.git

CMI was translated wrongly; corrected
---

diff --git a/mach/m68k2/cg/table b/mach/m68k2/cg/table
index fdb2735c4..24623e263 100644
--- a/mach/m68k2/cg/table
+++ b/mach/m68k2/cg/table
@@ -1773,9 +1773,15 @@ aar !defined($1) | |
 
 /* G R O U P XII :  C O M P A R E */
 
-cmi $1 == 2 |	ANY DATASCR |	"sub.w %[1],%[2]"
-				erase(%[2])
-				setcc(%[2])	| %[2] | |
+cmi $1 == 2 |	ANY DATAREG |	allocate(DATAREG={immediate, 0})
+				"cmp.w %[1],%[2]"
+				"beq 2f"
+				"bgt 1f"
+				"add.w #1,%[a]"
+				"bra 2f"
+				"1:sub.w #1,%[a]\n2:"
+				erase(%[a])
+				setcc(%[a])	| %[a] | |
 cmi $1 == 4 |	|		remove(ALL)
 				"jsr .cmi"
 						| D1 | |