Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 14:19:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Removing implicit const cast warnings.

Browse source
This commit is contained in:
Alex Shinn 2014-01-21 22:41:25 +09:00
parent 9a48e29bdd
commit 982f39ed97
5 changed files with 9 additions and 9 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
eval.c
View file

@ -33,7 +33,7 @@ sexp sexp_compile_error (sexp ctx, const char *message, sexp o) {
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);
int strictp = sexp_truep(sexp_global(ctx, SEXP_G_STRICT_P));
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) {
#if SEXP_USE_DL || SEXP_USE_STATIC_LIBS
char *suffix;
const char *suffix;
#endif
sexp_gc_var5(ctx2, x, in, res, out);
if (!env) env = sexp_context_env(ctx);

2
include/chibi/eval.h
View file

@ -54,7 +54,7 @@ SEXP_API const char** sexp_opcode_names;
/**************************** 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 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);

2
include/chibi/sexp.h
View file

@ -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_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_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;
struct sexp_free_list_t {

7
main.c
View file

@ -363,7 +363,8 @@ void run_main (int argc, char **argv) {
#if SEXP_USE_MODULES
char *impmod;
#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,
no_script=0, fold_case=SEXP_DEFAULT_FOLD_CASE_SYMS;
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);
break;
case 'q':
argv[i--] = "-xchibi";
argv[i--] = (char*)"-xchibi";
break;
case 'A':
init_context();
@ -491,7 +492,7 @@ void run_main (int argc, char **argv) {
if (! init_loaded++) {
init_context();
env = sexp_load_standard_env(ctx, env, SEXP_SEVEN);
}
}
arg = ((argv[i][2] == '\0') ? argv[++i] : argv[i]+2);
if (!sexp_save_image(ctx, arg))
exit_failure();

3
sexp.c
View file

@ -512,7 +512,7 @@ sexp sexp_make_exception (sexp ctx, sexp kind, sexp message, sexp irritants,
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);
char *s;
sexp str;
@ -3145,4 +3145,3 @@ void sexp_init (void) {
#endif
}
}