Added option -falign-functions

git-svn-id: https://yquem.inria.fr/compcert/svn/compcert/trunk@1945 fca1b0fc-160b-0410-b1d3-a4f43f01ea2e

1 files changed, 3 insertions, 1 deletions

diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml
index 161c760..86fdf0e 100644
--- a/arm/PrintAsm.ml
+++ b/arm/PrintAsm.ml
@@ -680,7 +680,9 @@ let print_function oc name fn =
     | t :: _ -> t
     |   _    -> Section_text in
   section oc text;
-  fprintf oc "	.align 2\n";
+  let alignment =
+    match !Clflags.option_falignfunctions with Some n -> log2 n | None -> 2 in
+  fprintf oc "	.align %d\n" alignment;
   if not (C2C.atom_is_static name) then
     fprintf oc "	.global	%a\n" print_symb name;
   fprintf oc "%a:\n" print_symb name;