[Guile-commits] 04/14: Add a test for local forward and backward jumps

[Andy Wingo]

wingo pushed a commit to branch master
in repository guile.

commit 1656fc1d81e7e2978edd3438c4390de6f95c471b
Author: Icecream95 <ixn@keemail.me>
AuthorDate: Thu Apr 9 17:31:25 2020 +1200

    Add a test for local forward and backward jumps
---
 tests/jmpi_local.c | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)

diff --git a/tests/jmpi_local.c b/tests/jmpi_local.c
new file mode 100644
index 0000000..49e4507
--- /dev/null
+++ b/tests/jmpi_local.c
@@ -0,0 +1,25 @@
+#include "test.h"
+
+static void
+run_test(jit_state_t *j, uint8_t *arena_base, size_t arena_size)
+{
+  jit_begin(j, arena_base, arena_size);
+
+  jit_reloc_t r = jit_jmp (j);
+  jit_reti (j, 0);
+  jit_pointer_t addr = jit_address (j);
+  jit_reti (j, 1);
+  jit_patch_here (j, r);
+  jit_jmpi (j, addr);
+  jit_reti (j, 2);
+
+  int (*f)(void) = jit_end(j, NULL);
+
+  ASSERT(f() == 1);
+}
+
+int
+main (int argc, char *argv[])
+{
+  return main_helper(argc, argv, run_test);
+}