Merge.

lang/basic/src/eval.c

@@ -31,6 +31,7 @@ int	ltype,rtype;
 
 
 
+void
 conversion(oldtype,newtype)
 int oldtype,newtype;
 {
@@ -71,6 +72,7 @@ int oldtype,newtype;
 
 
 
+void
 extraconvert(oldtype,newtype,topstack)
 int oldtype,newtype,topstack;
 {
@@ -509,6 +511,7 @@ endarrayload()
 
 
 
+void
 loadarray(type)
 int	type;
 {

lang/basic/src/symbols.c

@@ -68,6 +68,7 @@ char *str;
 
 
 
+void
 dcltype(s)
 Symbol *s;
 {

lang/basic/src/util.c

@@ -16,6 +16,7 @@ int	errorcnt;
 
 
 
+void
 warning(str)
 char *str;
 {

lang/cem/cemcom.ansi/LLlex.c

@@ -52,6 +52,8 @@ extern int lint_skip_comment;
 static struct token LexStack[MAX_LL_DEPTH];
 static LexSP = 0;
 
+void skipcomment();
+
 /*	In PushLex() the actions are taken in order to initialise or
 	re-initialise the lexical scanner.
 	E.g. at the invocation of a sub-parser that uses LLlex(), the
@@ -442,6 +444,7 @@ garbage:
 }
 
 #ifndef	NOPP
+void
 skipcomment()
 {
 	/*	The last character read has been the '*' of '/_*'.  The

lang/cem/cemcom.ansi/arith.c

@@ -30,6 +30,7 @@ extern char options[];
 extern arith flt_flt2arith();
 extern label code_string();
 
+void
 arithbalance(e1p, oper, e2p)	/* 3.1.2.5 */
 	register struct expr **e1p, **e2p;
 	int oper;
@@ -523,6 +524,7 @@ opnd2logical(expp, oper)
 	}
 }
 
+void
 opnd2test(expp, oper)
 	register struct expr **expp;
 {
@@ -548,6 +550,7 @@ opnd2test(expp, oper)
 	ch3bin(expp, NOTEQUAL, intexpr((arith)0, INT));
 }
 
+void
 any2opnd(expp, oper)
 	register struct expr **expp;
 {

lang/cem/cemcom.ansi/ch3.c

@@ -23,11 +23,14 @@ extern char options[];
 extern char *symbol2str();
 extern struct type *qualifier_type();
 
+void ch3cast();
+
 /*	Most expression-handling routines have a pointer to a
 	(struct type *) as first parameter. The object under the pointer
 	gets updated in the process.
 */
 
+void
 ch3sel(expp, oper, idf)
 	struct expr **expp;
 	struct idf *idf;
@@ -169,6 +172,7 @@ ch3incr(expp, oper)
 	ch3asgn(expp, oper, intexpr((arith)1, INT));
 }
 
+void
 ch3cast(expp, oper, tp)
 	register struct expr **expp;
 	register struct type *tp;

lang/cem/cemcom.ansi/ch3bin.c

@@ -19,6 +19,8 @@
 extern char options[];
 extern char *symbol2str();
 
+void pntminuspnt();
+
 /*	This chapter asks for the repeated application of code to handle
 	an operation that may be executed at compile time or at run time,
 	depending on the constancy of the operands.
@@ -32,6 +34,7 @@ extern char *symbol2str();
 #define commutative_binop(expp, oper, expr)	mk_binop(expp, oper, expr, 1)
 #define non_commutative_relop(expp, oper, expr)	mk_binop(expp, oper, expr, 1)
 
+void
 ch3bin(expp, oper, expr)
 	register struct expr **expp;
 	struct expr *expr;
@@ -292,6 +295,7 @@ ch3bin(expp, oper, expr)
 	}
 }
 
+void
 pntminuspnt(expp, oper, expr)
 	register struct expr **expp, *expr;
 {

lang/cem/cemcom.ansi/code.c

@@ -64,6 +64,8 @@ extern char options[];
 extern char *symbol2str();
 extern char *source;
 
+void loc_init();
+
 #ifndef	LINT
 init_code(dst_file)
 	char *dst_file;
@@ -415,6 +417,7 @@ do_return_expr(expr)
 	return_expr_occurred = 1;
 }
 
+void
 code_declaration(idf, expr, lvl, sc)
 	register struct idf *idf;	/* idf to be declared	*/
 	struct expr *expr;	/* initialisation; NULL if absent	*/
@@ -527,6 +530,7 @@ code_declaration(idf, expr, lvl, sc)
 	}
 }
 
+void
 loc_init(expr, id)
 	struct expr *expr;
 	struct idf *id;
@@ -721,6 +725,7 @@ code_break()
 	it generates a branch instruction to the continue label of the
 	innermost statement in which continue has a meaning.
 */
+void
 code_continue()
 {
 	register struct stmt_block *stmt_block = stmt_stack;

lang/cem/cemcom.ansi/domacro.c

@@ -34,6 +34,9 @@ char ifstack[IFDEPTH];	/* if-stack: the content of an entry is	*/
 
 int	nestlevel = -1;
 
+void macro_def();
+void do_define();
+
 struct idf *
 GetIdentifier(skiponerr)
 	int skiponerr;		/* skip the rest of the line on error */
@@ -145,6 +148,7 @@ domacro()
 int lint_skip_comment;
 #endif
 
+void
 skip_block(to_endif)
 int to_endif;
 {
@@ -347,6 +351,7 @@ do_include()
 	}
 }
 
+void
 do_define()
 {
 	/*	do_define() interprets a #define control line.
@@ -574,6 +579,7 @@ getparams(buf, parbuf)
 	/*NOTREACHED*/
 }
 
+void
 macro_def(id, text, nformals, length, flags)
 	register struct idf *id;
 	char *text;

lang/cem/cemcom.ansi/error.c

@@ -57,7 +57,7 @@ extern char loptions[];
 	expression, whereas other errors use the information in the token.
 */
 
-static _error();
+static void _error();
 
 #if __STDC__
 /*VARARGS*/
@@ -521,7 +521,7 @@ fatal(va_alist)				/* fmt, args */
 }
 #endif
 
-static
+static void
 _error(class, fn, ln, fmt, ap)
 	int class;
 	char *fn;

lang/cem/cemcom.ansi/eval.c

@@ -37,6 +37,9 @@ arith NewLocal();	/* util.c */
 #define LocalPtrVar()	NewLocal(pointer_size, pointer_align, reg_pointer, REGISTER)
 extern int	err_occurred; /* error.c */
 
+void store_val();
+void load_val();
+
 /*	EVAL() is the main expression-tree evaluator, which turns
 	any legal expression tree into EM code. parameters.h:
 
@@ -63,6 +66,7 @@ extern int	err_occurred; /* error.c */
 		labels, in case they are specified (i.e. are non-zero)
 */
 
+void
 EVAL(expr, val, code, true_label, false_label)
 	register struct expr *expr;
 	int val, code;
@@ -836,6 +840,7 @@ ptr_add(size)
 	- into a local static variable
 	- absolute addressing
 */
+void
 store_val(vl, tp)
 	register struct value *vl;
 	register struct type *tp;
@@ -907,6 +912,7 @@ store_val(vl, tp)
 	- static variable
 	- local variable
 */
+void
 load_val(expr, rlval)
 	register struct expr *expr; /* expression containing the value	*/
 	int rlval;		/* generate either LVAL or RVAL		*/

lang/cem/cemcom.ansi/expr.c

@@ -369,6 +369,7 @@ new_oper(tp, e1, oper, e2)
 	return expr;
 }
 
+void
 chk_cst_expr(expp)
 	struct expr **expp;
 {

lang/cem/cemcom.ansi/idf.c

@@ -37,6 +37,8 @@ extern char *symbol2str();
 
 #include <idf_pkg.body>
 
+void global_redecl();
+
 struct idf *
 gen_idf()
 {
@@ -248,6 +250,7 @@ declare_idf(ds, dc, lvl)
 	}
 }
 
+int
 actual_declaration(sc, tp)
 	int sc;
 	struct type *tp;
@@ -269,6 +272,7 @@ actual_declaration(sc, tp)
 	return 1;
 }
 
+void
 global_redecl(idf, new_sc, tp)
 	register struct idf *idf;
 	struct type *tp;
@@ -393,6 +397,7 @@ declare_params(dc)
 	}
 }
 
+void
 idf_initialized(idf)
 	register struct idf *idf;
 {
@@ -429,6 +434,7 @@ declare_enum(tp, idf, l)
 	idf->id_def->df_address = l;
 }
 
+void
 check_formals(idf, dc)
 	struct idf *idf;
 	struct declarator *dc;

lang/cem/cemcom.ansi/ival.g

@@ -46,6 +46,11 @@ static int pack_level;
 struct type **gen_tphead(), **gen_tpmiddle();
 struct sdef *gen_align_to_next();
 struct e_stack *p_stack;
+
+void pad();
+void gen_simple_exp();
+void gen_tpcheck();
+
 }
 
 /* initial_value recursively guides the initialisation expression.
@@ -122,6 +127,7 @@ initial_value_list(register struct type **tpp; struct expr **expp;)
 ;
 
 {
+void
 gen_tpcheck(tpp)
 	struct type **tpp;
 {
@@ -147,6 +153,7 @@ gen_tpcheck(tpp)
 	}
 }
 
+void
 gen_simple_exp(tpp, expp)
 	struct type **tpp;
 	struct expr **expp;
@@ -465,6 +472,7 @@ check_and_pad(expp, tpp)
 /*	pad() fills an element of type tp with zeroes.
 	If the element is an aggregate, pad() is called recursively.
 */
+void
 pad(tpx)
 	struct type *tpx;
 {

lang/cem/cemcom.ansi/main.c

@@ -46,6 +46,8 @@ struct sp_id special_ids[] =	{
 	{0, 0}
 };
 
+void dependency();
+
 #ifndef NOCROSS
 arith
 	short_size = SZ_SHORT,
@@ -181,6 +183,7 @@ char *s;
     }
 }
 
+void
 dependency(s, source)
 char *s, *source;
 {

lang/cem/cemcom.ansi/proto.c

@@ -26,6 +26,7 @@
 
 extern char options[];
 
+void
 check_for_void(pl)
 	register struct proto *pl;
 {
@@ -261,6 +262,7 @@ declare_protos(dc)
 }
 
 
+void
 update_proto(tp, otp)
 	register struct type *tp, *otp;
 {
@@ -312,6 +314,7 @@ update_proto(tp, otp)
 /* struct/union and enum tags can be declared inside prototypes
  * remove them from the symbol-table
  */
+void
 remove_proto_tag(tp)
 struct type *tp;
 {
@@ -380,6 +383,7 @@ remove_proto_idfs(pl)
 	}
 }
 
+void
 call_proto(expp)
 	register struct expr **expp;
 {

lang/cem/cemcom.ansi/replace.c

@@ -26,6 +26,10 @@ extern int InputLevel;
 struct repl *ReplaceList;	/* list of currently active macros */
 extern char *strcat(), *strcpy();
 
+void macro2buffer();
+void getactuals();
+void expand_defined();
+
 int
 replace(idf)
 	register struct idf *idf;
@@ -172,6 +176,7 @@ expand_macro(repl, idf)
 	return 1;
 }
 
+void
 expand_defined(repl)
 	register struct repl *repl;
 {
@@ -211,6 +216,7 @@ newarg(args)
 	args->a_rawptr = args->a_rawbuf = Malloc(args->a_rawsize = ARGBUF);
 }
 
+void
 getactuals(repl, idf)
 	struct repl *repl;
 	register struct idf *idf;
@@ -529,6 +535,7 @@ macro_func(idef)
 	}
 }
 
+void
 macro2buffer(repl, idf, args)
 	register struct repl *repl;
 	register struct idf *idf;

lang/cem/cemcom.ansi/stab.c

@@ -72,7 +72,7 @@ adds_db_str(s)
 	while (*s) addc_db_str(*s++);
 }
 
-static
+static void
 stb_type(tp)
 	register struct type	*tp;
 {

lang/cem/cemcom.ansi/stack.c

@@ -57,6 +57,7 @@ stack_level()	{
 #endif	/* LINT */
 }
 
+void
 stack_idf(idf, stl)
 	struct idf *idf;
 	register struct stack_level *stl;

lang/cem/cemcom.ansi/switch.c

@@ -159,6 +159,7 @@ code_endswitch()
 	unstack_stmt();
 }
 
+void
 code_case(expr)
 	struct expr *expr;
 {
@@ -227,6 +228,7 @@ code_case(expr)
 	}
 }
 
+void
 code_default()
 {
 	register struct switch_hdr *sh = switch_stack;

lang/cem/cemcom.ansi/util.c

@@ -163,6 +163,7 @@ LocalFinish()
 #endif
 }
 
+void
 RegisterAccount(offset, size, regtype, sc)
 	arith offset, size;
 {

lang/cem/cpp.ansi/LLlex.c

@@ -35,6 +35,8 @@ extern arith	char_constant();
 #define		FLG_ESEEN	0x01	/* possibly a floating point number */
 #define		FLG_DOTSEEN	0x02	/* certainly a floating point number */
 
+void skipcomment();
+
 int
 LLlex()
 {
@@ -325,6 +327,7 @@ garbage:
 	/*NOTREACHED*/
 }
 
+void
 skipcomment()
 {
 	/*	The last character read has been the '*' of '/_*'.  The

lang/cem/cpp.ansi/domacro.c

@@ -32,6 +32,9 @@ int	svnestlevel[30] = {-1};
 int	nestcount;
 extern int do_preprocess;
 
+void macro_def();
+void do_define();
+
 char *
 GetIdentifier(skiponerr)
 	int skiponerr;		/* skip the rest of the line on error */
@@ -148,6 +151,7 @@ domacro()
 	}
 }
 
+void
 skip_block(to_endif)
 int to_endif;
 {
@@ -327,6 +331,7 @@ do_include()
 	}
 }
 
+void
 do_define()
 {
 	/*	do_define() interprets a #define control line.
@@ -566,6 +571,7 @@ getparams(buf, parbuf)
 	/*NOTREACHED*/
 }
 
+void
 macro_def(id, text, nformals, length, flags)
 	register struct idf *id;
 	char *text;

lang/cem/cpp.ansi/main.c

@@ -32,6 +32,8 @@ char *prog_name;
 extern char **inctable;
 extern int inc_max, inc_total;
 
+void dependency();
+
 main(argc, argv)
 	char *argv[];
 {
@@ -140,6 +142,7 @@ add_dependency(s)
 	}
 }
 
+void
 dependency(s, source)
 	char *s, *source;
 {

lang/cem/cpp.ansi/preprocess.c

@@ -102,6 +102,7 @@ do_pragma()
 
 char Xbuf[256];
 
+void
 preprocess(fn)
 	char *fn;
 {

lang/cem/cpp.ansi/replace.c

@@ -26,6 +26,10 @@ extern char *strcat();
 extern int InputLevel;
 struct repl *ReplaceList;	/* list of currently active macros */
 
+void expand_defined();
+void getactuals();
+void macro2buffer();
+
 int
 replace(idf)
 	register struct idf *idf;
@@ -165,6 +169,7 @@ expand_macro(repl, idf)
 	return 1;
 }
 
+void
 expand_defined(repl)
 	register struct repl *repl;
 {
@@ -208,6 +213,7 @@ newarg(args)
 	args->a_rawptr = args->a_rawbuf = Malloc((unsigned)(args->a_rawsize = ARGBUF));
 }
 
+void
 getactuals(repl, idf)
 	struct repl *repl;
 	register struct idf *idf;
@@ -522,6 +528,7 @@ macro_func(idef)
 	}
 }
 
+void
 macro2buffer(repl, idf, args)
 	register struct repl *repl;
 	register struct idf *idf;

lang/m2/comp/LLlex.c

@@ -180,6 +180,7 @@ getch()
 	return ch;
 }
 
+void
 CheckForLineDirective()
 {
 	register int ch = getch();

lang/m2/comp/casestat.C

@@ -54,6 +54,9 @@ struct case_entry	{
 	arith ce_low, ce_up;		/* lower and upper bound of range */
 };
 
+void AddCases();
+void AddOneCase();
+
 /* STATICALLOCDEF "case_entry" 20 */
 
 /* The constant DENSITY determines when CSA and when CSB instructions
@@ -237,6 +240,7 @@ FreeSh(sh)
 	free_switch_hdr(sh);
 }
 
+void
 AddCases(sh, node, lbl)
 	struct switch_hdr *sh;
 	register t_node *node;
@@ -264,6 +268,7 @@ AddCases(sh, node, lbl)
 	AddOneCase(sh, node, node, lbl);
 }
 
+void
 AddOneCase(sh, lnode, rnode, lbl)
 	register struct switch_hdr *sh;
 	t_node *lnode, *rnode;

lang/m2/comp/chk_expr.c

@@ -53,6 +53,7 @@ df_error(nd, mess, edf)
 	else node_error(nd, mess);
 }
 
+void
 MkCoercion(pnd, tp)
 	t_node		**pnd;
 	register t_type	*tp;

lang/m2/comp/code.c

@@ -37,6 +37,10 @@ extern char	options[];
 extern t_desig	null_desig;
 int		fp_used;
 
+void RangeCheck();
+void CodeParameters();
+void CodeCall();
+
 CodeConst(cst, size)
 	arith cst;
 	int size;
@@ -55,6 +59,7 @@ CodeConst(cst, size)
 	}
 }
 
+void
 CodeString(nd)
 	register t_node *nd;
 {
@@ -288,6 +293,7 @@ CodeCoercion(t1, t2)
 	}
 }
 
+void
 CodeCall(nd)
 	register t_node *nd;
 {
@@ -355,6 +361,7 @@ CodeCall(nd)
 	DoLineno(nd);
 }
 
+void
 CodeParameters(param, arg)
 	t_param *param;
 	register t_node *arg;
@@ -672,6 +679,7 @@ needs_rangecheck(tpl, tpr)
 	return 0;
 }
 
+void
 RangeCheck(tpl, tpr)
 	register t_type *tpl, *tpr;
 {

lang/m2/comp/cstoper.c

@@ -45,6 +45,8 @@ arith min_int[] =   { 0L, -128L, -32768L, 0L, -2147483647L-1 };
 
 extern char options[];
 
+void CutSize();
+
 overflow(expp)
 	t_node *expp;
 {
@@ -160,6 +162,7 @@ divide(pdiv, prem)
 #endif
 }
 
+void
 cstibin(expp)
 	t_node **expp;
 {
@@ -351,6 +354,7 @@ cstfbin(expp)
 	CutSize(exp);
 }
 
+void
 cstubin(expp)
 	t_node **expp;
 {
@@ -457,6 +461,7 @@ cstubin(expp)
 	CutSize(exp);
 }
 
+void
 cstset(expp)
 	t_node **expp;
 {
@@ -648,6 +653,7 @@ cstcall(expp, call)
 	}
 }
 
+void
 CutSize(expr)
 	register t_node *expr;
 {

lang/m2/comp/desig.c

@@ -533,6 +533,7 @@ CodeFieldDesig(df, ds)
 	}
 }
 
+void
 CodeVarDesig(df, ds)
 	register t_def *df;
 	register t_desig *ds;

lang/m2/comp/enter.c

@@ -247,6 +247,7 @@ EnterParamList(ppr, Idlist, type, VARp, off)
 
 STATIC t_def *DoImport();
 
+void
 ImportEffects(idef, scope, flag)
 	register t_def *idef;
 	t_scope *scope;
@@ -481,6 +482,7 @@ CheckForImports(df)
 	}
 }
 
+void
 EnterFromImportList(idlist, FromDef, FromId)
 	register t_node *idlist;
 	register t_def *FromDef;

lang/m2/comp/error.c

@@ -61,6 +61,8 @@ extern char *symbol2str();
 	node, whereas other errors use the information in the token.
 */
 
+void _error();
+
 #if __STDC__
 #ifdef DEBUG
 /*VARARGS*/
@@ -318,6 +320,7 @@ crash(va_alist)
 }
 #endif
 
+void
 _error(class, node, fmt, ap, warn_class)
 	int class;
 	t_node *node;

lang/m2/comp/node.c

@@ -81,6 +81,7 @@ dot2leaf(class)
 	return nd;
 }
 
+void
 FreeNode(nd)
 	register t_node *nd;
 {

lang/m2/comp/stab.c

@@ -71,7 +71,7 @@ adds_db_str(s)
 	while (*s) addc_db_str(*s++);
 }
 
-static
+static void
 stb_type(tp, assign_num)
 	register t_type	*tp;
 {

lang/m2/comp/type.c

@@ -74,6 +74,8 @@ t_type
 	*std_type,
 	*error_type;
 
+void ArraySizes();
+
 t_type *
 construct_type(fund, tp)
 	int fund;
@@ -576,6 +578,7 @@ ArrayElSize(tp)
 	}
 }
 
+void
 ArraySizes(tp)
 	register t_type *tp;
 {

lang/m2/comp/walk.c

@@ -64,7 +64,7 @@ static int		WalkDef();
 static int		stabdef();
 #endif
 static int		MkCalls();
-static int		UseWarnings();
+static void	UseWarnings();
 
 #define	NO_EXIT_LABEL	((label) 0)
 #define RETURN_LABEL	((label) 1)
@@ -72,6 +72,8 @@ static int		UseWarnings();
 #define REACH_FLAG	1
 #define EXIT_FLAG	2
 
+void DoAssign();
+
 int
 LblWalkNode(lbl, nd, exit, reach)
 	label lbl, exit;
@@ -995,6 +997,7 @@ node_warning(nd, W_OLDFASHIONED, "compatibility required in FOR statement");
 	return 1;
 }
 
+void
 DoAssign(nd)
 	register t_node *nd;
 {
@@ -1057,7 +1060,7 @@ RegisterMessage(df)
 	}
 }
 
-static
+static void
 df_warning(nd, df, warning)
 	t_node	*nd;
 	t_def	*df;
@@ -1080,7 +1083,7 @@ df_warning(nd, df, warning)
 	}
 }
 
-static
+static void
 UseWarnings(df)
 	register t_def *df;
 {

lang/pc/comp/LLlex.c

@@ -120,7 +120,7 @@ CommentOptions()
 }
 
 
-STATIC
+STATIC void
 SkipComment()
 {
 	/*	Skip ISO-Pascal comments (* ... *) or { ... }.
@@ -216,6 +216,7 @@ register int delim;
 
 static char *s_error = "illegal line directive";
 
+void
 CheckForLineDirective()
 {
 	register int	ch;

lang/pc/comp/body.c

@@ -47,6 +47,7 @@ MarkDef(nd, flags, on)
 	}
 }
 
+void
 AssertStat(expp, line)
 	register struct node *expp;
 	unsigned short line;
@@ -69,6 +70,7 @@ AssertStat(expp, line)
 	}
 }
 
+void
 AssignStat(left, right)
 	register struct node *left, *right;
 {
@@ -131,6 +133,7 @@ AssignStat(left, right)
 	FreeNode(right);
 }
 
+void
 ProcStat(nd)
 	register struct node *nd;
 {
@@ -142,6 +145,7 @@ ProcStat(nd)
 	}
 }
 
+void
 ChkForStat(nd)
 	register struct node *nd;
 {
@@ -202,6 +206,7 @@ ChkForStat(nd)
 	return;
 }
 
+void
 EndForStat(nd)
 	register struct node *nd;
 {
@@ -283,6 +288,7 @@ CodeEndFor(nd, stepsize, l1, l2, tmp2)
 	C_asp(int_size);
 }
 
+void
 WithStat(nd)
 	struct node *nd;
 {

lang/pc/comp/casestat.C

@@ -40,6 +40,7 @@ struct case_entry	{
 */
 #define	compact(nr, low, up)	(nr != 0 && (up - low) / nr <= DENSITY)
 
+void
 CaseExpr(nd)
 	struct node *nd;
 {
@@ -62,6 +63,7 @@ CaseExpr(nd)
 	}
 }
 
+void
 CaseEnd(nd, exit_label)
 	struct node *nd;
 	label exit_label;

lang/pc/comp/code.c

@@ -24,6 +24,11 @@
 
 int	fp_used;
 
+void Long2Int();
+void Int2Long();
+void genrck();
+void CodeCall();
+
 CodeFil()
 {
 	if ( !options['L'] )
@@ -791,6 +796,7 @@ CodePString(nd, tp)
 	C_loi(tp->tp_size);
 }
 
+void
 CodeCall(nd)
 	register struct node *nd;
 {
@@ -1095,6 +1101,7 @@ CodeStd(nd)
 	}
 }
 
+void
 Long2Int()
 {
 	/* convert a long to integer */
@@ -1106,6 +1113,7 @@ Long2Int()
 	C_cii();
 }
 
+void
 Int2Long()
 {
 	/* convert integer to long */
@@ -1160,6 +1168,7 @@ RangeCheck(tpl, tpr)
 	}
 }
 
+void
 genrck(tp)
 	register struct type *tp;
 {

lang/pc/comp/cstoper.c

@@ -66,6 +66,7 @@ cstunary(expp)
 	expp->nd_right = NULLNODE;
 }
 
+void
 cstbin(expp)
 	register struct node *expp;
 {
@@ -195,6 +196,7 @@ cstbin(expp)
 	expp->nd_left = expp->nd_right = NULLNODE;
 }
 
+void
 cstset(expp)
 	register struct node *expp;
 {

lang/pc/comp/def.c

@@ -116,6 +116,7 @@ define(id, scope, kind)
 	return MkDef(id, scope, kind);
 }
 
+void
 DoDirective(directive, nd, tp, scl, function)
 	struct idf *directive;
 	struct node *nd;

lang/pc/comp/desig.c

@@ -26,6 +26,7 @@
 struct desig	InitDesig = {DSG_INIT, 0, 0, NULLDEF, 0};
 struct withdesig *WithDesigs;
 
+void CodeValue();
 
 STATIC int
 properly(ds, size, al)
@@ -71,6 +72,7 @@ CodeCopy(lhs, rhs, sz, psize)
 	C_sti(sz);
 }
 
+void
 CodeMove(rhs, left, rtp)
 	register struct desig *rhs;
 	register struct node *left;
@@ -150,6 +152,7 @@ CodeMove(rhs, left, rtp)
 	}
 }
 
+void
 CodeValue(ds, tp)
 	register struct desig *ds;
 	register struct type *tp;
@@ -366,6 +369,7 @@ CodeFieldDesig(df, ds)
 	ds->dsg_packed = df->fld_flags & F_PACKED;
 }
 
+void
 CodeVarDesig(df, ds)
 	register struct def *df;
 	register struct desig *ds;

lang/pc/comp/error.c

@@ -39,6 +39,8 @@ int err_occurred;
 
 extern char *symbol2str();
 
+void _error();
+
 /*	There are three general error-message functions:
 		lexerror()	lexical and pre-processor error messages
 		error()		syntactic and pre-processor messagese
@@ -304,6 +306,7 @@ crash(va_alist)
 }
 #endif
 
+void
 _error(class, node, fmt, ap)
 	int class;
 	struct node *node;

lang/pc/comp/label.c

@@ -12,6 +12,8 @@
 #include	"scope.h"
 #include	"type.h"
 
+void CodeLabel();
+
 
 DeclLabel(nd)
 	struct node *nd;
@@ -103,6 +105,7 @@ TstLabel(nd, Slevel)
 		CodeLabel(df, 1);
 }
 
+void
 DefLabel(nd, Slevel)
 	register struct node *nd;
 {
@@ -139,6 +142,7 @@ DefLabel(nd, Slevel)
 	}
 }
 
+void
 CodeLabel(df, local)
 	register struct def *df;
 {

lang/pc/comp/node.c

@@ -42,6 +42,7 @@ MkLeaf(class, token)
 	return nd;
 }
 
+void
 FreeNode(nd)
 	register struct node *nd;
 {

lang/pc/comp/progs.c

@@ -15,6 +15,8 @@ static int inpflag = 0;			/* input mentioned in heading ? */
 static int outpflag = 0;		/* output mentioned in heading ? */
 static label extfl_label;		/* label of array of file pointers */
 
+void make_extfl_args();
+
 set_inp()
 {
 	inpflag = 1;
@@ -25,6 +27,7 @@ set_outp()
 	outpflag = 1;
 }
 
+void
 make_extfl()
 {
 	if( err_occurred ) return; 
@@ -54,6 +57,7 @@ make_extfl()
 	make_extfl_args( GlobalScope->sc_def );
 }
 
+void
 make_extfl_args(df)
 	register struct def *df;
 {

lang/pc/comp/readwrite.c

@@ -19,6 +19,12 @@
 
 extern char	*sprint();
 
+void CodeRead();
+void CodeReadln();
+void CodeWrite();
+void CodeWriteln();
+
+void
 ChkRead(arg)
 	register struct node *arg;
 {
@@ -86,6 +92,7 @@ ChkRead(arg)
 	}
 }
 
+void
 ChkReadln(arg)
 	register struct node *arg;
 {
@@ -142,6 +149,7 @@ ChkReadln(arg)
 	CodeReadln(file);
 }
 
+void
 ChkWrite(arg)
 	register struct node *arg;
 {
@@ -183,6 +191,7 @@ ChkWrite(arg)
 	}
 }
 
+void
 ChkWriteln(arg)
 	register struct node *arg;
 {
@@ -318,6 +327,7 @@ ChkStdInOut(name, st_out)
 	return nd;
 }
 
+void
 CodeRead(file, arg)
 	register struct node *file, *arg;
 {
@@ -376,6 +386,7 @@ CodeRead(file, arg)
 	}
 }
 
+void
 CodeReadln(file)
 	struct node *file;
 {
@@ -386,6 +397,7 @@ CodeReadln(file)
 	C_asp(pointer_size);
 }
 
+void
 CodeWrite(file, arg)
 	register struct node *file, *arg;
 {
@@ -472,6 +484,7 @@ CodeWrite(file, arg)
 	}
 }
 
+void
 CodeWriteln(file)
 	register struct node *file;
 {

lang/pc/comp/stab.c

@@ -71,7 +71,7 @@ adds_db_str(s)
 	while (*s) addc_db_str(*s++);
 }
 
-static
+static void
 stb_type(tp, assign_num)
 	register struct type	*tp;
 {
@@ -247,6 +247,7 @@ stb_addtp(s, tp)
 		     (arith) 0);
 }
 
+void
 stb_string(df, kind)
 	register struct def *df;
 	long kind;

lang/pc/comp/type.c

@@ -51,6 +51,8 @@ struct type
 	*void_type,
 	*error_type;
 
+void ArraySizes();
+
 CheckTypeSizes()
 {
 	/* first, do some checking
@@ -442,6 +444,7 @@ ArrayElSize(tp, packed)
 	return algn;
 }
 
+void
 ArraySizes(tp)
 	register struct type *tp;
 {
@@ -489,6 +492,7 @@ ArraySizes(tp)
 	C_rom_cst(tp->arr_elsize);
 }
 
+void
 FreeForward(for_type)
 	register struct forwtype *for_type;
 {

mach/i386/as/mach5.c

@@ -38,6 +38,7 @@ ea_1_16(param)
         }
 }
 
+void
 ea_1(param) {
 	if (! address_long) {
 		ea_1_16(param);
@@ -134,6 +135,7 @@ regsize(sz)
 	}
 }
 
+void
 indexed() {
 	if (address_long) {
 		mod_2 = 0;

mach/i386/ncg/mach.c

@@ -61,6 +61,7 @@ string holstr(n) word n; {
 full lbytes;
 #endif
 
+void
 prolog(nlocals) full nlocals; {
 
 	fputs("push ebp\nmov ebp,esp\n", codefile);
@@ -179,6 +180,7 @@ mach_option(s)
 }
 #endif /* MACH_OPTIONS */
 
+void
 mes(type) word type ; {
 	int argt, a1, a2 ;
 

mach/i80/ncg/mach.c

@@ -54,6 +54,7 @@ con_float() {
 }
 
 
+void
 prolog(nlocals) full nlocals; {
 
 	fprintf(codefile,"\tpush\tb\n\tlxi\th,0\n\tdad\tsp\n\tmov\tb,h\n\tmov\tc,l\n");
@@ -67,6 +68,7 @@ prolog(nlocals) full nlocals; {
 	}
 }
 
+void
 mes(type) word type ; {
 	int argt ;
 

mach/i86/ncg/mach.c

@@ -61,6 +61,7 @@ string holstr(n) word n; {
 full lbytes;
 #endif
 
+void
 prolog(nlocals) full nlocals; {
 
 	fputs("\tpush\tbp\n\tmov\tbp,sp\n", codefile);
@@ -157,6 +158,7 @@ regreturn()
 }
 #endif /* REGVARS */
 
+void
 mes(type) word type ; {
 	int argt ;
 

mach/m68020/as/mach5.c

@@ -21,6 +21,8 @@
  * then emitted in one go, by emit_instr().
  */
 
+void move_special();
+
 emit_instr()
 {
 	register instr_t *ip;
@@ -70,6 +72,7 @@ long words;
 	T_EMIT2((short)(words), 0, 0, 0);
 }
 
+void
 ea_1(sz, bits)
 {
 		/* Because displacements come in three sizes (null displacement,
@@ -242,6 +245,7 @@ badoperand()
 	serror("bad operand(s)");
 }
 
+void
 shift_op(opc, sz)
 {
 	if (mrg_1 < 010 && mrg_2 < 010) {
@@ -263,6 +267,7 @@ shift_op(opc, sz)
 	ea_2(SIZE_W, MEM|ALT);
 }
 
+void
 bitop(opc)
 {
 	register bits;
@@ -291,6 +296,7 @@ bitfield(opc, extension)
 	ea_2(SIZE_L, (mrg_2 < 010) ? 0 : (CTR | ALT));
 }
 
+void
 add(opc, sz)
 {
 	if ((mrg_2 & 070) == 010)
@@ -326,6 +332,7 @@ add(opc, sz)
 	badoperand();
 }
 
+void
 and(opc, sz)
 {
 	if (mrg_1 == 074 && mrg_2 >= 076) {	/* ccr or sr */
@@ -370,6 +377,7 @@ from_dreg(opc, sz, bits)
 	return(1);
 }
 
+void
 cmp(sz)
 {
 	register opc;
@@ -416,6 +424,7 @@ link_instr(sz, areg)
 	ea_2(sz, 0);
 }
 
+void
 move(sz)
 {
 	register opc;
@@ -448,6 +457,7 @@ move(sz)
 	ea_2(sz, ALT);
 }
 
+void
 move_special(sz)
 {
 	if (mrg_2 >= 076) {
@@ -514,6 +524,7 @@ reverse(regs, max)
 	return regs;
 }
 
+void
 movep(sz)
 {
 	checksize(sz, 2|4);
@@ -530,6 +541,7 @@ movep(sz)
 	badoperand();
 }
 
+void
 branch(opc, exp)
 expr_t exp;
 {
@@ -566,6 +578,7 @@ expr_t exp;
 	T_EMIT4(exp.val, exp.typ, RELPC|RELO4, relonami);
 }
 
+void
 cpbcc(opc, exp)
 expr_t exp;
 {
@@ -593,6 +606,7 @@ expr_t exp;
 	T_EMIT4(exp.val, exp.typ, RELPC|RELO4, relonami);
 }
 
+void
 ea7071(sz)
 {
 	mrg_2 = 071;
@@ -671,6 +685,7 @@ ea7071(sz)
 			mrg_2 = 070;
 }
 
+void
 fbranch(opc, exp)
 expr_t exp;
 {

mach/m68020/ncg/mach.c

@@ -187,6 +187,7 @@ regsave(s,off,size)
 	fprintf(codefile, "!Local %ld into %s\n",off,s);
 }
 
+void
 prolog(n) full n; {
 
 	nlocals = n;
@@ -207,6 +208,7 @@ mach_option(s)
 }
 #endif /* MACH_OPTIONS */
 
+void
 mes(type) word type ; {
 	int argt, a1, a2 ;
 

mach/powerpc/ncg/mach.c

@@ -56,6 +56,7 @@ con_mult(word sz)
 #define FL_MSB_AT_LOW_ADDRESS	1
 #include <con_float>
 
+void
 prolog(full nlocals)
 {
 	int ss = nlocals + 8;
@@ -68,6 +69,7 @@ prolog(full nlocals)
 	framesize = nlocals;
 }
 
+void
 mes(word type)
 {
 	int argt ;

mach/proto/as/comm4.c

@@ -18,6 +18,9 @@
 
 extern YYSTYPE	yylval;
 
+void setupoutput();
+void commfinish();
+
 /* ========== Machine independent C routines ========== */
 
 void stop() {
@@ -458,6 +461,7 @@ char *s;
 #endif
 }
 
+void
 setupoutput()
 {
 	register sect_t *sp;
@@ -493,6 +497,7 @@ setupoutput()
 	outhead.oh_nchar = off;	/* see newsymb() */
 }
 
+void
 commfinish()
 {
 #ifndef ASLD

mach/proto/as/comm5.c

@@ -11,6 +11,8 @@
 
 extern YYSTYPE	yylval;
 
+void putval();
+
 yylex()
 {
 	register c;
@@ -68,6 +70,7 @@ yylex()
 	return(c);
 }
 
+void
 putval(c)
 {
 	register valu_t v;

mach/proto/as/comm6.c

@@ -12,6 +12,10 @@
 #include	"comm1.h"
 #include	"y.tab.h"
 
+void switchsect();
+void newsymb();
+void newident();
+
 newequate(ip, typ)
 register item_t *ip;
 register int typ;
@@ -34,6 +38,7 @@ register int typ;
 	newident(ip, typ);
 }
 
+void
 newident(ip, typ)
 register item_t *ip;
 {
@@ -74,6 +79,7 @@ register item_t *ip;
 		);
 }
 
+void
 newlabel(ip)
 register item_t *ip;
 {
@@ -183,6 +189,7 @@ valu_t val;
 	}
 }
 
+void
 switchsect(newtyp)
 int newtyp;
 {
@@ -242,6 +249,7 @@ valu_t bytes;
 }
 
 #ifdef RELOCATION
+void
 newrelo(s, n)
 {
 	int	iscomm;
@@ -326,6 +334,7 @@ new_string(s)
 	return r;
 }
 
+void
 newsymb(name, type, desc, valu)
 register char *name;
 valu_t valu;

mach/proto/ncg/compute.c

@@ -120,6 +120,7 @@ string tostring(n) register word n; {
 	return(mystrcpy(buf));
 }
 
+void
 compute(node, presult) register node_p node; register result_t *presult; {
 	result_t leaf1,leaf2;
 	register token_p tp;

mach/proto/ncg/equiv.c

@@ -29,6 +29,8 @@ int maxindex;
 int regclass[NREGS];
 struct perm *perms;
 
+void permute();
+
 struct perm *
 tuples(regls,nregneeded) rl_p *regls; {
 	int class=0;
@@ -64,6 +66,7 @@ tuples(regls,nregneeded) rl_p *regls; {
 	return(perms);
 }
 
+void
 permute(index) {
 	register struct perm *pp;
 	register rl_p rlp;

mach/proto/ncg/fillem.c

@@ -83,6 +83,13 @@ extern short em_ptyp[];
 extern double atof();
 
 void prolog(full nlocals);
+void mes();
+void bss();
+void savelab();
+void dumplab();
+void part_flush();
+void xdumplab();
+void switchseg();
 
 /* Own version of atol that continues computing on overflow.
    We don't know that about the ANSI C one.
@@ -136,6 +143,7 @@ in_start() {
 in_finish() {
 }
 
+void
 fillemlines() {
 	register int t,i;
 	register struct emline *lp;
@@ -226,6 +234,7 @@ fillemlines() {
 	}
 }
 
+void
 dopseudo() {
 	register b,t;
 	register full n;
@@ -605,6 +614,7 @@ char *strarg(t) {
 	return(mystrcpy(argstr));
 }
 
+void
 bss(n,t,b) full n; {
 	register long s = 0;
 
@@ -677,6 +687,7 @@ swtxt() {
 	switchseg(SEGTXT);
 }
 
+void
 switchseg(s) {
 
 	if (s == curseg)
@@ -686,6 +697,7 @@ switchseg(s) {
 		fprintf(codefile,"%s\n",segname[s]);
 }
 
+void
 savelab() {
 	register char *p,*q;
 
@@ -700,6 +712,7 @@ savelab() {
 		;
 }
 
+void
 dumplab() {
 
 	if (labstr[0] == 0)
@@ -709,6 +722,7 @@ dumplab() {
 	labstr[0] = 0;
 }
 
+void
 xdumplab() {
 
 	if (labstr[0] == 0)
@@ -717,6 +731,7 @@ xdumplab() {
 	newdlb(labstr);
 }
 
+void
 part_flush() {
 
 	/*

mach/proto/ncg/gencode.c

@@ -108,6 +108,7 @@ gennl() {
 	putc('\n',codefile);
 }
 
+void
 prtoken(tp,leadingchar) token_p tp; {
 	register c;
 	register char *code;

mach/proto/ncg/label.c

@@ -7,6 +7,7 @@
 static label_p label_list = (label_p)0;
 extern char *myalloc();
 
+void
 add_label(num, height, flth)
 {
 	register label_p lbl = (label_p)0;

mach/proto/ncg/regvar.c

@@ -42,6 +42,7 @@ linkreg(of,sz,tp,sc) long of; {
 	return(rvlp);
 }
 
+void
 tryreg(rvlp,typ) register struct regvar *rvlp; {
 	int score;
 	register i;

mach/proto/ncg/salloc.c

@@ -32,6 +32,8 @@ static char rcsid[] = "$Id$";
 char *stab[MAXSTAB];
 int nstab=0;
 
+void chkstr();
+
 string myalloc(size) {
 	register string p;
 
@@ -72,6 +74,7 @@ compar(p1,p2) char **p1,**p2; {
 	return(1);
 }
 
+void
 garbage_collect() {
 	register i;
 	struct emline *emlp;
@@ -116,6 +119,7 @@ garbage_collect() {
 	nstab = fillp-stab;
 }
 
+void
 chkstr(str,used) string str; char used[]; {
 	register low,middle,high;
 

mach/proto/ncg/state.c

@@ -23,6 +23,8 @@ static char rcsid[] = "$Id$";
 
 extern int nstab;	/* salloc.c */
 
+void bmove();
+
 savestatus(sp) register state_p sp; {
 
 	sp->st_sh = stackheight;
@@ -57,6 +59,7 @@ restorestatus(sp) register state_p sp; {
 	popstr(sp->st_ns);
 }
 
+void
 bmove(from,to,nbytes) register short *from,*to; register nbytes; {
 
 	if (nbytes<=0)

mach/proto/ncg/subr.c

@@ -49,6 +49,7 @@ match(tp,tep,optexp) register token_p tp; register set_p tep; {
 	return(result.e_v.e_con);
 }
 
+void
 instance(instno,token) register token_p token; {
 	register inst_p inp;
 	int i;
@@ -145,6 +146,7 @@ instance(instno,token) register token_p token; {
 	}
 }
 
+void
 cinstance(instno,token,tp,regno) register token_p token,tp; {
 	register inst_p inp;
 	int i;

mach/proto/top/top.c

@@ -23,6 +23,9 @@ struct variable ANY;  /* ANY symbol matching any instruction */
 
 char *REST;  /* Opcode of first instruction not matched by current pattern */
 
+void labeldef();
+void set_opcode();
+
 #include "gen.c"
 
 
@@ -170,6 +173,7 @@ write_first(w)
 
 /* Try to recognize the opcode part of an instruction */
 
+void
 set_opcode(ip)
 	register instr_p ip;
 {
@@ -318,6 +322,7 @@ bool split_operands(ip)
 
 
 
+void
 labeldef(ip)
 	register instr_p ip;
 {

mach/vc4/ncg/mach.c

@@ -54,7 +54,7 @@ void prolog(full nlocals)
 	framesize = nlocals;
 }
 
-mes(word type)
+void mes(word type)
 {
 	int argt ;
 

util/LLgen/src/check.c

@@ -40,9 +40,9 @@ STATIC prline();
 STATIC printset();
 STATIC int check();
 STATIC moreverbose();
-STATIC prrule();
+STATIC void prrule(p_gram p);
 STATIC cfcheck();
-STATIC resolve();
+STATIC void resolve(p_gram p);
 STATIC propagate();
 STATIC spaces();
 
@@ -283,7 +283,7 @@ moreverbose(t) register p_set t; {
 }
 
 STATIC
-prrule(p) register p_gram p; {
+void prrule(p_gram p) {
 	/*
 	 * Create a verbose printout of grammar rule p
 	 */
@@ -420,7 +420,7 @@ cfcheck(s1,s2,flag) p_set s1,s2; {
 }
 
 STATIC
-resolve(p) register p_gram p; {
+void resolve(p_gram p) {
 	/*
 	 * resolve conflicts, as specified by the user
 	 */

util/LLgen/src/compute.c

@@ -41,7 +41,7 @@ typedef struct lngth {
 /* Defined in this file : */
 extern do_compute();
 STATIC createsets();
-STATIC walk();
+STATIC void walk();
 STATIC co_trans();
 STATIC int nempty();
 extern empty();
@@ -49,15 +49,15 @@ STATIC int nfirst();
 STATIC first();
 STATIC int nfollow();
 STATIC follow();
-STATIC co_dirsymb();
+STATIC void co_dirsymb();
 STATIC co_others();
 STATIC do_lengthcomp();
-STATIC complength();
+STATIC void complength();
-STATIC add();
+STATIC void add();
 STATIC int compare();
-STATIC setdefaults();
+STATIC void setdefaults();
 STATIC do_contains();
-STATIC contains();
+STATIC void contains();
 STATIC int nsafes();
 STATIC int do_safes();
 #ifdef NON_CORRECTING
@@ -208,7 +208,7 @@ createsets() {
 	}
 }
 
-STATIC
+STATIC void
 walk(u, p) p_set u; register p_gram p; {
 	/*
 	 * Walk through the grammar rule p, allocating sets
@@ -658,7 +658,7 @@ nc_follow(setp,p) p_set setp; register p_gram p; {
 
 #endif
 
-STATIC
+STATIC void
 co_dirsymb(setp,p) p_set setp; register p_gram p; {
 	/*
 	 * Walk the rule p, doing the work for alternations
@@ -777,7 +777,7 @@ do_lengthcomp() {
 	free ((p_mem) length);
 }
 
-STATIC
+STATIC void
 complength(p,le) register p_gram p; p_length le; {
 	/*
 	 * Walk grammar rule p, computing minimum lengths
@@ -862,7 +862,7 @@ complength(p,le) register p_gram p; p_length le; {
 	}
 }
 
-STATIC
+STATIC void
 add(a, c, v) register p_length a; {
 
 	if (a->cnt == INFINITY || c == INFINITY) {
@@ -879,7 +879,7 @@ compare(a, b) register p_length a, b; {
 	return a->val - b->val;
 }
 
-STATIC
+STATIC void
 setdefaults(p) register p_gram p; {
 	for (;;) {
 		switch(g_gettype(p)) {
@@ -949,7 +949,7 @@ do_contains(n) register p_nont n; {
 	}
 }
 
-STATIC
+STATIC void
 contains(p,set) register p_gram p; register p_set set; {
 	/*
 	 * Does the real computation of the contains-sets

util/LLgen/src/gencode.c

@@ -57,24 +57,24 @@ STATIC		genncrecovery();
 #endif
 STATIC string	genname();
 STATIC		generate();
-STATIC		prset();
+STATIC void prset();
-STATIC		macro();
+STATIC void macro();
 STATIC		controlline();
 STATIC		getparams();
 STATIC		getansiparams();
 STATIC		genprototypes();
 STATIC		gettok();
-STATIC		rulecode();
+STATIC void rulecode();
 STATIC int *	dopush();
 STATIC int *	mk_tokenlist();
-STATIC		getaction();
+STATIC void getaction();
-STATIC		alternation();
+STATIC void alternation();
 STATIC		codeforterm();
 STATIC		genswhead();
 STATIC		gencases();
 STATIC		genpush();
 STATIC		genpop();
-STATIC		genincrdecr();
+STATIC void genincrdecr();
 STATIC		add_cases();
 STATIC int	analyze_switch();
 STATIC		out_list();
@@ -414,7 +414,7 @@ generate(f) p_file f; {
 	}
 }
 
-STATIC
+STATIC void
 prset(p) p_set p; {
 	register int k;
 	register unsigned i;
@@ -435,7 +435,7 @@ prset(p) p_set p; {
 	/* NOTREACHED */
 }
 
-STATIC
+STATIC void
 macro(s,n) string s; p_nont n; {
 	int i;
 
@@ -625,7 +625,7 @@ gettok() {
 	}
 }
 
-STATIC
+STATIC void
 rulecode(p,safety,mustscan,mustpop) register p_gram p; {
 	/*
 	 * Code for a production rule.
@@ -735,7 +735,7 @@ rulecode(p,safety,mustscan,mustpop) register p_gram p; {
 	}
 }
 
-STATIC
+STATIC void
 alternation(pp, safety, mustscan, mustpop, lb)
 	p_gram pp;
 {
@@ -956,7 +956,7 @@ dopush(p,safety,toplevel,pp) register p_gram p; int **pp; {
 
 # define max(a,b) ((a) < (b) ? (b) : (a))
 
-STATIC
+STATIC void
 getaction(flag) {
 	/* Read an action from the action file.
 	 * flag = 1 if it is an action,
@@ -1252,7 +1252,7 @@ genpush(d) {
 	genincrdecr("incr", d);
 }
 
-STATIC
+STATIC void
 genincrdecr(s, d) string s; {
 	if (d == NOPOP) return;
 	if (d >= 0) {

util/LLgen/src/main.c

@@ -36,7 +36,7 @@ extern		error();
 extern		fatal();
 extern		comfatal();
 extern		copyfile();
-extern		install();
+extern void install();
 extern char	*mktemp();
 extern char	*sbrk();
 
@@ -279,6 +279,7 @@ error(lineno,s,t,u) string	s,t,u; {
 }
 
 /* VARARGS1 */
+void
 warning(lineno,s,t,u) string	s,t,u; {
 	/*
 	 * Just a warning
@@ -327,6 +328,7 @@ copyfile(file) string file; {
 	fclose(f);
 }
 
+void
 install(target, source) string target, source; {
 	/*
 	 * Copy the temporary file generated from source to target

util/LLgen/src/reach.c

@@ -29,7 +29,7 @@ static string rcsid8 = "$Id$";
 /* In this file the following routines are defined: */
 extern co_reach();
 STATIC reachable();
-STATIC reachwalk();
+STATIC void reachwalk();
 
 co_reach() {
 	/*
@@ -94,7 +94,7 @@ reachable(p) register p_nont p; {
 	}
 }
 
-STATIC
+STATIC void
 reachwalk(p) register p_gram p; {
 	/*
 	 * Walk through rule p, looking for nonterminals.

util/LLgen/src/savegram.c

@@ -41,8 +41,8 @@ extern p_set start_firsts;
 extern p_set setalloc();
 extern p_gram search();
 
-STATIC save_rule();
+STATIC void save_rule();
-STATIC save_set();
+STATIC void save_set();
 
 /* t_list will contain terms to be `flattened' */
 static struct t_list {
@@ -267,7 +267,7 @@ save_grammar(f) FILE *f; {
 	fprintf(fgram, "#define LLNNONTERMINALS %d\n", nt_highest - assval + 1);
 }
 
-STATIC
+STATIC void
 save_rule(p, tail) register p_gram p; int tail; {
 /*
  Walk through rule p, saving it. The non-terminal tail is
@@ -363,7 +363,7 @@ save_rule(p, tail) register p_gram p; int tail; {
 	}
 }
 
-STATIC
+STATIC void
 save_set(p) p_set p; {
 	register int k;
 	register unsigned i;

util/LLgen/src/tokens.c

@@ -92,13 +92,13 @@ extern int	scanner();
 extern		LLmessage();
 extern int	input();
 extern		unput();
-extern		skipcomment();
+extern void skipcomment();
 # ifdef LINE_DIRECTIVE
 STATIC		linedirective();
 # endif
 STATIC string	cpy();
 STATIC string	vallookup();
-STATIC		copyact();
+STATIC void copyact();
 
 static int	nparams;
 # line 75 "tokens.g"
@@ -144,7 +144,7 @@ static t_token	savedtok;	/* to save lextoken in case of an insertion */
 static	int	nostartline;	/* = 0 if at the start of a line */
 # endif
 
-STATIC
+STATIC void
 copyact(ch1,ch2,flag,level) char ch1,ch2; {
 	/*
 	 * Copy an action to file f. Opening bracket is ch1, closing bracket
@@ -419,7 +419,7 @@ unput(c) {
 	backupc = c;
 }
 
-skipcomment(flag) {
+void skipcomment(flag) {
 	/*
 	 * Skip comment. If flag != 0, the comment is inside a fragment
 	 * of C-code, so keep it.

util/LLgen/src/tokens.g

@@ -33,13 +33,13 @@ extern int	scanner();
 extern		LLmessage();
 extern int	input();
 extern		unput();
-extern		skipcomment();
+extern void skipcomment();
 # ifdef LINE_DIRECTIVE
 STATIC		linedirective();
 # endif
 STATIC string	cpy();
 STATIC string	vallookup();
-STATIC		copyact();
+STATIC void copyact();
 
 static int	nparams;
 }
@@ -114,7 +114,7 @@ static t_token	savedtok;	/* to save lextoken in case of an insertion */
 static	int	nostartline;	/* = 0 if at the start of a line */
 # endif
 
-STATIC
+STATIC void
 copyact(ch1,ch2,flag,level) char ch1,ch2; {
 	/*
 	 * Copy an action to file f. Opening bracket is ch1, closing bracket
@@ -389,6 +389,7 @@ unput(c) {
 	backupc = c;
 }
 
+void
 skipcomment(flag) {
 	/*
 	 * Skip comment. If flag != 0, the comment is inside a fragment

util/ack/files.c

@@ -143,6 +143,7 @@ rmfile(file) path *file ; {
 	}
 }
 
+void
 rmtemps() {
 	/* Called in case of disaster, always remove the current output file!
 	*/

util/ack/grows.c

@@ -50,6 +50,7 @@ gr_cat(id,string) growstring *id ; char *string ; {
 	}
 }
 
+void
 gr_throw(id) register growstring *id ; {
 	/* Throw the string away */
 	if ( id->gr_max==0 ) return ;

util/ack/grows.h

@@ -20,7 +20,7 @@ typedef struct {
 
 /* Routines used */
 
-extern  int     gr_throw() ;    /* To free the core */
+extern  void    gr_throw() ;    /* To free the core */
 extern  int     gr_add() ;      /* To add one character */
 extern  int     gr_cat() ;      /* concatenate the contents and the string */
 extern  int     gr_init() ;     /* Initialize the bookkeeping */

util/ack/main.c

@@ -24,6 +24,8 @@ static int arg_count;
 
 extern  char    *getenv();
 
+void vieuwargs();
+
 main(argc,argv) char **argv ; {
 	register list_elem *elem ;
 	register char *frontend ;
@@ -136,6 +138,7 @@ varinit() {
 
 /************************* flag processing ***********************/
 
+void
 vieuwargs(argc,argv) char **argv ; {
 	register char *argp;
 	register int nextarg ;

util/ack/mktables.c

@@ -22,6 +22,8 @@ FILE *dmach ;
 
 int offset ;
 
+void readm();
+
 main(argc,argv) char **argv ; {
 	register i ;
 
@@ -70,6 +72,7 @@ FILE *do_open(file) char *file ; {
 	return fopen(dname,"r");
 }
 
+void
 readm() {
 	register int i ;
 	register int token ;

util/ack/rmach.c

@@ -55,6 +55,7 @@ int getinchar() ;
 static char *ty_name ;
 static char *bol ;
 
+void open_in();
 
 static char *inname ;
 
@@ -263,6 +264,7 @@ static  FILE            *infile ;
 static  char            *inptr ;
 char			*em_dir = EM_DIR;
 
+void
 open_in(name) register char *name ; {
 	register dmach *cmac ;
 

util/ack/scan.c

@@ -15,6 +15,8 @@
 static char rcs_id[] = "$Id$" ;
 #endif
 
+void try();
+
 enum f_path getpath(first) register trf **first ; {
 	/* Try to find a transformation path */
 
@@ -61,6 +63,7 @@ start_scan() {
 	last_ocount= 0 ;
 }
 
+void
 try(f_scan,suffix) list_elem *f_scan; char *suffix; {
 	register list_elem *scan ;
 	register trf  *trafo ;

util/ack/trans.c

@@ -28,6 +28,10 @@ static int        touch_tail= NO ;
 
 char *headvar(),*tailvar() ;
 
+void condit();
+void doassign();
+void set_Rflag();
+
 int transform(phase) register trf *phase ; {
 	int ok ;
 
@@ -153,6 +157,7 @@ transini() {
 	setpvar(keeps(TAIL),tailvar) ;
 }
 
+void
 set_Rflag(argp) register char *argp ; {
 	register char *eos ;
 	register list_elem *prog ;
@@ -413,6 +418,7 @@ growstring scanexpr(line) char *line ; {
 	return result ;
 }
 
+void
 condit(line,fsuff,lsuff,tailval) growstring *line ;
 	list_head *fsuff, *lsuff;
 	char *tailval ;
@@ -504,6 +510,7 @@ int mapexpand(mapentry,cflag)
 	return 1 ;
 }
 
+void
 doassign(line,star,length) char *line, *star ; {
 	growstring varval, name, temp ;
 	register char *ptr ;
@@ -598,6 +605,7 @@ char *c_rep(string,place,rep) char *string, *place, *rep ; {
 static list_head *curargs ;
 static list_head *comb_args ;
 
+void
 addargs(string) char *string ; {
 	register char *temp, *repc ;
 	register list_elem *elem ;

util/ack/util.c

@@ -32,6 +32,9 @@ extern  int     n_error;
 # define STDOUT stderr
 #endif
 
+void fuerror(const char* fmt, ...);
+void werror(const char* fmt, ...);
+
 char *basename(string) char *string ; {
 	static char retval[256] ;
 	char *last_dot, *last_start ;

util/amisc/anm.c

@@ -35,6 +35,8 @@ long	s_base[S_MAX];	/* for specially encoded bases */
 char	*filename;
 int	narg;
 
+void do_file();
+
 main(argc, argv)
 char **argv;
 {
@@ -134,6 +136,7 @@ process(fd)
 	}
 }
 
+void
 do_file(fd)
 	int	fd;
 {

util/arch/archiver.c

@@ -109,6 +109,10 @@ char *temp_arch = &temp_buf[0];
 extern char *mktemp();
 extern char *ctime();
 
+void do_object();
+void write_symdef();
+void add();
+
 usage()
 {
 	error(TRUE, "usage: %s [qdprtxl][vlc] archive [file] ...\n",
@@ -437,6 +441,7 @@ register char *argv[];
   close(ar_fd);
 }
 
+void
 add(name, fd, mess)
 char *name;
 int fd;
@@ -630,6 +635,7 @@ char *s, *name;
  * then 4 bytes giving the size of the string table, followed by the string
  * table itself.
  */
+void
 write_symdef()
 {
 	register struct ranlib	*ran;
@@ -683,6 +689,7 @@ is_outhead(headp)
 	return !BADMAGIC(*headp) && headp->oh_nname != 0;
 }
 
+void
 do_object(f, size)
 	long size;
 {

util/ego/bo/bo.c

@@ -150,7 +150,7 @@ STATIC bo_optloop(p,b,x,bra,bcc)
 
 			
 
-STATIC bo_tryloop(p,loop)
+STATIC void bo_tryloop(p,loop)
 	proc_p p;
 	lset loop;
 {
@@ -207,6 +207,7 @@ STATIC mv_code(b1,b2)
 	}
 }
 
+void
 bo_switch(b)
 	bblock_p b;
 {
@@ -303,6 +304,7 @@ STATIC bo_cleanproc(p)
 	}
 }
 
+void
 bo_optimize(p)
 	proc_p p;
 {

util/ego/ca/ca.c

@@ -130,7 +130,7 @@ STATIC int makedmap(dbl)
 	return cnt;
 }
 
-STATIC getdnames(dumpd)
+STATIC void getdnames(dumpd)
     FILE* dumpd;
 {
 	/* Read the names of the datalabels from
@@ -151,7 +151,7 @@ STATIC getdnames(dumpd)
 	}
 }
 
-STATIC getpnames(dumpp)
+STATIC void getpnames(dumpp)
     FILE* dumpp;
 {
 	/* Read the names of the procedures from

util/ego/cf/cf_loop.c

@@ -298,7 +298,7 @@ STATIC mark_succ(b,lp)
 }
 
 
-STATIC mark_blocks(lp)
+STATIC void mark_blocks(lp)
 	loop_p lp;
 {
 	/* Mark the strong and firm blocks of a loop.

util/ego/cj/cj.c

@@ -56,7 +56,7 @@
 
 STATIC int Scj;  /* number of optimizations found */
 
-STATIC showinstr();
+STATIC void showinstr();
 
 
 
@@ -289,6 +289,7 @@ STATIC bool try_pred(b)
 
 
 
+void
 cj_optimize(p)
 	proc_p p;
 {
@@ -334,7 +335,7 @@ main(argc,argv)
 
 extern char em_mnem[]; /* The mnemonics of the EM instructions. */
 
-STATIC showinstr(lnp) line_p lnp; {
+STATIC void showinstr(lnp) line_p lnp; {
 
     /* Makes the instruction in `lnp' human readable. Only lines that
      * can occur in expressions that are going to be eliminated are

util/ego/cs/cs.c

@@ -34,7 +34,7 @@ STATIC cs_clear()
 	start_valnum();
 }
 
-STATIC cs_optimize(p)
+STATIC void cs_optimize(p)
 	proc_p p;
 {
 	/* Optimize all basic blocks of one procedure. */

util/ego/cs/cs_avail.c

@@ -75,7 +75,7 @@ STATIC bool same_avail(kind, avp1, avp2)
 	/* NOTREACHED */
 }
 
-STATIC check_local(avp)
+STATIC void check_local(avp)
 	avail_p avp;
 {
 	/* Check if the local in which the result of avp was stored,

util/ego/cs/cs_debug.c

@@ -17,7 +17,7 @@
 
 extern char em_mnem[]; /* The mnemonics of the EM instructions. */
 
-STATIC showinstr(lnp)
+STATIC void showinstr(lnp)
 	line_p lnp;
 {
 	/* Makes the instruction in `lnp' human readable. Only lines that

util/ego/cs/cs_kill.c

@@ -234,7 +234,7 @@ STATIC kill_local(enp, indir)
 	}
 }
 
-STATIC kill_sim()
+STATIC void kill_sim()
 {
 	/* A store is done into the ENIGNMASK. */