[Ada] Rename Load_Slide internal runtime component as Load_Address

Load_Address is just more consistent with the overall use of the component.

2018-05-21  Olivier Hainque  <hainque@adacore.com>

gcc/ada/

	* libgnat/s-dwalin.ads (Dwarf_Context): Rename Load_Slide as
	Load_Address.
	* libgnat/s-dwalin.adb (Is_Inside): Adjust accordingly.
	(Set_Load_Address): Likewise.
	(Symbolic_Traceback): Likewise.

From-SVN: r260449

diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 6eadcf957fadc6efec6b7f7f5c854896231c0b90..b14fbed476bdfc965a24f4b0779332da857aacf8 100644 (file)
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,11 @@
+2018-04-04  Olivier Hainque  <hainque@adacore.com>
+
+       * libgnat/s-dwalin.ads (Dwarf_Context): Rename Load_Slide as
+       Load_Address.
+       * libgnat/s-dwalin.adb (Is_Inside): Adjust accordingly.
+       (Set_Load_Address): Likewise.
+       (Symbolic_Traceback): Likewise.
+
 2018-04-04  Olivier Hainque  <hainque@adacore.com>
 
        * libgnat/s-trasym__dwarf.adb (Add_Module_To_Cache): Expect a

diff --git a/gcc/ada/libgnat/s-dwalin.adb b/gcc/ada/libgnat/s-dwalin.adb
index a857b67132af9ad39e58fc8d47fdaff31787fb84..70f0125516595de5cd663f43e5c13c5d858a6a7d 100644 (file)
--- a/gcc/ada/libgnat/s-dwalin.adb
+++ b/gcc/ada/libgnat/s-dwalin.adb
@@ -372,8 +372,8 @@ package body System.Dwarf_Lines is
 
    function Is_Inside (C : Dwarf_Context; Addr : Address) return Boolean is
    begin
-      return (Addr >= To_Address (To_Integer (C.Low) + C.Load_Slide)
-                and Addr <= To_Address (To_Integer (C.High) + C.Load_Slide));
+      return (Addr >= To_Address (To_Integer (C.Low) + C.Load_Address)
+                and Addr <= To_Address (To_Integer (C.High) + C.Load_Address));
    end Is_Inside;
 
    ---------
@@ -779,7 +779,7 @@ package body System.Dwarf_Lines is
 
    procedure Set_Load_Address (C : in out Dwarf_Context; Addr : Address) is
    begin
-      C.Load_Slide := To_Integer (Addr);
+      C.Load_Address := To_Integer (Addr);
    end Set_Load_Address;
 
    ------------------
@@ -1548,7 +1548,7 @@ package body System.Dwarf_Lines is
          Addr_In_Traceback := PC_For (Traceback (J));
 
          Addr_To_Lookup := To_Address
-           (To_Integer (Addr_In_Traceback) - C.Load_Slide);
+           (To_Integer (Addr_In_Traceback) - C.Load_Address);
 
          Symbolic_Address
            (C,

diff --git a/gcc/ada/libgnat/s-dwalin.ads b/gcc/ada/libgnat/s-dwalin.ads
index 8aaa8cdb59b6867acf219ab05269ec6653286c7c..58cbf2cf4d058239c4eef4e1733f83593c63dd26 100644 (file)
--- a/gcc/ada/libgnat/s-dwalin.ads
+++ b/gcc/ada/libgnat/s-dwalin.ads
@@ -163,7 +163,7 @@ private
    type Search_Array_Access is access Search_Array;
 
    type Dwarf_Context (In_Exception : Boolean := False) is record
-      Load_Slide : System.Storage_Elements.Integer_Address := 0;
+      Load_Address : System.Storage_Elements.Integer_Address := 0;
       Low, High  : Address;
       --  Bounds of the module, per the module object file