mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-17 09:10:22 +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

12
libguile/ports.c
View file

@ -108,12 +108,12 @@ scm_markstream (SCM ptr)
*/
static void
flush_port_default (SCM port)
flush_port_default (SCM port SCM_UNUSED)
{
}
static void
end_input_default (SCM port, int offset)
end_input_default (SCM port SCM_UNUSED, int offset SCM_UNUSED)
{
}
@ -1487,7 +1487,7 @@ scm_print_port_mode (SCM exp, SCM port)
}
int
scm_port_print (SCM exp, SCM port, scm_print_state *pstate)
scm_port_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
char *type = SCM_PTOBNAME (SCM_PTOBNUM (exp));
if (!type)
@ -1514,13 +1514,15 @@ scm_ports_prehistory ()
scm_bits_t scm_tc16_void_port = 0;
static int fill_input_void_port (SCM port)
static int fill_input_void_port (SCM port SCM_UNUSED)
{
return EOF;
}
static void
write_void_port (SCM port, const void *data, size_t size)
write_void_port (SCM port SCM_UNUSED,
const void *data SCM_UNUSED,
size_t size SCM_UNUSED)
{
}