diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-05-23 10:44:55 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-05-23 10:44:55 +0200 |
commit | 5ebeb5e2277b550b12614642522fd1c86fd580b0 (patch) | |
tree | 5d56300de2985d95fa480036b36ef1a099f24b2e /src/grt/grt-disp_rti.adb | |
parent | 7d81c7853f6e9d47b524ea6222e41cca4d9c85b6 (diff) | |
download | ghdl-5ebeb5e2277b550b12614642522fd1c86fd580b0.tar.gz ghdl-5ebeb5e2277b550b12614642522fd1c86fd580b0.tar.bz2 ghdl-5ebeb5e2277b550b12614642522fd1c86fd580b0.zip |
grt: fix warnings from gnatgpl2020.
Was actuals overlap.
Diffstat (limited to 'src/grt/grt-disp_rti.adb')
-rw-r--r-- | src/grt/grt-disp_rti.adb | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/src/grt/grt-disp_rti.adb b/src/grt/grt-disp_rti.adb index b908a3c3b..823b9f1fe 100644 --- a/src/grt/grt-disp_rti.adb +++ b/src/grt/grt-disp_rti.adb @@ -882,18 +882,18 @@ package body Grt.Disp_Rti is Ctxt : Rti_Context; Indent : Natural) is - Addr, Bounds : Address; + Obj_Addr, Base, Bounds : Address; Obj_Type : Ghdl_Rti_Access; begin Disp_Obj_Header (Obj, Indent); - Addr := Loc_To_Addr (Obj.Common.Depth, Obj.Loc, Ctxt); + Obj_Addr := Loc_To_Addr (Obj.Common.Depth, Obj.Loc, Ctxt); Obj_Type := Obj.Obj_Type; - Disp_Subtype_Indication (Obj_Type, Ctxt, Addr); + Disp_Subtype_Indication (Obj_Type, Ctxt, Obj_Addr); Put (" := "); - Object_To_Base_Bounds (Obj_Type, Addr, Addr, Bounds); - Disp_Value (stdout, Obj_Type, Ctxt, Addr, Bounds, Is_Sig); + Object_To_Base_Bounds (Obj_Type, Obj_Addr, Base, Bounds); + Disp_Value (stdout, Obj_Type, Ctxt, Base, Bounds, Is_Sig); New_Line; end Disp_Object; |