mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-20 02:30:23 +02:00
Code Activity

Remove most type casts and compile test tool silently with -Wall

Browse source
This commit is contained in:
pcpa 2012-12-14 14:15:25 -02:00
parent 6227bf5bf9
commit 074056499f
4 changed files with 46 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

6
check/lightning.c
View file

@ -855,7 +855,7 @@ get_imm(void)
break;
case '@':
dynamic();
value = parser.value.p;
value = (long)parser.value.p;
break;
default:
ungetch(ch);
@ -1292,11 +1292,11 @@ movi(void)
ungetch(ch);
label = get_label(skip_none);
if (label->kind == label_kind_code_forward)
mov_forward((void *)jit_movi(r0, NULL), label);
mov_forward((void *)jit_movi(r0, 0), label);
value = label->value;
break;
}
jit_movi(r0, value);
jit_movi(r0, (jit_word_t)value);
}
entry_ir_ir(extr_c) entry_ir_ir(extr_uc)
entry_ir_ir(extr_s) entry_ir_ir(extr_us)