Commit b029cc6e by Olivier Hainque Committed by Pierre-Marie de Rodat

[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
parent 08f8a716
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
Load_Address argument and pass it down to Init_Module.
* libgnat/s-tsmona__linux.adb (Build_Cache_For_All_Modules): Pass
......
......@@ -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,
......
......@@ -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
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment