diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2017-04-12 10:51:05 +0200 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-04-23 07:51:46 +0300 |
| commit | 55a6f9b616f5a6443f85f60bd609545b82b243fe (patch) | |
| tree | 58a0de83f3d2321c145debd01a8919f4a3de8c2d | |
| parent | libguile-ssh/sftp-file-type.c (sftp_file_tag): Make 'static'. (diff) | |
| download | guile-ssh-55a6f9b616f5a6443f85f60bd609545b82b243fe.tar.gz | |
libguile-ssh/sftp-file-type.c: Remove 'mark' and 'free' procedures.
The mark function was unnecessary given that 'sftp_file_data' is
allocated with 'scm_gc_malloc' and thus scanned by the GC. The
free function was already a no-op.
* libguile-ssh/sftp-file-type.c (mark_sftp_file): Remove.
(free_sftp_file): Remove.
(init_sftp_file_type): Remove call to 'scm_set_port_mark' and to
'scm_set_port_free'.
Signed-off-by: Artyom V. Poptsov <poptsov.artyom@gmail.com>
| -rw-r--r-- | libguile-ssh/sftp-file-type.c | 15 |
1 files changed, 0 insertions, 15 deletions
diff --git a/libguile-ssh/sftp-file-type.c b/libguile-ssh/sftp-file-type.c index c0a9a61..5ee2c90 100644 --- a/libguile-ssh/sftp-file-type.c +++ b/libguile-ssh/sftp-file-type.c @@ -84,19 +84,6 @@ ptob_input_waiting (SCM file) #undef FUNC_NAME static SCM -mark_sftp_file (SCM sftp_file) -{ - struct sftp_file_data *fd = _scm_to_sftp_file_data (sftp_file); - return fd->sftp_session; -} - -static size_t -free_sftp_file (SCM sftp_file) -{ - return 0; -} - -static SCM equalp_sftp_file (SCM x1, SCM x2) { struct sftp_file_data *fd1 = _scm_to_sftp_file_data (x1); @@ -337,8 +324,6 @@ init_sftp_file_type (void) scm_set_port_close (sftp_file_tag, ptob_close); scm_set_port_flush (sftp_file_tag, ptob_flush); scm_set_port_input_waiting (sftp_file_tag, ptob_input_waiting); - scm_set_port_mark (sftp_file_tag, mark_sftp_file); - scm_set_port_free (sftp_file_tag, free_sftp_file); scm_set_port_print (sftp_file_tag, print_sftp_file); scm_set_port_equalp (sftp_file_tag, equalp_sftp_file); scm_set_port_seek (sftp_file_tag, ptob_seek); |