Support Clight initializers of the form "int * x = &y;".

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

1 files changed, 2 insertions, 0 deletions

diff --git a/arm/PrintAsm.ml b/arm/PrintAsm.ml
index da0b5d1..9297a69 100644
--- a/arm/PrintAsm.ml
+++ b/arm/PrintAsm.ml
@@ -466,6 +466,8 @@ let print_init oc = function
   | Init_space n ->
       let n = camlint_of_z n in
       if n > 0l then fprintf oc "	.space	%ld\n" n
+  | Init_addrof(symb, ofs) ->
+      fprintf oc "	.word	%a\n" print_symb_ofs (symb, ofs)
   | Init_pointer id ->
       let lbl = new_label() in
       fprintf oc "	.word	.L%d\n" lbl;