From 023073b422e27baabf52c20a2bc045aaf15fec43 Mon Sep 17 00:00:00 2001
From: ceriel <none@none>
Date: Fri, 25 Jul 1986 15:57:03 +0000
Subject: [PATCH] Bug fix: the BLS instruction did'nt work with block moves of
 one word.

---
 mach/m68k2/cg/table | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/mach/m68k2/cg/table b/mach/m68k2/cg/table
index 171369803..62f8dcb3e 100644
--- a/mach/m68k2/cg/table
+++ b/mach/m68k2/cg/table
@@ -2725,9 +2725,9 @@ blm $1 > 12 |	ADDSCR ADDSCR |	remove(MEM_ALL)
 /* Wait for restriction nregneeded<2 to be removed
 bls $1 == 2 |	DATASCR ADDSCR ADDSCR |
 				remove(MEM_ALL)
-				"sub.w #1,%[1]"
 				"asr #1,%[1]"
-				"beq 2f"
+				"sub.w #1,%[1]"
+				"blt 2f"
 				"1:"
 				"move.w (%[3])+,(%[2])+"
 				"dbf %[1],1b"
@@ -2741,9 +2741,9 @@ bls $1 == 2 | STACK |
 				"move.w (sp)+,%[c]"
 				"move.l (sp)+,%[b]"
 				"move.l (sp)+,%[a]"
-				"sub.w #1,%[c]"
 				"asr #1,%[c]"
-				"beq 2f"
+				"sub.w #1,%[c]"
+				"blt 2f"
 				"1:"
 				"move.w (%[a])+,(%[b])+"
 				"dbf %[c],1b"
-- 
2.34.1