From: ceriel <none@none>
Date: Wed, 15 Nov 1989 16:10:18 +0000 (+0000)
Subject: link instruction does not work for more than 32768 bytes locals on M68000
X-Git-Tag: release-5-5~2079
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=edf2f575a2820512220e07fd3b4b387481419b01;p=ack.git

link instruction does not work for more than 32768 bytes locals on M68000
---

diff --git a/mach/m68020/ncg/mach.c b/mach/m68020/ncg/mach.c
index f2e527453..2693b1eac 100644
--- a/mach/m68020/ncg/mach.c
+++ b/mach/m68020/ncg/mach.c
@@ -125,7 +125,10 @@ f_regsave()
 #ifdef TBL68020
 	fprintf(codefile,"link\ta6,#-%ld\n",nlocals);
 #else
-	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+	if (nlocals > 32768) {
+		fprintf(codefile, "move.l a6,-(sp)\nmove.l sp,a6\nsub #%ld,sp\ntst.b -40(sp)\n", nlocals);
+	}
+	else	fprintf(codefile,"link\ta6,#-%ld\ntst.b -40(sp)\n",nlocals);
 #endif
 	if (regnr > 1) {
 		fputs("movem.l ", codefile);
diff --git a/mach/m68k2/ncg/mach.c b/mach/m68k2/ncg/mach.c
index f2e527453..2693b1eac 100644
--- a/mach/m68k2/ncg/mach.c
+++ b/mach/m68k2/ncg/mach.c
@@ -125,7 +125,10 @@ f_regsave()
 #ifdef TBL68020
 	fprintf(codefile,"link\ta6,#-%ld\n",nlocals);
 #else
-	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+	if (nlocals > 32768) {
+		fprintf(codefile, "move.l a6,-(sp)\nmove.l sp,a6\nsub #%ld,sp\ntst.b -40(sp)\n", nlocals);
+	}
+	else	fprintf(codefile,"link\ta6,#-%ld\ntst.b -40(sp)\n",nlocals);
 #endif
 	if (regnr > 1) {
 		fputs("movem.l ", codefile);
diff --git a/mach/m68k4/ncg/mach.c b/mach/m68k4/ncg/mach.c
index f2e527453..2693b1eac 100644
--- a/mach/m68k4/ncg/mach.c
+++ b/mach/m68k4/ncg/mach.c
@@ -125,7 +125,10 @@ f_regsave()
 #ifdef TBL68020
 	fprintf(codefile,"link\ta6,#-%ld\n",nlocals);
 #else
-	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+	if (nlocals > 32768) {
+		fprintf(codefile, "move.l a6,-(sp)\nmove.l sp,a6\nsub #%ld,sp\ntst.b -40(sp)\n", nlocals);
+	}
+	else	fprintf(codefile,"link\ta6,#-%ld\ntst.b -40(sp)\n",nlocals);
 #endif
 	if (regnr > 1) {
 		fputs("movem.l ", codefile);
diff --git a/mach/moon3/ncg/mach.c b/mach/moon3/ncg/mach.c
index f2e527453..2693b1eac 100644
--- a/mach/moon3/ncg/mach.c
+++ b/mach/moon3/ncg/mach.c
@@ -125,7 +125,10 @@ f_regsave()
 #ifdef TBL68020
 	fprintf(codefile,"link\ta6,#-%ld\n",nlocals);
 #else
-	fprintf(codefile,"tst.b -%ld(sp)\nlink\ta6,#-%ld\n",nlocals+40,nlocals);
+	if (nlocals > 32768) {
+		fprintf(codefile, "move.l a6,-(sp)\nmove.l sp,a6\nsub #%ld,sp\ntst.b -40(sp)\n", nlocals);
+	}
+	else	fprintf(codefile,"link\ta6,#-%ld\ntst.b -40(sp)\n",nlocals);
 #endif
 	if (regnr > 1) {
 		fputs("movem.l ", codefile);