mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 03:30:27 +02:00
Code Activity

Fix compile warnings

Browse source 
* libguile/throw.c (catch): Fix bad declarations.

* libguile/stackchk.c (reset_scm_stack_checking_enabled_p): Remove
  unused static function.
This commit is contained in:
Andy Wingo 2014-03-22 16:06:39 +01:00
parent c2247b782a
commit 63b9e8b03f
2 changed files with 2 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/stackchk.c
View file

@ -36,12 +36,6 @@
int scm_stack_checking_enabled_p;
static void
reset_scm_stack_checking_enabled_p (void *arg)
{
scm_stack_checking_enabled_p = (int)(scm_t_bits)arg;
}
long
scm_stack_size (SCM_STACKITEM *start)
{

3
libguile/throw.c
View file

@ -119,12 +119,13 @@ catch (SCM tag, SCM thunk, SCM handler, SCM pre_unwind_handler)
if (SCM_I_SETJMP (registers))
{
/* A non-local return. */
SCM args;
scm_gc_after_nonlocal_exit ();
/* FIXME: We know where the args will be on the stack; we could
avoid consing them. */
SCM args = scm_i_prompt_pop_abort_args_x (vp);
args = scm_i_prompt_pop_abort_args_x (vp);
/* Cdr past the continuation. */
args = scm_cdr (args);