From ea370db4b42e597d8901d4b8fd361d662785b8e6 Mon Sep 17 00:00:00 2001 From: Alex Shinn Date: Fri, 24 Jul 2020 15:35:31 +0900 Subject: [PATCH] fixing some cc warnings --- eval.c | 4 ++-- lib/chibi/json.c | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/eval.c b/eval.c index 7e640d6f..f53ab9b7 100644 --- a/eval.c +++ b/eval.c @@ -2425,9 +2425,9 @@ sexp sexp_load_standard_env (sexp ctx, sexp e, sexp version) { = sexp_env_ref(ctx, e, sym=sexp_intern(ctx, "current-exception-handler", -1), SEXP_FALSE); /* load init-7.scm */ len = strlen(sexp_init_file); - strncpy(init_file, sexp_init_file, len); + strncpy(init_file, sexp_init_file, len+1); init_file[len] = (char)sexp_unbox_fixnum(version) + '0'; - strncpy(init_file + len + 1, sexp_init_file_suffix, strlen(sexp_init_file_suffix)); + strncpy(init_file + len + 1, sexp_init_file_suffix, strlen(sexp_init_file_suffix)+1); init_file[len + 1 + strlen(sexp_init_file_suffix)] = 0; tmp = sexp_load_module_file(ctx, init_file, e); sexp_set_parameter(ctx, e, sexp_global(ctx, SEXP_G_INTERACTION_ENV_SYMBOL), e); diff --git a/lib/chibi/json.c b/lib/chibi/json.c index badd5338..c9098f61 100644 --- a/lib/chibi/json.c +++ b/lib/chibi/json.c @@ -338,7 +338,7 @@ sexp json_write_flonum(sexp ctx, sexp self, const sexp obj, sexp out) { sexp json_write_string(sexp ctx, sexp self, const sexp obj, sexp out) { char cout[32]; /* oversized to avoid snprintf warnings */ - sexp_sint_t ch, chh, chl; + sexp_uint_t ch, chh, chl; sexp i, end = sexp_make_string_cursor(sexp_string_size(obj)); sexp_write_char(ctx, '"', out);