From: eck <none@none>
Date: Tue, 4 Sep 1990 17:19:04 +0000 (+0000)
Subject: changed stackheight computation to top element size computation
X-Git-Tag: release-5-5~1564
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=5c85d842282db76907fec9f35bf82563add20435;p=ack.git

changed stackheight computation to top element size computation
changed some parameters
---

diff --git a/util/ncgg/cgg.y b/util/ncgg/cgg.y
index 83a1b0a01..4381aa391 100644
--- a/util/ncgg/cgg.y
+++ b/util/ncgg/cgg.y
@@ -71,7 +71,7 @@ iocc_t iops[20];
 %token TESTS
 %token STACKINGRULES COERCIONS
 %token INSTRUCTIONS
-%token STACKHEIGHT FALLTHROUGH LABELDEF
+%token TOPELTSIZE FALLTHROUGH LABELDEF
 %token PROC CALL EXAMPLE
 %token FROM TO
 %token TEST MOVE STACK RETURN
@@ -846,7 +846,7 @@ gen_instruction
 	| TEST tokeninstance
 		{ $$ = gen_test($2);}
 	| LABELDEF emarg
-		{ $$ = gen_label($2-1); use_shc++; }
+		{ $$ = gen_label($2-1); use_tes++; }
 	| RETURN
 		{ $$ = gen_preturn(); }
 	;
@@ -1012,8 +1012,8 @@ expr
 		{ $$ = make_expr(TYPBOOL,EX_DEFINED,i_expr($3),0); }
 	| SAMESIGN '(' expr ',' expr ')'
 		{ $$ = make_expr(TYPBOOL,EX_SAMESIGN,i_expr($3),i_expr($5)); }
-	| STACKHEIGHT '(' emarg ')'
-		{ $$ = make_expr(TYPINT,EX_STACKHEIGHT,$3-1,0); }
+	| TOPELTSIZE '(' emarg ')'
+		{ $$ = make_expr(TYPINT,EX_TOPELTSIZE,$3-1,0); }
 	| FALLTHROUGH '(' emarg ')'
 		{ $$ = make_expr(TYPBOOL,EX_FALLTHROUGH,$3-1,0); }
 	| SFIT '(' expr ',' expr ')'
diff --git a/util/ncgg/extern.h b/util/ncgg/extern.h
index 28d426cef..4d170b5d8 100644
--- a/util/ncgg/extern.h
+++ b/util/ncgg/extern.h
@@ -36,7 +36,7 @@ extern int maxmembers;
 extern int regclass;
 extern int maxtokensize;
 extern int nprocargs, maxprocargs;
-extern int use_shc;
+extern int use_tes;
 
 extern char *mystrcpy();
 extern char *myalloc();
diff --git a/util/ncgg/keywords b/util/ncgg/keywords
index 828f4c547..a585a3fe3 100644
--- a/util/ncgg/keywords
+++ b/util/ncgg/keywords
@@ -43,7 +43,7 @@ reusing	REUSING
 rom	ROM
 samesign	SAMESIGN
 sfit	SFIT
-stackheight	STACKHEIGHT
+topeltsize	TOPELTSIZE
 test	TEST
 to	TO
 ufit	UFIT
diff --git a/util/ncgg/output.c b/util/ncgg/output.c
index 8d12196a4..f80f13835 100644
--- a/util/ncgg/output.c
+++ b/util/ncgg/output.c
@@ -11,7 +11,7 @@ int	code_in_c=1;	/* put code in "tables.c" */
 int	tabledebug=0;	/* do not generate code for table debugging */
 #endif
 int	verbose=0;	/* print all statistics */
-int	use_shc;	/* use stackheight information */
+int	use_tes;	/* use top element size information */
 char	*c_file=	"tables.c";
 char	*h_file=	"tables.H";
 char	*cd_file=	"code";
@@ -593,8 +593,8 @@ outdefs() {
 	}
 	if (tabledebug)
 		cdef("TABLEDEBUG",1);
-	if (use_shc)
-		cdef("USE_SHC",1);
+	if (use_tes)
+		cdef("USE_TES",1);
 }
 
 outars() {
diff --git a/util/ncgg/param.h b/util/ncgg/param.h
index 49994b8b8..77504786e 100644
--- a/util/ncgg/param.h
+++ b/util/ncgg/param.h
@@ -19,10 +19,10 @@
 #define MAXPROPS BORS(30,20)
 #define MAXTOKENS BORS(100,60)
 #define MAXATT 6
-#define MAXSETS BORS(150,100)
+#define MAXSETS BORS(200,100)
 #define MAXINSTR BORS(200,125)
 #define MAXSTRINGS BORS(300,200)
-#define MAXNODES BORS(500,350)
+#define MAXNODES BORS(600,350)
 #define EMPATMAX BORS(20,10)
 #define MAXPATTERNS BORS(40,30)
 #define MAXALLREG 5
@@ -35,7 +35,7 @@
 #define MAXSPLIT 3
 #define MAXPATBYTES BORS(14000,7000)
 #define MAXREGVAR 10
-#define MAXSOURCELINES 6000
+#define MAXSOURCELINES 7000
 #define MAXPROCARG 10
 
 /* end of tunable constants */