From: David Given <dg@cowlark.com>
Date: Wed, 13 Mar 2019 19:34:29 +0000 (+0100)
Subject: In certain common operations, don't leave values in A because they just get
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=9c1bf3e53815a4175187d2de067c5925507fee92;p=ack.git

In certain common operations, don't leave values in A because they just get
coerced into a 16-bit register, which is wasteful.
---

diff --git a/mach/i80/ncg/table b/mach/i80/ncg/table
index 7f017d9aa..41f950d92 100644
--- a/mach/i80/ncg/table
+++ b/mach/i80/ncg/table
@@ -460,15 +460,22 @@ gen move lb,de
     dad de				yields hl
 
 pat loi $1==1
-with exact label
-  uses areg
-  gen lda %1				yields a
-with dereg
-  uses areg
-  gen ldax de				yields a
-with hlreg
-  uses reusing %1, reg
-  gen mov %a,{m}			yields %a
+   with exact label
+      uses areg
+      gen
+         lda %1
+      yields a
+   with dereg
+      uses areg
+      gen
+         ldax de
+      yields a
+   with hlreg
+      uses reusing %1, hl_or_de
+      gen
+         mov %a.2, {m}
+         move {const1, 0}, %a.1
+		yields %a
 
 pat loi $1==2
 with exact label
@@ -1307,7 +1314,9 @@ leaving loc $1 loc $2 cal ".cfu" asp 4+$1 lfr 4
 
 pat loc and ($1==0xff) && ($2==2)
    with hl_or_de
-      yields %1.2
+      gen
+         move {const1, 0}, %1.1
+      yields %1
 
 pat loc and ($1==0xffff) && ($2==2)
 
@@ -2288,9 +2297,16 @@ gen 1:
 pat lfr ret $1==$2				leaving ret 0
 
 pat ret $1==0
-with STACK
-uses hlreg
-gen jmp {label, ".ret"}
+   with STACK
+      uses hlreg
+      gen
+         jmp {label, ".ret"}
+
+pat ret $1==2
+   with dereg STACK
+      uses hlreg
+      gen
+         jmp {label, ".ret"}
 
 pat ret $1==2
 with dereg STACK