Use a helper function for cai --- only saves two bytes per invocation, but is

much less embarassing.
2019-02-06 20:36:23 +01:00 · 2019-02-06 20:36:23 +01:00 · 08b92153a0
parent 2b0629f87f
commit 08b92153a0
2 changed files with 11 additions and 5 deletions
--- a/mach/i80/libem/pchl.s
+++ b/mach/i80/libem/pchl.s
@ -0,0 +1,10 @@
+.sect .text
+.sect .rom
+.sect .data
+.sect .bss
+.sect .text
+
+.define .pchl
+.pchl:
+	pchl
+
--- a/mach/i80/ncg/table
+++ b/mach/i80/ncg/table
@ -1819,11 +1819,7 @@ gen Call {label,$1}
 pat cai
 with hlreg
 kills ALL
-uses dereg
-gen lxi de,{label,1f}
-    push de
-    pchl.
-    1:
+gen Call {label, ".pchl"}

 pat lfr $1==2				yields de