diff options
| author | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-11-10 10:35:35 +0100 |
|---|---|---|
| committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2016-11-10 10:35:35 +0100 |
| commit | 4eb3efa2ccbf58c59a8d181c7d616b3d0c06e02b (patch) | |
| tree | 63a46d2ec6462679523877c6e8d1b54c298bf16c /backend | |
| parent | 3f2584ada2c61c2648366a0318bb6996909c5623 (diff) | |
| download | compcert-4eb3efa2ccbf58c59a8d181c7d616b3d0c06e02b.tar.gz compcert-4eb3efa2ccbf58c59a8d181c7d616b3d0c06e02b.zip | |
Use 64 bit address in debug information.
Address constants need to be 64bit also in the debug information.
Bug 20335
Diffstat (limited to 'backend')
| -rw-r--r-- | backend/PrintAsm.ml | 1 | ||||
| -rw-r--r-- | backend/PrintAsmaux.ml | 1 |
2 files changed, 2 insertions, 0 deletions
diff --git a/backend/PrintAsm.ml b/backend/PrintAsm.ml index 8e43a050..9292745d 100644 --- a/backend/PrintAsm.ml +++ b/backend/PrintAsm.ml @@ -113,6 +113,7 @@ module Printer(Target:TARGET) = let section = Target.section let symbol = Target.symbol let comment = Target.comment + let address = Target.address end module DebugPrinter = DwarfPrinter (DwarfTarget) diff --git a/backend/PrintAsmaux.ml b/backend/PrintAsmaux.ml index b220659c..ff276af1 100644 --- a/backend/PrintAsmaux.ml +++ b/backend/PrintAsmaux.ml @@ -45,6 +45,7 @@ module type TARGET = val default_falignment: int val new_label: unit -> int val label: out_channel -> int -> unit + val address: string end (* On-the-fly label renaming *) |