mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 22:29:16 +02:00
Removing implicit const cast warnings.
This commit is contained in:
parent
9a48e29bdd
commit
982f39ed97
5 changed files with 9 additions and 9 deletions
4
eval.c
4
eval.c
|
@ -33,7 +33,7 @@ sexp sexp_compile_error (sexp ctx, const char *message, sexp o) {
|
||||||
return exn;
|
return exn;
|
||||||
}
|
}
|
||||||
|
|
||||||
void sexp_warn (sexp ctx, char *msg, sexp x) {
|
void sexp_warn (sexp ctx, const char *msg, sexp x) {
|
||||||
sexp_gc_var1(out);
|
sexp_gc_var1(out);
|
||||||
int strictp = sexp_truep(sexp_global(ctx, SEXP_G_STRICT_P));
|
int strictp = sexp_truep(sexp_global(ctx, SEXP_G_STRICT_P));
|
||||||
sexp_gc_preserve1(ctx, out);
|
sexp_gc_preserve1(ctx, out);
|
||||||
|
@ -1319,7 +1319,7 @@ static sexp sexp_load_dl (sexp ctx, sexp file, sexp env) {
|
||||||
|
|
||||||
sexp sexp_load_op (sexp ctx, sexp self, sexp_sint_t n, sexp source, sexp env) {
|
sexp sexp_load_op (sexp ctx, sexp self, sexp_sint_t n, sexp source, sexp env) {
|
||||||
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
|
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
|
||||||
char *suffix;
|
const char *suffix;
|
||||||
#endif
|
#endif
|
||||||
sexp_gc_var5(ctx2, x, in, res, out);
|
sexp_gc_var5(ctx2, x, in, res, out);
|
||||||
if (!env) env = sexp_context_env(ctx);
|
if (!env) env = sexp_context_env(ctx);
|
||||||
|
|
|
@ -54,7 +54,7 @@ SEXP_API const char** sexp_opcode_names;
|
||||||
|
|
||||||
/**************************** prototypes ******************************/
|
/**************************** prototypes ******************************/
|
||||||
|
|
||||||
SEXP_API void sexp_warn (sexp ctx, char *msg, sexp x);
|
SEXP_API void sexp_warn (sexp ctx, const char *msg, sexp x);
|
||||||
SEXP_API void sexp_scheme_init (void);
|
SEXP_API void sexp_scheme_init (void);
|
||||||
SEXP_API sexp sexp_make_eval_context (sexp context, sexp stack, sexp env, sexp_uint_t size, sexp_uint_t max_size);
|
SEXP_API sexp sexp_make_eval_context (sexp context, sexp stack, sexp env, sexp_uint_t size, sexp_uint_t max_size);
|
||||||
SEXP_API sexp sexp_make_child_context (sexp context, sexp lambda);
|
SEXP_API sexp sexp_make_child_context (sexp context, sexp lambda);
|
||||||
|
|
|
@ -230,7 +230,7 @@ typedef sexp (*sexp_proc4) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp);
|
||||||
typedef sexp (*sexp_proc5) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp);
|
typedef sexp (*sexp_proc5) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp);
|
||||||
typedef sexp (*sexp_proc6) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp, sexp);
|
typedef sexp (*sexp_proc6) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp, sexp);
|
||||||
typedef sexp (*sexp_proc7) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp, sexp, sexp);
|
typedef sexp (*sexp_proc7) (sexp, sexp, sexp_sint_t, sexp, sexp, sexp, sexp, sexp, sexp);
|
||||||
typedef sexp (*sexp_init_proc)(sexp, sexp, sexp_sint_t, sexp, const char*, sexp_abi_identifier_t);
|
typedef sexp (*sexp_init_proc)(sexp, sexp, sexp_sint_t, sexp, const char*, const sexp_abi_identifier_t);
|
||||||
|
|
||||||
typedef struct sexp_free_list_t *sexp_free_list;
|
typedef struct sexp_free_list_t *sexp_free_list;
|
||||||
struct sexp_free_list_t {
|
struct sexp_free_list_t {
|
||||||
|
|
5
main.c
5
main.c
|
@ -363,7 +363,8 @@ void run_main (int argc, char **argv) {
|
||||||
#if SEXP_USE_MODULES
|
#if SEXP_USE_MODULES
|
||||||
char *impmod;
|
char *impmod;
|
||||||
#endif
|
#endif
|
||||||
char *arg, *prefix=NULL, *suffix=NULL, *main_symbol=NULL, *main_module=NULL;
|
char *arg;
|
||||||
|
const char *prefix=NULL, *suffix=NULL, *main_symbol=NULL, *main_module=NULL;
|
||||||
sexp_sint_t i, j, c, quit=0, print=0, init_loaded=0, mods_loaded=0,
|
sexp_sint_t i, j, c, quit=0, print=0, init_loaded=0, mods_loaded=0,
|
||||||
no_script=0, fold_case=SEXP_DEFAULT_FOLD_CASE_SYMS;
|
no_script=0, fold_case=SEXP_DEFAULT_FOLD_CASE_SYMS;
|
||||||
sexp_uint_t heap_size=0, heap_max_size=SEXP_MAXIMUM_HEAP_SIZE;
|
sexp_uint_t heap_size=0, heap_max_size=SEXP_MAXIMUM_HEAP_SIZE;
|
||||||
|
@ -439,7 +440,7 @@ void run_main (int argc, char **argv) {
|
||||||
sexp_load_standard_ports(ctx, env, stdin, stdout, stderr, 0);
|
sexp_load_standard_ports(ctx, env, stdin, stdout, stderr, 0);
|
||||||
break;
|
break;
|
||||||
case 'q':
|
case 'q':
|
||||||
argv[i--] = "-xchibi";
|
argv[i--] = (char*)"-xchibi";
|
||||||
break;
|
break;
|
||||||
case 'A':
|
case 'A':
|
||||||
init_context();
|
init_context();
|
||||||
|
|
3
sexp.c
3
sexp.c
|
@ -512,7 +512,7 @@ sexp sexp_make_exception (sexp ctx, sexp kind, sexp message, sexp irritants,
|
||||||
return exn;
|
return exn;
|
||||||
}
|
}
|
||||||
|
|
||||||
sexp sexp_string_cat3 (sexp ctx, char *pre, char *mid, char* suf) {
|
sexp sexp_string_cat3 (sexp ctx, const char *pre, const char *mid, const char* suf) {
|
||||||
int plen=strlen(pre), mlen=strlen(mid), slen=strlen(suf);
|
int plen=strlen(pre), mlen=strlen(mid), slen=strlen(suf);
|
||||||
char *s;
|
char *s;
|
||||||
sexp str;
|
sexp str;
|
||||||
|
@ -3145,4 +3145,3 @@ void sexp_init (void) {
|
||||||
#endif
|
#endif
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
|
|
Loading…
Add table
Reference in a new issue