diff options
author | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-11-01 09:55:35 +0000 |
---|---|---|
committer | xleroy <xleroy@fca1b0fc-160b-0410-b1d3-a4f43f01ea2e> | 2009-11-01 09:55:35 +0000 |
commit | 033aa0555a209fa3e825b1eeb8a5fc00ff8163e3 (patch) | |
tree | b107715bdfd95d6aa1080e96cc5b919bb94ae3fb /arm | |
parent | 258a1feeafb9ebcec4d46601fe7016bed04a8ea7 (diff) |
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
Diffstat (limited to 'arm')
-rw-r--r-- | arm/PrintAsm.ml | 2 |
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; |