diff options
author | Jim Blandy <jimb@red-bean.com> | 1998-09-30 10:14:59 +0000 |
---|---|---|
committer | Jim Blandy <jimb@red-bean.com> | 1998-09-30 10:14:59 +0000 |
commit | 8a04c1a2155a272b1f3f4189acc20643d3434ab3 (patch) | |
tree | 288f498dc5d7452a85bd19cca142edd525040e8d /libguile | |
parent | dc9f6d6a7d163cb11df1591e1dbde34d0a2bb3a1 (diff) | |
download | guile-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.
Diffstat (limited to 'libguile')
-rw-r--r-- | libguile/backtrace.h | 2 | ||||
-rw-r--r-- | libguile/debug.c | 2 | ||||
-rw-r--r-- | libguile/fluids.h | 1 | ||||
-rw-r--r-- | libguile/procprop.c | 2 | ||||
-rw-r--r-- | libguile/regex-posix.c | 2 | ||||
-rw-r--r-- | libguile/regex-posix.h | 3 | ||||
-rw-r--r-- | libguile/root.h | 1 | ||||
-rw-r--r-- | libguile/scmsigs.h | 1 | ||||
-rw-r--r-- | libguile/script.h | 2 | ||||
-rw-r--r-- | libguile/stacks.h | 2 | ||||
-rw-r--r-- | libguile/symbols.h | 1 |
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)); |