diff options
| author | Andy Wingo <wingo@pobox.com> | 2019-04-22 09:17:26 +0200 |
|---|---|---|
| committer | Andy Wingo <wingo@pobox.com> | 2019-04-22 09:17:26 +0200 |
| commit | 609df9ea55025669b13ff4c2f4a8e5ead59d8fd7 (patch) | |
| tree | 9e844beb6e5731c2b878e9574ea162b7fce1079e /libguile/lightening/tests/sqrtr_d.c | |
| parent | b35662fb4e71553bdd4b2b358c45d930ddf0bbcb (diff) | |
| parent | 0be4f7a2a1a5ed8bb972f5489013e914d941718d (diff) | |
| download | guile-609df9ea55025669b13ff4c2f4a8e5ead59d8fd7.tar.gz | |
Merge from upstream lightening
Diffstat (limited to 'libguile/lightening/tests/sqrtr_d.c')
| -rw-r--r-- | libguile/lightening/tests/sqrtr_d.c | 8 |
1 files changed, 1 insertions, 7 deletions
diff --git a/libguile/lightening/tests/sqrtr_d.c b/libguile/lightening/tests/sqrtr_d.c index cb17b56ac..35e2230a7 100644 --- a/libguile/lightening/tests/sqrtr_d.c +++ b/libguile/lightening/tests/sqrtr_d.c @@ -4,13 +4,7 @@ static void run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size) { jit_begin(j, arena_base, arena_size); - - const jit_arg_abi_t abi[] = { JIT_ARG_ABI_DOUBLE }; - jit_arg_t args[1]; - const jit_anyreg_t regs[] = { { .fpr=JIT_F0 } }; - - jit_receive(j, 1, abi, args); - jit_load_args(j, 1, abi, args, regs); + jit_load_args_1(j, jit_operand_fpr (JIT_OPERAND_ABI_DOUBLE, JIT_F0)); jit_sqrtr_d(j, JIT_F0, JIT_F0); jit_retr_d(j, JIT_F0); |