summaryrefslogtreecommitdiff
path: root/libguile/socket.c
diff options
context:
space:
mode:
authorJim Blandy <jimb@red-bean.com>1999-02-06 12:31:04 +0000
committerJim Blandy <jimb@red-bean.com>1999-02-06 12:31:04 +0000
commit3eeba8d4f523f0c823a11484a36ac0100eed9be7 (patch)
tree6912007b7ae065edf41a667bc82ae24e6cf6a54f /libguile/socket.c
parent3ec93c46a1dca6c0f80c33a1b190ac35417bd7d1 (diff)
downloadguile-3eeba8d4f523f0c823a11484a36ac0100eed9be7.tar.gz
* chars.c (scm_lowers, scm_uppers, scm_charnames, scm_charnums),
eval.c (s_expression, s_test, s_body, s_bindings, s_variable, s_clauses, s_formals): Variables now const. * eval.c (promsmob): Now const. * macros.c (macrosmob): Now const. * smob.c (scm_newsmob): Smobfuns argument now points to const. (freecell, flob, bigob): Now const. * dynl.c (scm_make_argv_from_stringlist, scm_coerce_rostring), error.c (scm_error, scm_syserror, scm_syserror_msg, scm_num_overflow, scm_out_of_range, scm_wrong_type_arg, scm_memory_error, scm_misc_error, scm_wta), macros.c (scm_make_synt), feature.c (scm_add_feature), filesys.c (scm_input_waiting_p), gc.c (scm_gc_start, scm_igc, scm_must_malloc, scm_must_realloc), gsubr.c (scm_make_gsubr), numbers.c (scm_num2dbl, scm_two_doubles, scm_num2long, scm_num2long_long, scm_num2ulong), options.c (scm_options), posix.c (scm_convert_exec_args, environ_list_to_c), procs.c (scm_make_subr_opt, scm_make_subr), ramap.c (scm_ramapc), read.c (scm_flush_ws), socket.c (scm_sock_fd_to_port, scm_fill_sockaddr, scm_addr_vector), stime.c (setzone, restorezone, bdtime2c), strop.c (scm_i_index), strports.c (scm_mkstrport), symbols.c (scm_intern_obarray_soft, scm_intern_obarray, scm_intern, scm_intern0, scm_sysintern0_no_module_lookup, scm_sysintern, scm_sysintern0, scm_symbol_value0), unif.c (scm_aind, scm_shap2ra): Argument indicating calling subr, error message text, reason for error, symbol name or feature name are now pointer to const. * snarf.h (SCM_PROC, SCM_PROC1): String variables are now const. * procs.c (scm_init_iprocs): iproc argument now points to const. * pairs.c (cxrs): Now const. * chars.h, error.h, feature.h, filesys.h, gc.h, gsubr.h, macros.h, numbers.h, options.h, procs.h, ramap.h, read.h, smob.h, strports.h, symbols.h, unif.h: Update variable declarations and function prototypes for above changes. * dynl.c, dynl-dld.c, dynl-dl.c, dynl-shl.c (sysdep_dynl_link, sysdep_dynl_unlink, sysdep_dynl_func): Arguments FNAME, SUBR, and SYMB now point to const.
Diffstat (limited to 'libguile/socket.c')
-rw-r--r--libguile/socket.c12
1 files changed, 6 insertions, 6 deletions
diff --git a/libguile/socket.c b/libguile/socket.c
index 1f9de0079..d31d59d69 100644
--- a/libguile/socket.c
+++ b/libguile/socket.c
@@ -67,12 +67,12 @@
SCM_SYMBOL (sym_socket, "socket");
-static SCM scm_sock_fd_to_port SCM_P ((int fd, char *proc));
+static SCM scm_sock_fd_to_port SCM_P ((int fd, const char *proc));
static SCM
scm_sock_fd_to_port (fd, proc)
int fd;
- char *proc;
+ const char *proc;
{
SCM result;
FILE *f;
@@ -318,7 +318,7 @@ scm_shutdown (sock, how)
size returns the size of the structure allocated. */
-static struct sockaddr * scm_fill_sockaddr SCM_P ((int fam, SCM address, SCM *args, int which_arg, char *proc, scm_sizet *size));
+static struct sockaddr * scm_fill_sockaddr SCM_P ((int fam, SCM address, SCM *args, int which_arg, const char *proc, scm_sizet *size));
static struct sockaddr *
scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
@@ -326,7 +326,7 @@ scm_fill_sockaddr (fam, address, args, which_arg, proc, size)
SCM address;
SCM *args;
int which_arg;
- char *proc;
+ const char *proc;
scm_sizet *size;
{
switch (fam)
@@ -443,12 +443,12 @@ scm_listen (sock, backlog)
/* Put the components of a sockaddr into a new SCM vector. */
-static SCM scm_addr_vector SCM_P ((struct sockaddr *address, char *proc));
+static SCM scm_addr_vector SCM_P ((struct sockaddr *address, const char *proc));
static SCM
scm_addr_vector (address, proc)
struct sockaddr *address;
- char *proc;
+ const char *proc;
{
short int fam = address->sa_family;
SCM result;