Easy changes for -Wmissing-prototypes

driver/main.c

@@ -188,7 +188,7 @@ static const char** defparm_base = 0;
 static int defparm_size = 0;
 
 /* Function to add a command file name to the FIFO. */
-void add_cmd_file(const char* filename)
+static void add_cmd_file(const char* filename)
 {
       p_command_file new;
 
@@ -205,7 +205,7 @@ void add_cmd_file(const char* filename)
 }
 
 /* Function to return the top command file name from the FIFO. */
-char *get_cmd_file(void)
+static char *get_cmd_file(void)
 {
       char *filename;
 
@@ -625,7 +625,7 @@ void process_file_name(const char*name, int lib_flag)
       }
 }
 
-int process_generation(const char*name)
+static int process_generation(const char*name)
 {
       if (strcmp(name,"1995") == 0)
 	    generation = "1995";
@@ -750,7 +750,7 @@ int process_generation(const char*name)
       return 0;
 }
 
-int process_depfile(const char*name)
+static int process_depfile(const char*name)
 {
       const char*cp = strchr(name, '=');
       if (cp) {
@@ -784,7 +784,7 @@ int process_depfile(const char*name)
 /*
  * If it exists add the SFT file for the given module.
  */
-void add_sft_file(const char *module)
+static void add_sft_file(const char *module)
 {
       char *file;
 

driver/substit.c

@@ -21,6 +21,7 @@
 # include  <stdlib.h>
 # include  <stdio.h>
 # include  "ivl_alloc.h"
+# include  "globals.h"
 
 
 char* substitutions(const char*str)

libveriuser/a_fetch_argc.c

@@ -19,6 +19,7 @@
 
 # include  <vpi_user.h>
 # include  <veriuser.h>
+# include  <acc_user.h>
 
 /*
  * acc_fetch_argc implemented using VPI interface

libveriuser/a_fetch_argv.c

@@ -19,6 +19,7 @@
 
 # include  <vpi_user.h>
 # include  <veriuser.h>
+# include  <acc_user.h>
 
 /*
  * acc_fetch_argv implemented using VPI interface

libveriuser/nodeinfo.c

@@ -23,7 +23,8 @@
 # include  <vpi_user.h>
 # include  "priv.h"
 
-struct t_tfnoeinfo* tf_nodeinfo(PLI_INT32 a, struct t_tfnodeinfo*ip)
+/* XXX Not declared or used anywhere? */
+struct t_tfnodeinfo* tf_nodeinfo(PLI_INT32 a, struct t_tfnodeinfo*ip)
 {
       (void)a; /* Parameter is not used. */
       (void)ip; /* Parameter is not used. */

libveriuser/nump.c

@@ -19,6 +19,7 @@
 
 #include  <vpi_user.h>
 #include  <stdio.h>
+#include "veriuser.h"
 
 /*
  * tf_nump implemented using VPI interface

tgt-stub/expression.c

@@ -386,7 +386,7 @@ static void show_ternary_expression(ivl_expr_t net, unsigned ind)
       }
 }
 
-void show_unary_expression(ivl_expr_t net, unsigned ind)
+static void show_unary_expression(ivl_expr_t net, unsigned ind)
 {
       unsigned width = ivl_expr_width(net);
       const char*sign = ivl_expr_signed(net)? "signed" : "unsigned";

tgt-stub/statement.c

@@ -269,7 +269,7 @@ static void show_stmt_trigger(ivl_statement_t net, unsigned ind)
  * The wait statement contains simply an array of events to wait on,
  * and a sub-statement to execute when an event triggers.
  */
-void show_stmt_wait(ivl_statement_t net, unsigned ind)
+static void show_stmt_wait(ivl_statement_t net, unsigned ind)
 {
       unsigned idx;
       const char*comma = "";

tgt-vlog95/expr.c

@@ -630,7 +630,7 @@ static void emit_expr_real_number(ivl_scope_t scope, ivl_expr_t expr,
 /*
  * Class properties are not supported in vlog95, but they can be translated.
  */
-void emit_class_property(ivl_scope_t scope, ivl_expr_t expr, unsigned wid)
+static void emit_class_property(ivl_scope_t scope, ivl_expr_t expr, unsigned wid)
 {
       ivl_signal_t sig = ivl_expr_signal(expr);
       (void)wid;  /* Parameter is not used. */

tgt-vlog95/logic_lpm.c

@@ -1486,7 +1486,7 @@ static void emit_lpm_part_pv(ivl_scope_t scope, ivl_lpm_t lpm)
       fprintf(vlog_out, "]");
 }
 
-unsigned  output_is_module_instantiation_input(ivl_scope_t scope,
+static unsigned  output_is_module_instantiation_input(ivl_scope_t scope,
                                                ivl_nexus_t nex)
 {
       unsigned idx, count = ivl_nexus_ptrs(nex);

tgt-vlog95/scope.c

@@ -51,7 +51,7 @@ static const char*get_time_const(int time_value)
       }
 }
 
-void emit_func_return(ivl_signal_t sig)
+static void emit_func_return(ivl_signal_t sig)
 {
       if (ivl_signal_dimensions(sig) > 0) {
 	    fprintf(stderr, "%s:%u: vlog95 error: A function cannot return "
@@ -86,7 +86,7 @@ static void emit_sig_id(ivl_signal_t sig)
       fprintf(vlog_out, "\n");
 }
 
-void emit_var_def(ivl_signal_t sig)
+static void emit_var_def(ivl_signal_t sig)
 {
       if (ivl_signal_local(sig)) return;
       fprintf(vlog_out, "%*c", indent, ' ');
@@ -199,7 +199,7 @@ static void save_net_constants(ivl_scope_t scope, ivl_signal_t sig)
       }
 }
 
-void emit_net_def(ivl_scope_t scope, ivl_signal_t sig)
+static void emit_net_def(ivl_scope_t scope, ivl_signal_t sig)
 {
       int msb, lsb;
       get_sig_msb_lsb(sig, &msb, &lsb);

tgt-vvp/vvp_scope.c

@@ -134,7 +134,7 @@ const char* vvp_signal_label(ivl_signal_t sig)
       return buf;
 }
 
-ivl_signal_t signal_of_nexus(ivl_nexus_t nex, unsigned*word)
+static ivl_signal_t signal_of_nexus(ivl_nexus_t nex, unsigned*word)
 {
       unsigned idx;
       for (idx = 0 ;  idx < ivl_nexus_ptrs(nex) ;  idx += 1) {
@@ -180,7 +180,7 @@ ivl_variable_type_t data_type_of_nexus(ivl_nexus_t nex)
 }
 
 
-ivl_nexus_ptr_t ivl_logic_pin_ptr(ivl_net_logic_t net, unsigned pin)
+static ivl_nexus_ptr_t ivl_logic_pin_ptr(ivl_net_logic_t net, unsigned pin)
 {
       ivl_nexus_t nex = ivl_logic_pin(net, pin);
       unsigned idx;
@@ -201,6 +201,7 @@ ivl_nexus_ptr_t ivl_logic_pin_ptr(ivl_net_logic_t net, unsigned pin)
       return 0;
 }
 
+#if 0
 const char*drive_string(ivl_drive_t drive)
 {
       switch (drive) {
@@ -224,6 +225,7 @@ const char*drive_string(ivl_drive_t drive)
 
       return "";
 }
+#endif
 
 
 /*

vpi/sys_queue.c

@@ -57,7 +57,7 @@
 /*
  * Routine to add the given time to the the total time (high/low).
  */
-void add_to_wait_time(uint64_t *high, uint64_t *low, uint64_t c_time)
+static void add_to_wait_time(uint64_t *high, uint64_t *low, uint64_t c_time)
 {
       uint64_t carry = 0U;
 
@@ -71,7 +71,7 @@ void add_to_wait_time(uint64_t *high, uint64_t *low, uint64_t c_time)
  * Routine to divide the given total time (high/low) by the number of
  * items to get the average.
  */
-uint64_t calc_average_wait_time(uint64_t high, uint64_t low, uint64_t total)
+static uint64_t calc_average_wait_time(uint64_t high, uint64_t low, uint64_t total)
 {
       int bit = 64;
       uint64_t result = 0U;

vpi/sys_random.c

@@ -41,7 +41,7 @@ static double chi_square(long *seed, long deg_of_free);
 static double t(long *seed, long deg_of_free);
 static double erlangian(long *seed, long k, long mean);
 
-long rtl_dist_chi_square(long *seed, long df)
+static long rtl_dist_chi_square(long *seed, long df)
 {
       double r;
       long i;
@@ -64,7 +64,7 @@ long rtl_dist_chi_square(long *seed, long df)
       return i;
 }
 
-long rtl_dist_erlang(long *seed, long k, long mean)
+static long rtl_dist_erlang(long *seed, long k, long mean)
 {
       double r;
       long i;
@@ -87,7 +87,7 @@ long rtl_dist_erlang(long *seed, long k, long mean)
       return i;
 }
 
-long rtl_dist_exponential(long *seed, long mean)
+static long rtl_dist_exponential(long *seed, long mean)
 {
       double r;
       long i;
@@ -110,7 +110,7 @@ long rtl_dist_exponential(long *seed, long mean)
       return i;
 }
 
-long rtl_dist_normal(long *seed, long mean, long sd)
+static long rtl_dist_normal(long *seed, long mean, long sd)
 {
       double r;
       long i;
@@ -127,7 +127,7 @@ long rtl_dist_normal(long *seed, long mean, long sd)
       return i;
 }
 
-long rtl_dist_poisson(long *seed, long mean)
+static long rtl_dist_poisson(long *seed, long mean)
 {
       long i;
 
@@ -142,7 +142,7 @@ long rtl_dist_poisson(long *seed, long mean)
       return i;
 }
 
-long rtl_dist_t(long *seed, long df)
+static long rtl_dist_t(long *seed, long df)
 {
       double r;
       long i;
@@ -166,7 +166,7 @@ long rtl_dist_t(long *seed, long df)
 }
 
 /* copied from IEEE1364-2001, with slight modifications for 64bit machines. */
-long rtl_dist_uniform(long *seed, long start, long end)
+static long rtl_dist_uniform(long *seed, long start, long end)
 {
       double r;
       long i;

vpi/table_mod.c

@@ -92,7 +92,7 @@ static p_table_mod create_table(void)
  * Check to see if this is a constant string. It returns 1 if the argument
  * is a constant string otherwise it returns 0.
  */
-unsigned is_const_string_obj(vpiHandle arg)
+static unsigned is_const_string_obj(vpiHandle arg)
 {
       unsigned rtn = 0;
 

vpi/v2005_math.c

@@ -137,7 +137,7 @@ static void va_error_message(vpiHandle callh, const char *format,
 /*
  * Process an argument.
  */
-vpiHandle va_process_argument(vpiHandle callh, const char *name,
+static vpiHandle va_process_argument(vpiHandle callh, const char *name,
                               vpiHandle arg, const char *post) {
     PLI_INT32 type;
 

vpi/va_math.c

@@ -164,7 +164,7 @@ static void va_error_message(vpiHandle callh, const char *format,
 /*
  * Process an argument.
  */
-vpiHandle va_process_argument(vpiHandle callh, const char *name,
+static vpiHandle va_process_argument(vpiHandle callh, const char *name,
                               vpiHandle arg, const char *post) {
     PLI_INT32 type;