quakeforge/libs/gamecode/test/test-stack.c
Bill Currie e20aed5c5a [gamecode] Change address mode B to entity.field
It turned out that address mode B was redundant as C with 0 offset
(immediate) was the same (except for the underlying C code of course,
but adding st->b is very cheap). This allowed B to be used for
entity.field for all transfer operations. Thus instructions 0-3 are now
free as load E became load B, and other than the specifics of format
codes for statement printing, transfers+lea are unified.
2022-01-20 14:55:29 +09:00

233 lines
6.4 KiB
C

#include "head.c"
static pr_int_t test_globals_init1[] = {
// pointers
24, 26, 28, 29,
32, -4, -2, 0,
1, 4, 0xdeadbeef, 0xfeedf00d,
// source data
1, 2, 3, 4,
5, 6, 7, 8,
9, 10, 11, 12,
// destination data
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
};
static pr_int_t test_globals_expect1[] = {
// pointers
24, 26, 28, 29,
32, -4, -2, 0,
1, 4, 0xdeadbeef, 0xfeedf00d,
// source data
1, 2, 3, 4,
5, 6, 7, 8,
9, 10, 11, 12,
// destination data
11, 12, 9, 10,
8, 5, 6, 7,
1, 2, 3, 4,
};
static pr_int_t test_globals_init2[] = {
// pointers
24, 26, 28, 29,
32, -4, -2, 0,
1, 4, 0xdeadbeef, 0xfeedf00d,
// destination data
0, 0, 0, 0,
0, 0, 0, 0,
0, 0, 0, 0,
// source data
11, 12, 9, 10,
8, 5, 6, 7,
1, 2, 3, 4,
};
static pr_int_t test_globals_expect2[] = {
// pointers
24, 26, 28, 29,
32, -4, -2, 0,
1, 4, 0xdeadbeef, 0xfeedf00d,
// destination data
1, 2, 3, 4,
5, 6, 7, 8,
9, 10, 11, 12,
// source data
11, 12, 9, 10,
8, 5, 6, 7,
1, 2, 3, 4,
};
static dstatement_t stack_AA_statements[] = {
{OP(0, 0, 0, OP_PUSH_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 22, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 24, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 26, 0, 0},
{OP(0, 0, 0, OP_POP_A_1), 28, 0, 0},
{OP(0, 0, 0, OP_POP_A_3), 29, 0, 0},
{OP(0, 0, 0, OP_POP_A_4), 32, 0, 0},
};
static dstatement_t stack_AB_statements[] = {
{OP(0, 0, 0, OP_PUSH_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 22, 0, 0},
{OP(0, 0, 0, OP_POP_B_2), 7, 5, 0},
{OP(0, 0, 0, OP_POP_B_2), 7, 6, 0},
{OP(0, 0, 0, OP_POP_B_1), 7, 7, 0},
{OP(0, 0, 0, OP_POP_B_3), 7, 8, 0},
{OP(0, 0, 0, OP_POP_B_4), 7, 9, 0},
};
static dstatement_t stack_AC_statements[] = {
{OP(0, 0, 0, OP_PUSH_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 22, 0, 0},
{OP(0, 0, 0, OP_POP_C_2), 2, -4, 0},
{OP(0, 0, 0, OP_POP_C_2), 2, -2, 0},
{OP(0, 0, 0, OP_POP_C_1), 2, 0, 0},
{OP(0, 0, 0, OP_POP_C_3), 2, 1, 0},
{OP(0, 0, 0, OP_POP_C_4), 2, 4, 0},
};
static dstatement_t stack_AD_statements[] = {
{OP(0, 0, 0, OP_PUSH_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_PUSH_A_2), 22, 0, 0},
{OP(0, 0, 0, OP_POP_D_2), 2, 5, 0},
{OP(0, 0, 0, OP_POP_D_2), 2, 6, 0},
{OP(0, 0, 0, OP_POP_D_1), 2, 7, 0},
{OP(0, 0, 0, OP_POP_D_3), 2, 8, 0},
{OP(0, 0, 0, OP_POP_D_4), 2, 9, 0},
};
static dstatement_t stack_BA_statements[] = {
{OP(0, 0, 0, OP_PUSH_B_2), 7, 5, 0},
{OP(0, 0, 0, OP_PUSH_B_2), 7, 6, 0},
{OP(0, 0, 0, OP_PUSH_B_1), 7, 7, 0},
{OP(0, 0, 0, OP_PUSH_B_3), 7, 8, 0},
{OP(0, 0, 0, OP_PUSH_B_4), 7, 9, 0},
{OP(0, 0, 0, OP_POP_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_POP_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_POP_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 22, 0, 0},
};
static dstatement_t stack_CA_statements[] = {
{OP(0, 0, 0, OP_PUSH_C_2), 2, -4, 0},
{OP(0, 0, 0, OP_PUSH_C_2), 2, -2, 0},
{OP(0, 0, 0, OP_PUSH_C_1), 2, 0, 0},
{OP(0, 0, 0, OP_PUSH_C_3), 2, 1, 0},
{OP(0, 0, 0, OP_PUSH_C_4), 2, 4, 0},
{OP(0, 0, 0, OP_POP_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_POP_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_POP_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 22, 0, 0},
};
static dstatement_t stack_DA_statements[] = {
{OP(0, 0, 0, OP_PUSH_D_2), 2, 5, 0},
{OP(0, 0, 0, OP_PUSH_D_2), 2, 6, 0},
{OP(0, 0, 0, OP_PUSH_D_1), 2, 7, 0},
{OP(0, 0, 0, OP_PUSH_D_3), 2, 8, 0},
{OP(0, 0, 0, OP_PUSH_D_4), 2, 9, 0},
{OP(0, 0, 0, OP_POP_A_4), 12, 0, 0},
{OP(0, 0, 0, OP_POP_A_3), 16, 0, 0},
{OP(0, 0, 0, OP_POP_A_1), 19, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 20, 0, 0},
{OP(0, 0, 0, OP_POP_A_2), 22, 0, 0},
};
test_t tests[] = {
{
.desc = "stack push A pop A",
.stack_size = 32,
.num_globals = num_globals (test_globals_init1, test_globals_expect1),
.num_statements = num_statements (stack_AA_statements),
.statements = stack_AA_statements,
.init_globals = test_globals_init1,
.expect_globals = test_globals_expect1,
},
{
.desc = "stack push A pop B",
.stack_size = 32,
.num_globals = num_globals (test_globals_init1, test_globals_expect1),
.num_statements = num_statements (stack_AB_statements),
.statements = stack_AB_statements,
.init_globals = test_globals_init1,
.expect_globals = test_globals_expect1,
// FIXME negative field offsets are not official but work because all
// offset calculations are done in 32-bit and thus wrap anyway
.edict_area = 28,
},
{
.desc = "stack push A pop C",
.stack_size = 32,
.num_globals = num_globals (test_globals_init1, test_globals_expect1),
.num_statements = num_statements (stack_AC_statements),
.statements = stack_AC_statements,
.init_globals = test_globals_init1,
.expect_globals = test_globals_expect1,
},
{
.desc = "stack push A pop D",
.stack_size = 32,
.num_globals = num_globals (test_globals_init1, test_globals_expect1),
.num_statements = num_statements (stack_AD_statements),
.statements = stack_AD_statements,
.init_globals = test_globals_init1,
.expect_globals = test_globals_expect1,
},
{
.desc = "stack push B pop A",
.stack_size = 32,
.num_globals = num_globals (test_globals_init2, test_globals_expect2),
.num_statements = num_statements (stack_BA_statements),
.statements = stack_BA_statements,
.init_globals = test_globals_init2,
.expect_globals = test_globals_expect2,
// FIXME negative field offsets are not official but work because all
// offset calculations are done in 32-bit and thus wrap anyway
.edict_area = 28,
},
{
.desc = "stack push C pop A",
.stack_size = 32,
.num_globals = num_globals (test_globals_init2, test_globals_expect2),
.num_statements = num_statements (stack_CA_statements),
.statements = stack_CA_statements,
.init_globals = test_globals_init2,
.expect_globals = test_globals_expect2,
},
{
.desc = "stack push D pop A",
.stack_size = 32,
.num_globals = num_globals (test_globals_init2, test_globals_expect2),
.num_statements = num_statements (stack_DA_statements),
.statements = stack_DA_statements,
.init_globals = test_globals_init2,
.expect_globals = test_globals_expect2,
},
};
#include "main.c"