aboutsummaryrefslogtreecommitdiffstats
path: root/backend/PrintAsm.ml
diff options
context:
space:
mode:
authorBernhard Schommer <bernhardschommer@gmail.com>2017-11-09 12:25:47 +0100
committerBernhard Schommer <bernhardschommer@gmail.com>2017-11-09 12:25:47 +0100
commit92ff9919ff370d914e597f3675670516ac71b6dc (patch)
tree7fc62c107c85d4d1ae8951c2c3386bdcf43f2086 /backend/PrintAsm.ml
parent78ac4c5a63c10b3d1d6488d7677deb62c447c69c (diff)
downloadcompcert-kvx-92ff9919ff370d914e597f3675670516ac71b6dc.tar.gz
compcert-kvx-92ff9919ff370d914e597f3675670516ac71b6dc.zip
Use address for printing address constant. Bug 22525
Diffstat (limited to 'backend/PrintAsm.ml')
-rw-r--r--backend/PrintAsm.ml5
1 files changed, 3 insertions, 2 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml
index 0a8af584..b489bc11 100644
--- a/backend/PrintAsm.ml
+++ b/backend/PrintAsm.ml
@@ -100,8 +100,9 @@ module Printer(Target:TARGET) =
if Z.gt n Z.zero then
fprintf oc " .space %s\n" (Z.to_string n)
| Init_addrof(symb, ofs) ->
- fprintf oc " .long %a\n"
- symbol_offset (symb, ofs)
+ fprintf oc " %s %a\n"
+ Target.address
+ symbol_offset (symb, ofs)
let print_init_data oc name id =