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

Fix the visibility of a few of internal symbols.

Browse source 
* libguile/gc.h (scm_i_gc): Make internal.
* libguile/posix.h (scm_i_locale_mutex): Likewise.
* libguile/arrays.h (scm_i_tc16_array): Likewise.
* libguile/numbers.c (scm_i_num_less_p): Likewise.
* libguile/discouraged.h (scm_i_init_discouraged): Likewise.
* libguile/continuations.c (scm_i_dummy): Made static.
* libguile/gc.c (scm_i_cell_validation_already_running): Likewise.
* libguile/discouraged.h (scm_i_init_discouraged): Likewise.
This commit is contained in:
Ludovic Courtès 2010-05-28 16:51:57 +02:00
parent ac7b8e8e4c
commit 8c93b597b3
7 changed files with 12 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/arrays.h
View file

@ -59,7 +59,7 @@ typedef struct scm_i_t_array
unsigned long base;
} scm_i_t_array;
SCM_API scm_t_bits scm_i_tc16_array;
SCM_INTERNAL scm_t_bits scm_i_tc16_array;
#define SCM_I_ARRAY_FLAG_CONTIGUOUS (1 << 0)

2
libguile/continuations.c
View file

@ -309,7 +309,7 @@ static void scm_dynthrow (SCM);
* variable.
*/
scm_t_bits scm_i_dummy;
static scm_t_bits scm_i_dummy;
static void
grow_stack (SCM cont)

4
libguile/discouraged.h
View file

@ -13,7 +13,7 @@
#ifndef SCM_DISCOURAGED_H
#define SCM_DISCOURAGED_H
/* Copyright (C) 2004, 2006 Free Software Foundation, Inc.
/* Copyright (C) 2004, 2006, 2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -177,7 +177,7 @@ SCM_API SCM scm_c_make_keyword (const char *s);
#define scm_thread_sleep scm_std_sleep
#define scm_thread_usleep scm_std_usleep
void scm_i_init_discouraged (void);
SCM_INTERNAL void scm_i_init_discouraged (void);
#endif /* SCM_ENABLE_DISCOURAGED == 1 */

9
libguile/gc.c
View file

@ -83,12 +83,6 @@ int scm_expensive_debug_cell_accesses_p = 0;
*/
int scm_debug_cells_gc_interval = 0;
/*
Global variable, so you can switch it off at runtime by setting
scm_i_cell_validation_already_running.
*/
int scm_i_cell_validation_already_running ;
/* Hash table that keeps a reference to objects the user wants to protect from
garbage collection. It could arguably be private but applications have come
to rely on it (e.g., Lilypond 2.13.9). */
@ -131,6 +125,9 @@ scm_i_expensive_validation_check (SCM cell)
}
}
/* Whether cell validation is already running. */
static int scm_i_cell_validation_already_running = 0;
void
scm_assert_cell_valid (SCM cell)
{

2
libguile/gc.h
View file

@ -178,7 +178,7 @@ SCM_API SCM scm_gc_dump (void);
SCM_API SCM scm_gc_stats (void);
SCM_API SCM scm_gc_live_object_stats (void);
SCM_API SCM scm_gc (void);
SCM_API void scm_i_gc (const char *what);
SCM_INTERNAL void scm_i_gc (const char *what);
SCM_API void scm_gc_mark (SCM p);
SCM_API void scm_gc_sweep (void);

4
libguile/numbers.c
View file

@ -1,4 +1,4 @@
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004,2005, 2006, 2007, 2008, 2009, 2010 Free Software Foundation, Inc.
*
* Portions Copyright 1990, 1991, 1992, 1993 by AT&T Bell Laboratories
* and Bellcore. See scm_divide.
@ -3552,7 +3552,7 @@ scm_num_eq_p (SCM x, SCM y)
mpq_cmp. flonum/frac compares likewise, but with the slight complication
of the float exponent to take into account. */
SCM scm_i_num_less_p (SCM, SCM, SCM);
SCM_INTERNAL SCM scm_i_num_less_p (SCM, SCM, SCM);
SCM_PRIMITIVE_GENERIC (scm_i_num_less_p, "<", 0, 2, 1,
(SCM x, SCM y, SCM rest),
"Return @code{#t} if the list of parameters is monotonically\n"

4
libguile/posix.h
View file

@ -3,7 +3,7 @@
#ifndef SCM_POSIX_H
#define SCM_POSIX_H
/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2003, 2006, 2008, 2009 Free Software Foundation, Inc.
/* Copyright (C) 1995,1996,1997,1998,2000,2001, 2003, 2006, 2008, 2009, 2010 Free Software Foundation, Inc.
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public License
@ -91,7 +91,7 @@ SCM_API SCM scm_sethostname (SCM name);
SCM_API SCM scm_gethostname (void);
SCM_INTERNAL void scm_init_posix (void);
SCM_API scm_i_pthread_mutex_t scm_i_locale_mutex;
SCM_INTERNAL scm_i_pthread_mutex_t scm_i_locale_mutex;
#endif /* SCM_POSIX_H */