mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-16 00:30:21 +02:00
Code Activity

* chars.c (scm_lowers, scm_uppers, scm_charnames, scm_charnums),

Browse source 
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.
This commit is contained in:
Jim Blandy 1999-02-06 12:31:04 +00:00
parent 3ec93c46a1
commit 3eeba8d4f5
42 changed files with 162 additions and 154 deletions
Download patch file Download diff file Expand all files Collapse all files

28
libguile/error.c
View file

@ -64,8 +64,8 @@ extern int errno;
void
scm_error (key, subr, message, args, rest)
SCM key;
char *subr;
char *message;
const char *subr;
const char *message;
SCM args;
SCM rest;
{
@ -122,7 +122,7 @@ scm_strerror (SCM err)
SCM_SYMBOL (scm_system_error_key, "system-error");
void
scm_syserror (subr)
char *subr;
const char *subr;
{
scm_error (scm_system_error_key,
subr,
@ -134,8 +134,8 @@ scm_syserror (subr)
void
scm_syserror_msg (subr, message, args, eno)
char *subr;
char *message;
const char *subr;
const char *message;
SCM args;
int eno;
{
@ -148,7 +148,7 @@ scm_syserror_msg (subr, message, args, eno)
void
scm_sysmissing (subr)
char *subr;
const char *subr;
{
#ifdef ENOSYS
scm_error (scm_system_error_key,
@ -168,7 +168,7 @@ scm_sysmissing (subr)
SCM_SYMBOL (scm_num_overflow_key, "numerical-overflow");
void
scm_num_overflow (subr)
char *subr;
const char *subr;
{
scm_error (scm_num_overflow_key,
subr,
@ -180,7 +180,7 @@ scm_num_overflow (subr)
SCM_SYMBOL (scm_out_of_range_key, "out-of-range");
void
scm_out_of_range (subr, bad_value)
char *subr;
const char *subr;
SCM bad_value;
{
scm_error (scm_out_of_range_key,
@ -205,7 +205,7 @@ scm_wrong_num_args (proc)
SCM_SYMBOL (scm_arg_type_key, "wrong-type-arg");
void
scm_wrong_type_arg (subr, pos, bad_value)
char *subr;
const char *subr;
int pos;
SCM bad_value;
{
@ -221,7 +221,7 @@ scm_wrong_type_arg (subr, pos, bad_value)
SCM_SYMBOL (scm_memory_alloc_key, "memory-allocation-error");
void
scm_memory_error (subr)
char *subr;
const char *subr;
{
scm_error (scm_memory_alloc_key,
subr,
@ -233,8 +233,8 @@ scm_memory_error (subr)
SCM_SYMBOL (scm_misc_error_key, "misc-error");
void
scm_misc_error (subr, message, args)
char *subr;
char *message;
const char *subr;
const char *message;
SCM args;
{
scm_error (scm_misc_error_key, subr, message, args, SCM_BOOL_F);
@ -244,8 +244,8 @@ scm_misc_error (subr, message, args)
SCM
scm_wta (arg, pos, s_subr)
SCM arg;
char *pos;
char *s_subr;
const char *pos;
const char *s_subr;
{
if (!s_subr || !*s_subr)
s_subr = NULL;