Fix for AArch64 alignment problem (#206)

In addressing modes for load and store instructions, the offset must be a multiple of the memory size being accessed.  When accessing global variables, this may not be the case if the alignment of the variable is less than its size.  Errors occur at link time.

This PR extends the check for a representable offset for the addressing of global
variables to also check whether the variable is correctly aligned.  Only if both conditions are
met can we generate the short sequence Padrp / ADadr.  Otherwise we go through the generic
loadsymbol sequence.

1 files changed, 6 insertions, 1 deletions

diff --git a/aarch64/Asmgen.v b/aarch64/Asmgen.v
index 1c0e41a1..875f3fd1 100644
--- a/aarch64/Asmgen.v
+++ b/aarch64/Asmgen.v
@@ -20,6 +20,11 @@ Local Open Scope string_scope.
 Local Open Scope list_scope.
 Local Open Scope error_monad_scope.
 
+(** Alignment check for symbols *)
+
+Parameter symbol_is_aligned : ident -> Z -> bool.
+(** [symbol_is_aligned id sz] checks whether the symbol [id] is [sz] aligned *)
+
 (** Extracting integer or float registers. *)
 
 Definition ireg_of (r: mreg) : res ireg :=
@@ -942,7 +947,7 @@ Definition transl_addressing (sz: Z) (addr: Op.addressing) (args: list mreg)
                            (insn (ADimm X16 Int64.zero) :: k))
   | Aglobal id ofs, nil =>
       assertion (negb (Archi.pic_code tt));
-      if Ptrofs.eq (Ptrofs.modu ofs (Ptrofs.repr sz)) Ptrofs.zero
+      if Ptrofs.eq (Ptrofs.modu ofs (Ptrofs.repr sz)) Ptrofs.zero && symbol_is_aligned id sz
       then OK (Padrp X16 id ofs :: insn (ADadr X16 id ofs) :: k)
       else OK (loadsymbol X16 id ofs (insn (ADimm X16 Int64.zero) :: k))
   | Ainstack ofs, nil =>