diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-11-09 12:25:47 +0100 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2017-11-09 12:25:47 +0100 |
commit | 92ff9919ff370d914e597f3675670516ac71b6dc (patch) | |
tree | 7fc62c107c85d4d1ae8951c2c3386bdcf43f2086 /backend/PrintAsm.ml | |
parent | 78ac4c5a63c10b3d1d6488d7677deb62c447c69c (diff) | |
download | compcert-92ff9919ff370d914e597f3675670516ac71b6dc.tar.gz compcert-92ff9919ff370d914e597f3675670516ac71b6dc.zip |
Use address for printing address constant. Bug 22525
Diffstat (limited to 'backend/PrintAsm.ml')
-rw-r--r-- | backend/PrintAsm.ml | 5 |
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 = |