ARM: Add support for ARM relocations to buildvm.

diff --git a/dynasm/dasm_arm.lua b/dynasm/dasm_arm.lua
index 37ba7fab80fc142d49a0727f25dd79324fa35c73..011757c1171d7bc32f78bb020e10fec4fba38633 100644 (file)
--- a/dynasm/dasm_arm.lua
+++ b/dynasm/dasm_arm.lua
@@ -723,7 +723,7 @@ map_op[".template__"] = function(params, template, nparams)
        op = op + parse_gpr(p)
       else
        if op < 0xe0000000 then werror("unconditional instruction") end
-       local mode, n, s = parse_label(params[n], false)
+       local mode, n, s = parse_label(p, false)
        waction("REL_"..mode, n, s, 1)
        op = 0xfa000000
       end

diff --git a/src/buildvm_asm.c b/src/buildvm_asm.c
index 1f5d59a3593dfdfef219a242b81aff48c05064f5..6468912ce340c84ad7c137c29eda970a2249a530 100644 (file)
--- a/src/buildvm_asm.c
+++ b/src/buildvm_asm.c
@@ -96,7 +96,17 @@ static void emit_asm_wordreloc(BuildCtx *ctx, uint8_t *p, int n,
   emit_asm_words(ctx, p, n-4);
   ins = *(uint32_t *)(p+n-4);
 #if LJ_TARGET_ARM
-  UNUSED(sym);  /* NYI */
+  if ((ins & 0xff000000u) == 0xfa000000u) {
+    fprintf(ctx->fp, "\tblx %s\n", sym);
+  } else if ((ins & 0x0e000000u) == 0x0a000000u) {
+    fprintf(ctx->fp, "\t%s%.2s %s\n", (ins & 0x01000000u) ? "bl" : "b",
+           "eqnecsccmiplvsvchilsgeltgtle" + 2*(ins >> 28), sym);
+  } else {
+    fprintf(stderr,
+           "Error: unsupported opcode %08x for %s symbol relocation.\n",
+           ins, sym);
+    exit(1);
+  }
 #elif LJ_TARGET_PPC
   if ((ins >> 26) == 16) {
     fprintf(ctx->fp, "\t%s %d, %d, %s\n",
@@ -185,7 +195,7 @@ void emit_asm(BuildCtx *ctx)
     int32_t ofs = ctx->sym[i].ofs;
     int32_t next = ctx->sym[i+1].ofs;
     emit_asm_label(ctx, ctx->sym[i].name, next - ofs, 1);
-    while (rel < ctx->nreloc && ctx->reloc[rel].ofs < next) {
+    while (rel < ctx->nreloc && ctx->reloc[rel].ofs <= next) {
       BuildReloc *r = &ctx->reloc[rel];
       int n = r->ofs - ofs;
 #if LJ_TARGET_X86ORX64