diff options
author | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-08-21 15:21:36 +0200 |
---|---|---|
committer | Bernhard Schommer <bernhardschommer@gmail.com> | 2015-08-21 15:21:36 +0200 |
commit | 8d2e4a51d56b7f4d3673a5132edd1adb37a14295 (patch) | |
tree | ae812b2aea814c14c2c64a32c46ae14791e9dc25 /powerpc/TargetPrinter.ml | |
parent | 5f798720574bf9d694da271e3e8bf699a4726497 (diff) | |
download | compcert-kvx-8d2e4a51d56b7f4d3673a5132edd1adb37a14295.tar.gz compcert-kvx-8d2e4a51d56b7f4d3673a5132edd1adb37a14295.zip |
Added symbol functions for printing of the location for global variables.
Diffstat (limited to 'powerpc/TargetPrinter.ml')
-rw-r--r-- | powerpc/TargetPrinter.ml | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/powerpc/TargetPrinter.ml b/powerpc/TargetPrinter.ml index 8610f750..1e78f038 100644 --- a/powerpc/TargetPrinter.ml +++ b/powerpc/TargetPrinter.ml @@ -854,7 +854,16 @@ module Target (System : SYSTEM):TARGET = let section oc sec = section oc sec; debug_section oc sec + + let locations = (Hashtbl.create 17 : (atom,DwarfTypes.location_value) Hashtbl.t) + let get_location a = try Some (Hashtbl.find locations a) with Not_found -> None + + let get_segment_location _ = None + + let add_var_location a = + if !Clflags.option_g && Configuration.advanced_debug then + Hashtbl.add locations a (DwarfTypes.LocSymbol a); end let sel_target () = |