extern int curr_token;
/* forward function declarations */
+/* comm5.c */
+int yylex(void);
+void putval(int);
+int getval(int);
+int nextchar(void);
#ifdef ASLD
-extern char *readident();
+char *readident(int);
#endif
-extern char *remember();
-extern item_t *fb_shift();
-extern item_t *fb_alloc();
-extern item_t *item_alloc();
-extern item_t *item_search();
-extern valu_t load();
-extern FILE *ffcreat();
-extern FILE *fftemp();
-
-extern void fatal(const char* s, ...);
-extern void serror(const char* s, ...);
-extern void warning(const char* s, ...);
+int hash(char *);
+item_t *item_search(char *);
+void item_insert(item_t *, int);
+item_t *item_alloc(int);
+item_t *fb_alloc(int);
+item_t *fb_shift(int);
+/* comm7.c */
+valu_t load();
+char *remember();
+FILE *ffcreat();
+FILE *fftemp();
+void fatal(const char *, ...);
+void serror(const char *, ...);
+void warning(const char *, ...);
/* ========== Machine dependent C declarations ========== */
extern YYSTYPE yylval;
-void putval();
-
-yylex()
+static void readcode(int);
+static int induo(int);
+static int inident(int);
+static int innumber(int);
+static int instring(int);
+static int inescape(void);
+static int infbsym(char *);
+
+int
+yylex(void)
{
register c;
}
void
-putval(c)
+putval(int c)
{
register valu_t v;
register n = 0;
putc(*p++, tempfile);
}
-getval(c)
+int
+getval(int c)
{
register n = 0;
register valu_t v;
/* ---------- lexical scan in pass 1 ---------- */
-nextchar()
+int
+nextchar(void)
{
register c;
return(c);
}
-readcode(n)
+static void
+readcode(int n)
{
register c;
} while (--n);
}
-induo(c)
-register c;
+static int
+induo(int c)
{
static short duo[] = {
('='<<8) | '=', OP_EQ,
static char name[NAMEMAX+1];
-inident(c)
-register c;
+static int
+inident(int c)
{
register char *p = name;
register item_t *ip;
#ifdef ASLD
char *
-readident(c)
-register c;
+readident(int c)
{
register n = NAMEMAX;
register char *p = name;
}
#endif
-innumber(c)
-register c;
+static int
+innumber(int c)
{
register char *p;
register radix;
return(NUMBER);
}
-instring(termc)
+static int
+instring(int termc)
{
register char *p;
register c;
return(STRING);
}
-inescape()
+static int
+inescape(void)
{
register c, j, r;
return(c);
}
-infbsym(p)
-register char *p;
+static int
+infbsym(char *p)
{
register lab;
register item_t *ip;
return(FBSYM);
}
-hash(p)
-register char *p;
+int
+hash(char *p)
{
register unsigned short h;
register c;
}
item_t *
-item_search(p)
-char *p;
+item_search(char *p)
{
register h;
register item_t *ip;
return(ip);
}
-item_insert(ip, h)
-item_t *ip;
+void
+item_insert(item_t *ip, int h)
{
ip->i_next = hashtab[h];
hashtab[h] = ip;
}
item_t *
-item_alloc(typ)
+item_alloc(int typ)
{
register item_t *ip;
static nleft = 0;
}
item_t *
-fb_alloc(lab)
-register lab;
+fb_alloc(int lab)
{
register item_t *ip, *p;
}
item_t *
-fb_shift(lab)
-register lab;
+fb_shift(int lab)
{
register item_t *ip;