From 8d2e4a51d56b7f4d3673a5132edd1adb37a14295 Mon Sep 17 00:00:00 2001
From: Bernhard Schommer <bernhardschommer@gmail.com>
Date: Fri, 21 Aug 2015 15:21:36 +0200
Subject: Added symbol functions for printing of the location for global
 variables.

---
 powerpc/TargetPrinter.ml | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'powerpc/TargetPrinter.ml')

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 () =
-- 
cgit