mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-14 01:30:19 +02:00
Code Activity

Fix compile warnings for 32-bit tests

Browse source
This commit is contained in:
Andy Wingo 2019-04-26 15:56:08 +02:00
parent e9d1567f7f
commit b116314591
14 changed files with 26 additions and 26 deletions
Download patch file Download diff file Expand all files Collapse all files

2
tests/boaddr_u.c
View file

@ -24,7 +24,7 @@ run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
ASSERT(f(0xffffffff, 0xffffffff) == overflowed); ASSERT(f(0xffffffff, 0xffffffff) == overflowed);
ASSERT(f(0x7fffffff, 0) == 0x7fffffff); ASSERT(f(0x7fffffff, 0) == 0x7fffffff);
ASSERT(f(0x7fffffff, 1) == 0x80000000); ASSERT(f(0x7fffffff, 1) == 0x80000000);
ASSERT(f(0x7fffffff, 0x7fffffff) == 0x7fffffff + 0x7fffffff); ASSERT(f(0x7fffffff, 0x7fffffff) == 0x7fffffffu + 0x7fffffffu);
ASSERT(f(0x7fffffff, 0x80000000) == 0xffffffff); ASSERT(f(0x7fffffff, 0x80000000) == 0xffffffff);
ASSERT(f(0x80000000, 0x80000000) == overflowed); ASSERT(f(0x80000000, 0x80000000) == overflowed);
#else #else

2
tests/bxaddr_u.c
View file

@ -23,7 +23,7 @@ run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
ASSERT(f(0xffffffff, 0xffffffff) == overflowed); ASSERT(f(0xffffffff, 0xffffffff) == overflowed);
ASSERT(f(0x7fffffff, 0) == 0x7fffffff); ASSERT(f(0x7fffffff, 0) == 0x7fffffff);
ASSERT(f(0x7fffffff, 1) == 0x80000000); ASSERT(f(0x7fffffff, 1) == 0x80000000);
ASSERT(f(0x7fffffff, 0x7fffffff) == 0x7fffffff + 0x7fffffff); ASSERT(f(0x7fffffff, 0x7fffffff) == 0x7fffffffu + 0x7fffffffu);
ASSERT(f(0x7fffffff, 0x80000000) == 0xffffffff); ASSERT(f(0x7fffffff, 0x80000000) == 0xffffffff);
ASSERT(f(0x80000000, 0x80000000) == overflowed); ASSERT(f(0x80000000, 0x80000000) == overflowed);
#else #else

4
tests/ldi_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data = 0xffffffffffffffff;
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data = 0xffffffffffffffff;
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_ldi_l(j, JIT_R0, &data); jit_ldi_l(j, JIT_R0, &data);

4
tests/ldi_ui.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_ldi_ui(j, JIT_R0, data); jit_ldi_ui(j, JIT_R0, data);

4
tests/ldr_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R1)); jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R1));

4
tests/ldr_ui.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R1)); jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R1));

4
tests/ldxi_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R0)); jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R0));

4
tests/ldxi_ui.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R0)); jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R0));

4
tests/ldxr_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0xffffffffffffffff, 0, 0x4242424212345678 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0), jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0),
jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R1)); jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R1));

4
tests/ldxr_ui.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint32_t data[] = { 0xffffffff, 0x00000000, 0x42424242 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0), jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0),
jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R1)); jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R1));

4
tests/sti_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1)); jit_load_args_1(j, jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1));

4
tests/str_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0), jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0),
jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1)); jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1));

4
tests/stxi_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R2), jit_load_args_2(j, jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R2),
jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1)); jit_operand_gpr (JIT_OPERAND_ABI_INT64, JIT_R1));

4
tests/stxr_l.c
View file

@ -1,11 +1,11 @@
#include "test.h" #include "test.h"
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
static void static void
run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
{ {
#if __WORDSIZE > 32 #if __WORDSIZE > 32
static uint64_t data[] = { 0x1212121212121212, 0, 0x3434343434343434 };
jit_begin(j, arena_base, arena_size); jit_begin(j, arena_base, arena_size);
jit_load_args_3(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0), jit_load_args_3(j, jit_operand_gpr (JIT_OPERAND_ABI_POINTER, JIT_R0),
jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R2), jit_operand_gpr (JIT_OPERAND_ABI_WORD, JIT_R2),