mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-02 21:10:27 +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

6
libguile/numbers.c
View file

@ -2205,7 +2205,7 @@ SCM_DEFINE (scm_number_to_string, "number->string", 1, 1, 0,
SCM_BIGDIG conditionals */
int
scm_print_real (SCM sexp, SCM port, scm_print_state *pstate)
scm_print_real (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
char num_buf[FLOBUFLEN];
scm_lfwrite (num_buf, iflo2str (sexp, num_buf), port);
@ -2213,7 +2213,7 @@ scm_print_real (SCM sexp, SCM port, scm_print_state *pstate)
}
int
scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate)
scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
char num_buf[FLOBUFLEN];
scm_lfwrite (num_buf, iflo2str (sexp, num_buf), port);
@ -2221,7 +2221,7 @@ scm_print_complex (SCM sexp, SCM port, scm_print_state *pstate)
}
int
scm_bigprint (SCM exp, SCM port, scm_print_state *pstate)
scm_bigprint (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
{
#ifdef SCM_BIGDIG
exp = big2str (exp, (unsigned int) 10);