From 8ca0b93e01dad50b6971f7a6fd020c2183950a0f Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 5 Nov 2016 22:37:45 +0100 Subject: libguile-ssh/server-func.c: Add missing 'const'. This is a followup to e490ba5226cedf22eb8f9166b5ac9fb5486c65f8. * libguile-ssh/server-func.c (set_sym_opt) (guile_ssh_server_set_x, guile_ssh_server_get): 'const'-qualify 'opt' and 'sd'. Signed-off-by: Artyom V. Poptsov --- libguile-ssh/server-func.c | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/libguile-ssh/server-func.c b/libguile-ssh/server-func.c index 0edd32e..2cc00c1 100644 --- a/libguile-ssh/server-func.c +++ b/libguile-ssh/server-func.c @@ -108,7 +108,7 @@ set_blocking_mode (ssh_bind bind, SCM value) static inline int set_sym_opt (ssh_bind bind, int type, struct symbol_mapping *sm, SCM value) { - struct symbol_mapping *opt = _scm_to_ssh_const (sm, value); + const struct symbol_mapping *opt = _scm_to_ssh_const (sm, value); if (! opt) guile_ssh_error1 ("server-set!", "Wrong value", value); return ssh_bind_options_set (bind, type, &opt->value); @@ -154,7 +154,7 @@ Return value is undefined.\ #define FUNC_NAME s_guile_ssh_server_set_x { struct server_data *server_data = _scm_to_server_data (server); - struct symbol_mapping *opt; /* Server option */ + const struct symbol_mapping *opt; /* Server option */ int res; SCM_ASSERT (scm_is_symbol (option), option, SCM_ARG2, FUNC_NAME); @@ -187,8 +187,8 @@ not set. Throw `guile-ssh-error' on error.\ ") #define FUNC_NAME s_guile_ssh_server_get { - struct server_data *sd = _scm_to_server_data (server); - struct symbol_mapping *opt = _scm_to_ssh_const (server_options, option); + const struct server_data *sd = _scm_to_server_data (server); + const struct symbol_mapping *opt = _scm_to_ssh_const (server_options, option); if (! opt) guile_ssh_error1 (FUNC_NAME, "No such option", option); -- cgit v1.2.3