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

remove scm_ports_prehistory

Browse source 
* libguile/ports.h:
* libguile/ports.c (scm_ports_prehistory): Remove this function. Just
  initialize global vars to NULL/0 instead of needing a prehistory
  function.
This commit is contained in:
Andy Wingo 2009-12-05 11:10:11 +01:00
parent 45cf242872
commit dd3a26f3da
3 changed files with 2 additions and 11 deletions
Download patch file Download diff file Expand all files Collapse all files

1
libguile/init.c
View file

@ -436,7 +436,6 @@ scm_i_init_guile (SCM_STACKITEM *base)
scm_storage_prehistory (); scm_storage_prehistory ();
scm_threads_prehistory (base); scm_threads_prehistory (base);
scm_ports_prehistory ();
scm_smob_prehistory (); scm_smob_prehistory ();
scm_weaks_prehistory (); scm_weaks_prehistory ();
#ifdef GUILE_DEBUG_MALLOC #ifdef GUILE_DEBUG_MALLOC

11
libguile/ports.c
View file

@ -95,8 +95,8 @@
* Indexes into this table are used when generating type * Indexes into this table are used when generating type
* tags for smobjects (if you know a tag you can get an index and conversely). * tags for smobjects (if you know a tag you can get an index and conversely).
*/ */
scm_t_ptob_descriptor *scm_ptobs; scm_t_ptob_descriptor *scm_ptobs = NULL;
long scm_numptob; long scm_numptob = 0;
/* GC marker for a port with stream of SCM type. */ /* GC marker for a port with stream of SCM type. */
SCM SCM
@ -2266,13 +2266,6 @@ scm_port_print (SCM exp, SCM port, scm_print_state *pstate SCM_UNUSED)
return 1; return 1;
} }
void
scm_ports_prehistory ()
{
scm_numptob = 0;
scm_ptobs = NULL;
}
/* Void ports. */ /* Void ports. */

1
libguile/ports.h
View file

@ -304,7 +304,6 @@ SCM_API SCM scm_port_conversion_strategy (SCM port);
SCM_API SCM scm_set_port_conversion_strategy_x (SCM port, SCM behavior); SCM_API SCM scm_set_port_conversion_strategy_x (SCM port, SCM behavior);
SCM_API int scm_port_print (SCM exp, SCM port, scm_print_state *); SCM_API int scm_port_print (SCM exp, SCM port, scm_print_state *);
SCM_API void scm_print_port_mode (SCM exp, SCM port); SCM_API void scm_print_port_mode (SCM exp, SCM port);
SCM_API void scm_ports_prehistory (void);
SCM_API SCM scm_void_port (char * mode_str); SCM_API SCM scm_void_port (char * mode_str);
SCM_API SCM scm_sys_make_void_port (SCM mode); SCM_API SCM scm_sys_make_void_port (SCM mode);
SCM_INTERNAL void scm_init_ports (void); SCM_INTERNAL void scm_init_ports (void);