mirrors/janet
1
0
Fork 0
mirror of https://github.com/janet-lang/janet synced 2025-08-03 20:43:55 +00:00
Code Issues 1 Releases Wiki Activity

Fix warnings for appveyor.

Browse Source
This commit is contained in:
Calvin Rose 2019-12-02 09:06:58 -06:00
parent e5fbe5c557
commit ac85fca8a1
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/core/os.c
View File

@ -375,18 +375,18 @@ static Janet os_shell(int32_t argc, Janet *argv) {
static Janet os_environ(int32_t argc, Janet *argv) { static Janet os_environ(int32_t argc, Janet *argv) {
(void) argv; (void) argv;
janet_fixarity(argc, 0); janet_fixarity(argc, 0);
size_t nenv = 0; int32_t nenv = 0;
char **env = environ; char **env = environ;
while (*env++) while (*env++)
nenv += 1; nenv += 1;
JanetTable *t = janet_table(nenv); JanetTable *t = janet_table(nenv);
for (size_t i = 0; i < nenv; i++) { for (int32_t i = 0; i < nenv; i++) {
char *e = environ[i]; char *e = environ[i];
char *eq = strchr(e, '='); char *eq = strchr(e, '=');
if (!eq) janet_panic("no '=' in environ"); if (!eq) janet_panic("no '=' in environ");
char *v = eq + 1; char *v = eq + 1;
size_t full_len = strlen(e); int32_t full_len = (int32_t) strlen(e);
size_t val_len = strlen(v); int32_t val_len = (int32_t) strlen(v);
janet_table_put( janet_table_put(
t, t,
janet_stringv((const uint8_t *)e, full_len - val_len - 1), janet_stringv((const uint8_t *)e, full_len - val_len - 1),