summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1998-09-30 10:14:59 +0000
committerJim Blandy <jimb@red-bean.com>1998-09-30 10:14:59 +0000
commit8a04c1a2155a272b1f3f4189acc20643d3434ab3 (patch)
tree288f498dc5d7452a85bd19cca142edd525040e8d
parentdc9f6d6a7d163cb11df1591e1dbde34d0a2bb3a1 (diff)
downloadguile-8a04c1a2155a272b1f3f4189acc20643d3434ab3.tar.gz
Warning fixes from Maciej Stachowiak:
* backtrace.h (scm_display_application, scm_backtrace): Add prototypes. * debug.c (scm_m_start_stack): Make this function static. * fluids.h (scm_fluid_p): Add prototype. * procprop.c (scm_i_procedure_arity): Make this function static. * regex-posix.c (scm_regexp_error_msg): Make this function static. * regex-posix.h (scm_init_regex_posix): Use prototype, not K&R decl. * root.h (scm_dynamic_root): Add external prototype. * scmsigs.h (scm_usleep): Add external prototype. * script.h (scm_init_script): Use prototype, not K&R decl. * stacks.h (scm_stack_id): Add external prototype. * symbols.h (scm_sysintern0_no_module_lookup): Add external prototype.
-rw-r--r--libguile/backtrace.h2
-rw-r--r--libguile/debug.c2
-rw-r--r--libguile/fluids.h1
-rw-r--r--libguile/procprop.c2
-rw-r--r--libguile/regex-posix.c2
-rw-r--r--libguile/regex-posix.h3
-rw-r--r--libguile/root.h1
-rw-r--r--libguile/scmsigs.h1
-rw-r--r--libguile/script.h2
-rw-r--r--libguile/stacks.h2
-rw-r--r--libguile/symbols.h1
11 files changed, 14 insertions, 5 deletions
diff --git a/libguile/backtrace.h b/libguile/backtrace.h
index fd630afef..e7318425e 100644
--- a/libguile/backtrace.h
+++ b/libguile/backtrace.h
@@ -53,7 +53,9 @@ extern SCM scm_the_last_stack_fluid;
void scm_display_error_message SCM_P ((SCM message, SCM args, SCM port));
SCM scm_display_error SCM_P ((SCM stack, SCM port, SCM subr, SCM message, SCM args, SCM rest));
+SCM scm_display_application SCM_P ((SCM frame, SCM port));
SCM scm_display_backtrace SCM_P ((SCM stack, SCM port, SCM first, SCM depth));
+SCM scm_backtrace SCM_P ((void));
void scm_init_backtrace SCM_P ((void));
diff --git a/libguile/debug.c b/libguile/debug.c
index ef2b2c92e..4cac3d488 100644
--- a/libguile/debug.c
+++ b/libguile/debug.c
@@ -548,7 +548,7 @@ scm_start_stack (id, exp, env)
}
static char s_start_stack[] = "start-stack";
-SCM
+static SCM
scm_m_start_stack (exp, env)
SCM exp;
SCM env;
diff --git a/libguile/fluids.h b/libguile/fluids.h
index cfa76dbbd..867528f70 100644
--- a/libguile/fluids.h
+++ b/libguile/fluids.h
@@ -88,6 +88,7 @@ SCM_FLUID_NUM, not the fluid itself. */
#define SCM_FAST_FLUID_SET_X(n, val) (SCM_VELTS(scm_root->fluids)[n] = val)
SCM scm_make_fluid SCM_P ((void));
+SCM scm_fluid_p SCM_P ((SCM fl));
SCM scm_fluid_ref SCM_P ((SCM fluid));
SCM scm_fluid_set_x SCM_P ((SCM fluid, SCM value));
diff --git a/libguile/procprop.c b/libguile/procprop.c
index 77f8d94fb..626f83b49 100644
--- a/libguile/procprop.c
+++ b/libguile/procprop.c
@@ -52,7 +52,7 @@
SCM_GLOBAL_SYMBOL (scm_sym_arity, "arity");
-SCM
+static SCM
scm_i_procedure_arity (proc)
{
int a = 0, o = 0, r = 0;
diff --git a/libguile/regex-posix.c b/libguile/regex-posix.c
index d01b4e0ca..c9a29d6d4 100644
--- a/libguile/regex-posix.c
+++ b/libguile/regex-posix.c
@@ -117,7 +117,7 @@ static scm_smobfuns regex_t_smob =
SCM_SYMBOL (scm_regexp_error_key, "regular-expression-syntax");
-char *
+static char *
scm_regexp_error_msg (regerrno, rx)
int regerrno;
SCM rx;
diff --git a/libguile/regex-posix.h b/libguile/regex-posix.h
index 004854792..efa66a17a 100644
--- a/libguile/regex-posix.h
+++ b/libguile/regex-posix.h
@@ -51,7 +51,8 @@ extern long scm_tc16_regex_t;
#define SCM_RGXP(X) (SCM_CAR(X) == (SCM)scm_tc16_regex_t)
extern SCM scm_make_regexp SCM_P ((SCM pat, SCM flags));
+SCM scm_regexp_p SCM_P ((SCM x));
extern SCM scm_regexp_exec SCM_P ((SCM rx, SCM str, SCM start, SCM flags));
-extern void scm_init_regex_posix ();
+extern void scm_init_regex_posix SCM_P ((void));
#endif
diff --git a/libguile/root.h b/libguile/root.h
index 032ad31ba..0e64d258f 100644
--- a/libguile/root.h
+++ b/libguile/root.h
@@ -161,6 +161,7 @@ extern SCM scm_internal_cwdr SCM_P ((scm_catch_body_t body,
void *handler_data,
SCM_STACKITEM *stack_start));
extern SCM scm_call_with_dynamic_root SCM_P ((SCM thunk, SCM handler));
+extern SCM scm_dynamic_root SCM_P ((void));
extern SCM scm_apply_with_dynamic_root SCM_P ((SCM proc, SCM a1, SCM args, SCM handler));
extern SCM scm_call_catching_errors SCM_P ((SCM (*thunk)(), SCM (*err_filter)(), void * closure));
extern void scm_init_root SCM_P ((void));
diff --git a/libguile/scmsigs.h b/libguile/scmsigs.h
index 9cce2b67b..d90d271cb 100644
--- a/libguile/scmsigs.h
+++ b/libguile/scmsigs.h
@@ -52,6 +52,7 @@ extern SCM scm_restore_signals SCM_P ((void));
extern SCM scm_alarm SCM_P ((SCM i));
extern SCM scm_pause SCM_P ((void));
extern SCM scm_sleep SCM_P ((SCM i));
+extern SCM scm_usleep SCM_P ((SCM i));
extern SCM scm_raise SCM_P ((SCM sig));
extern void scm_init_scmsigs SCM_P ((void));
diff --git a/libguile/script.h b/libguile/script.h
index e37485f39..b51497364 100644
--- a/libguile/script.h
+++ b/libguile/script.h
@@ -57,6 +57,6 @@ extern void scm_shell_usage SCM_P ((int fatal, char *message));
extern SCM scm_compile_shell_switches SCM_P ((int argc, char **argv));
extern void scm_shell SCM_P ((int argc, char **argv));
extern char *scm_usage_name;
-extern void scm_init_script ();
+extern void scm_init_script SCM_P ((void));
#endif /* SCRIPTH */
diff --git a/libguile/stacks.h b/libguile/stacks.h
index 9e55f0abc..f92fa9a94 100644
--- a/libguile/stacks.h
+++ b/libguile/stacks.h
@@ -114,6 +114,7 @@ extern SCM scm_stack_type;
SCM scm_stack_p SCM_P ((SCM obj));
SCM scm_make_stack SCM_P ((SCM args));
+SCM scm_stack_id SCM_P ((SCM stack));
SCM scm_stack_ref SCM_P ((SCM stack, SCM i));
SCM scm_stack_length SCM_P ((SCM stack));
@@ -130,6 +131,7 @@ SCM scm_frame_procedure_p SCM_P ((SCM frame));
SCM scm_frame_evaluating_args_p SCM_P ((SCM frame));
SCM scm_frame_overflow_p SCM_P ((SCM frame));
+
void scm_init_stacks SCM_P ((void));
#endif /* STACKSH */
diff --git a/libguile/symbols.h b/libguile/symbols.h
index e154eb0d0..ca8d90cea 100644
--- a/libguile/symbols.h
+++ b/libguile/symbols.h
@@ -115,6 +115,7 @@ extern SCM scm_intern SCM_P ((char *name, scm_sizet len));
extern SCM scm_intern0 SCM_P ((char * name));
extern SCM scm_sysintern SCM_P ((char *name, SCM val));
extern SCM scm_sysintern0 SCM_P ((char *name));
+extern SCM scm_sysintern0_no_module_lookup SCM_P ((char *name));
extern SCM scm_symbol_value0 SCM_P ((char *name));
extern SCM scm_symbol_p SCM_P ((SCM x));
extern SCM scm_symbol_to_string SCM_P ((SCM s));