mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 16:50:21 +02:00
Code Activity

Warning fixes from Maciej Stachowiak:

Browse source 
* 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.
This commit is contained in:
Jim Blandy 1998-09-30 10:14:59 +00:00
parent dc9f6d6a7d
commit 8a04c1a215
11 changed files with 14 additions and 5 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/backtrace.h
View file

@ -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));

2
libguile/debug.c
View file

@ -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;

1
libguile/fluids.h
View file

@ -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));

2
libguile/procprop.c
View file

@ -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;

2
libguile/regex-posix.c
View file

@ -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;

3
libguile/regex-posix.h
View file

@ -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

1
libguile/root.h
View file

@ -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));

1
libguile/scmsigs.h
View file

@ -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));

2
libguile/script.h
View file

@ -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 */

2
libguile/stacks.h
View file

@ -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 */

1
libguile/symbols.h
View file

@ -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));