Minor adaptions in order to reduce the size

This commit is contained in:
ceriel
1987-09-23 16:39:43 +00:00
parent 1eda133f01
commit fd817d4dbc
34 changed files with 790 additions and 746 deletions

View File

@@ -32,9 +32,9 @@
long str2long();
struct token dot,
t_token dot,
aside;
struct type *toktype;
t_type *toktype;
int idfsize = IDFSIZE;
int ForeignFlag;
#ifdef DEBUG
@@ -236,7 +236,7 @@ LLlex()
/* LLlex() is the Lexical Analyzer.
The putting aside of tokens is taken into account.
*/
register struct token *tk = ˙
register t_token *tk = ˙
char buf[(IDFSIZE > NUMSIZE ? IDFSIZE : NUMSIZE) + 2];
register int ch, nch;
@@ -339,7 +339,7 @@ again:
case STIDF:
{
register char *tag = &buf[0];
register struct idf *id;
register t_idf *id;
do {
if (tag - buf < idfsize) *tag++ = ch;