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

Remove unused GC string/symbol functions.

Browse source 
* libguile/strings.c (scm_i_stringbuf_mark, scm_i_stringbuf_free,
  scm_i_string_mark, scm_i_string_free, scm_i_symbol_mark,
  scm_i_symbol_free): Remove.

* libguile/strings.h: Remove corresponding declarations.
This commit is contained in:
Ludovic Courtès 2008-09-15 22:59:08 +02:00
parent 11d2fc0660
commit d6c74168a7
2 changed files with 1 additions and 48 deletions
Download patch file Download diff file Expand all files Collapse all files

40
libguile/strings.c
View file

@ -136,19 +136,6 @@ scm_i_take_stringbufn (char *str, size_t len)
(scm_t_bits) len, (scm_t_bits) 0);
}
SCM
scm_i_stringbuf_mark (SCM buf)
{
return SCM_BOOL_F;
}
void
scm_i_stringbuf_free (SCM buf)
{
if (!STRINGBUF_INLINE (buf))
scm_gc_free (STRINGBUF_OUTLINE_CHARS (buf),
STRINGBUF_OUTLINE_LENGTH (buf) + 1, "string");
}
scm_i_pthread_mutex_t stringbuf_write_mutex = SCM_I_PTHREAD_MUTEX_INITIALIZER;
@ -306,20 +293,7 @@ scm_c_substring_shared (SCM str, size_t start, size_t end)
return scm_i_substring_shared (str, start, end);
}
SCM
scm_i_string_mark (SCM str)
{
if (IS_SH_STRING (str))
return SH_STRING_STRING (str);
else
return STRING_STRINGBUF (str);
}
void
scm_i_string_free (SCM str)
{
}
/* Internal accessors
*/
@ -472,18 +446,6 @@ scm_i_symbol_chars (SCM sym)
return STRINGBUF_CHARS (buf);
}
SCM
scm_i_symbol_mark (SCM sym)
{
scm_gc_mark (SYMBOL_STRINGBUF (sym));
return SCM_CELL_OBJECT_3 (sym);
}
void
scm_i_symbol_free (SCM sym)
{
}
SCM
scm_i_symbol_substring (SCM sym, size_t start, size_t end)
{

9
libguile/strings.h
View file

@ -135,15 +135,6 @@ SCM_INTERNAL const char *scm_i_symbol_chars (SCM sym);
SCM_INTERNAL size_t scm_i_symbol_length (SCM sym);
SCM_INTERNAL SCM scm_i_symbol_substring (SCM sym, size_t start, size_t end);
/* internal GC functions. */
SCM_INTERNAL SCM scm_i_string_mark (SCM str);
SCM_INTERNAL SCM scm_i_stringbuf_mark (SCM buf);
SCM_INTERNAL SCM scm_i_symbol_mark (SCM buf);
SCM_INTERNAL void scm_i_string_free (SCM str);
SCM_INTERNAL void scm_i_stringbuf_free (SCM buf);
SCM_INTERNAL void scm_i_symbol_free (SCM sym);
/* internal utility functions. */
SCM_INTERNAL char **scm_i_allocate_string_pointers (SCM list);