[Guile-commits] 06/15: Remove scm_c_read_bytes_unlocked

[Andy Wingo]

wingo pushed a commit to branch wip-port-refactor
in repository guile.

commit 9632b24c4d6ee24a4672cdf0907364d26adb4bd9
Author: Andy Wingo <address@hidden>
Date:   Fri Apr 22 21:39:18 2016 +0200

    Remove scm_c_read_bytes_unlocked
    
    * libguile/ports.c (scm_c_read_bytes_unlocked): Remove internal
      function.
---
 libguile/ports.c |   18 ++----------------
 1 file changed, 2 insertions(+), 16 deletions(-)

diff --git a/libguile/ports.c b/libguile/ports.c
index b466ed8..61f00ef 100644
--- a/libguile/ports.c
+++ b/libguile/ports.c
@@ -1486,8 +1486,8 @@ scm_i_read_unlocked (SCM port, SCM buf)
    returns less than SIZE bytes if at end-of-file.
 
    Warning: Doesn't update port line and column counts!  */
-static size_t
-scm_c_read_bytes_unlocked (SCM port, SCM dst, size_t start, size_t count)
+size_t
+scm_c_read_bytes (SCM port, SCM dst, size_t start, size_t count)
 #define FUNC_NAME "scm_c_read_bytes"
 {
   size_t to_read = count;
@@ -1584,20 +1584,6 @@ scm_c_read (SCM port, void *buffer, size_t size)
 }
 #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.  */
 static inline void
 update_port_lf (scm_t_wchar c, SCM port)