mirrors
/
janet
mirror of https://github.com/janet-lang/janet
1
0
Fork 0
Code Issues 1 Releases Wiki Activity

Fix build warnings on Linux GCC version 12.1.0 x64

This commit is contained in:
Calvin Rose 2022-07-20 08:04:03 -05:00
parent 3c2af95d21
commit 1900d8f843
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/core/value.c
View File

@ -348,7 +348,7 @@ int32_t janet_hash(Janet x) {
hash = (int32_t)((hilo << 16) | (hilo >> 16));
} else {
/* Assuming 4 byte pointer (or smaller) */
uintptr_t diff = janet_unwrap_pointer(x);
uintptr_t diff = (uintptr_t) janet_unwrap_pointer(x);
uint32_t hilo = (uint32_t) diff * 2654435769u;
hash = (int32_t)((hilo << 16) | (hilo >> 16));
}

4
src/mainclient/shell.c
View File

@ -375,7 +375,7 @@ static void refresh(void) {
/* Move cursor to original position. */
snprintf(seq, 64, "\r\x1b[%dC", (int)(_pos + gbl_plen));
janet_buffer_push_cstring(&b, seq);
if (write_console(b.data, b.count) == -1) {
if (write_console((char *) b.data, b.count) == -1) {
exit(1);
}
janet_buffer_deinit(&b);
@ -857,7 +857,7 @@ static int line() {
addhistory();
if (write_console(gbl_prompt, gbl_plen) == -1) return -1;
if (write_console((char *) gbl_prompt, gbl_plen) == -1) return -1;
for (;;) {
char c;
char seq[3];