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-avhpi_utils.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-avhpi_utils.adb')
-rw-r--r-- | src/grt/grt-avhpi_utils.adb | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/src/grt/grt-avhpi_utils.adb b/src/grt/grt-avhpi_utils.adb index 77cd15579..62b37014b 100644 --- a/src/grt/grt-avhpi_utils.adb +++ b/src/grt/grt-avhpi_utils.adb @@ -28,17 +28,18 @@ with Grt.Errors; use Grt.Errors; package body Grt.Avhpi_Utils is function Get_Root_Entity (Root : VhpiHandleT) return VhpiHandleT is - Hdl : VhpiHandleT; + Hdl : VhpiHandleT; + Unit : VhpiHandleT; Error : AvhpiErrorT; begin - Vhpi_Handle (VhpiDesignUnit, Root, Hdl, Error); + Vhpi_Handle (VhpiDesignUnit, Root, Unit, Error); if Error /= AvhpiErrorOk then Internal_Error ("VhpiDesignUnit"); end if; - case Vhpi_Get_Kind (Hdl) is + case Vhpi_Get_Kind (Unit) is when VhpiArchBodyK => - Vhpi_Handle (VhpiPrimaryUnit, Hdl, Hdl, Error); + Vhpi_Handle (VhpiPrimaryUnit, Unit, Hdl, Error); if Error /= AvhpiErrorOk then Internal_Error ("VhpiPrimaryUnit"); end if; |