mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-14 15:40:19 +02:00
Code Activity

* Introduce SCM_UNUSED and mark unused function parameters.

Browse source 
* Introduce SCM_DEBUG_PAIR_ACCESSES.
* Extend the possibilities of SCM_DEBUG_CELL_ACCESSES.
This commit is contained in:
Dirk Herrmann 2001-06-07 21:12:19 +00:00
parent 563058efbe
commit e81d98ec2d
39 changed files with 378 additions and 139 deletions
Download patch file Download diff file Expand all files Collapse all files

10
libguile/throw.c
View file

@ -84,7 +84,7 @@ static scm_bits_t tc16_jmpbuffer;
#endif
static int
jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate)
jmpbuffer_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
scm_puts ("#<jmpbuffer ", port);
scm_puts (JBACTIVE(exp) ? "(active) " : "(inactive) ", port);
@ -238,7 +238,7 @@ struct lazy_catch {
appear in normal data structures, only in the wind list. However,
it might be nice for debugging someday... */
static int
lazy_catch_print (SCM closure, SCM port, scm_print_state *pstate)
lazy_catch_print (SCM closure, SCM port, scm_print_state *pstate SCM_UNUSED)
{
struct lazy_catch *c = (struct lazy_catch *) SCM_CELL_WORD_1 (closure);
char buf[200];
@ -295,7 +295,7 @@ scm_internal_lazy_catch (SCM tag, scm_catch_body_t body, void *body_data, scm_ca
scm_the_last_stack_fluid_var on error. */
static SCM
ss_handler (void *data, SCM tag, SCM throw_args)
ss_handler (void *data SCM_UNUSED, SCM tag, SCM throw_args)
{
/* Save the stack */
scm_fluid_set_x (SCM_VARIABLE_REF (scm_the_last_stack_fluid_var),
@ -503,7 +503,7 @@ scm_handle_by_message_noexit (void *handler_data, SCM tag, SCM args)
SCM
scm_handle_by_throw (void *handler_data, SCM tag, SCM args)
scm_handle_by_throw (void *handler_data SCM_UNUSED, SCM tag, SCM args)
{
scm_ithrow (tag, args, 1);
return SCM_UNSPECIFIED; /* never returns */
@ -602,7 +602,7 @@ SCM_DEFINE (scm_throw, "throw", 1, 0, 1,
#undef FUNC_NAME
SCM
scm_ithrow (SCM key, SCM args, int noreturn)
scm_ithrow (SCM key, SCM args, int noreturn SCM_UNUSED)
{
SCM jmpbuf = SCM_UNDEFINED;
SCM wind_goal;