From ec5cdde54b8b59e6bb0ecdd05938adc8f40e8521 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sun, 5 May 2019 08:13:25 +0200
Subject: vhdl: move evaluation to vhdl child.

---
 src/vhdl/vhdl-ieee-vital_timing.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/vhdl/vhdl-ieee-vital_timing.adb')

diff --git a/src/vhdl/vhdl-ieee-vital_timing.adb b/src/vhdl/vhdl-ieee-vital_timing.adb
index 3a343858f..0cd175a05 100644
--- a/src/vhdl/vhdl-ieee-vital_timing.adb
+++ b/src/vhdl/vhdl-ieee-vital_timing.adb
@@ -24,7 +24,7 @@ with Name_Table;
 with Vhdl.Ieee.Std_Logic_1164; use Vhdl.Ieee.Std_Logic_1164;
 with Vhdl.Sem_Scopes;
 with Vhdl.Sem_Specs;
-with Evaluation;
+with Vhdl.Evaluation;
 with Vhdl.Sem;
 with Iirs_Utils;
 
@@ -569,7 +569,7 @@ package body Vhdl.Ieee.Vital_Timing is
             if Get_Type_Staticness (Itype) /= Locally then
                return Port_Length_Unknown;
             end if;
-            return Evaluation.Eval_Discrete_Type_Length (Itype);
+            return Vhdl.Evaluation.Eval_Discrete_Type_Length (Itype);
          else
             return Port_Length_Error;
          end if;
@@ -639,7 +639,7 @@ package body Vhdl.Ieee.Vital_Timing is
          if Get_Type_Staticness (Itype) /= Locally then
             return Port_Length_Unknown;
          else
-            return Evaluation.Eval_Discrete_Type_Length (Itype);
+            return Vhdl.Evaluation.Eval_Discrete_Type_Length (Itype);
          end if;
       end Get_Timing_Generic_Type_Length;
 
-- 
cgit v1.2.3