mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-22 20:40:29 +02:00
Code Activity

Remove scm_c_read_bytes_unlocked

Browse source 
* libguile/ports.c (scm_c_read_bytes_unlocked): Remove internal
  function.
This commit is contained in:
Andy Wingo 2016-04-22 21:39:18 +02:00
parent 99899b7c9c
commit 9632b24c4d
1 changed files with 2 additions and 16 deletions
Download patch file Download diff file Expand all files Collapse all files

18
libguile/ports.c
View file

@ -1486,8 +1486,8 @@ scm_i_read_unlocked (SCM port, SCM buf)
returns less than SIZE bytes if at end-of-file. returns less than SIZE bytes if at end-of-file.
Warning: Doesn't update port line and column counts! */ Warning: Doesn't update port line and column counts! */
static size_t size_t
scm_c_read_bytes_unlocked (SCM port, SCM dst, size_t start, size_t count) scm_c_read_bytes (SCM port, SCM dst, size_t start, size_t count)
#define FUNC_NAME "scm_c_read_bytes" #define FUNC_NAME "scm_c_read_bytes"
{ {
size_t to_read = count; size_t to_read = count;
@ -1584,20 +1584,6 @@ scm_c_read (SCM port, void *buffer, size_t size)
} }
#undef FUNC_NAME #undef FUNC_NAME
size_t
scm_c_read_bytes (SCM port, SCM dst, size_t start, size_t count)
{
scm_i_pthread_mutex_t *lock;
size_t ret;
scm_c_lock_port (port, &lock);
ret = scm_c_read_bytes_unlocked (port, dst, start, count);
if (lock)
scm_i_pthread_mutex_unlock (lock);
return ret;
}
/* Update the line and column number of PORT after consumption of C. */ /* Update the line and column number of PORT after consumption of C. */
static inline void static inline void
update_port_lf (scm_t_wchar c, SCM port) update_port_lf (scm_t_wchar c, SCM port)