From 86af8ab7aa5f56ce5636eb6b8d48b03d52b415eb Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 14 Jun 2014 17:34:15 +0200
Subject: configuration: add Check_Entity_Declaration_Top from translation.
 evaluation: add Get_Path_Instance_Name_Suffix from translation. grt-signals:
 rename ghdl_signal_direct_driver to ghdl_signal_add_direct_driver.  add
 ghdl_signal_direct_assign; make active_chain private.

---
 evaluation.ads | 12 ++++++++++++
 1 file changed, 12 insertions(+)

(limited to 'evaluation.ads')

diff --git a/evaluation.ads b/evaluation.ads
index 7a4df00bb..86dd977b4 100644
--- a/evaluation.ads
+++ b/evaluation.ads
@@ -104,4 +104,16 @@ package Evaluation is
    --  Compare two string literals (of same length).
    type Compare_Type is (Compare_Lt, Compare_Eq, Compare_Gt);
    function Compare_String_Literals (L, R : Iir) return Compare_Type;
+
+   --  Return the local part of 'Instance_Name or 'Path_Name.
+   type Path_Instance_Name_Type (Len : Natural) is record
+      --  The node before suffix (entity, architecture or generate iterator).
+      Path_Instance : Iir;
+
+      --  The suffix
+      Suffix : String (1 .. Len);
+   end record;
+
+   function Get_Path_Instance_Name_Suffix (Attr : Iir)
+                                          return Path_Instance_Name_Type;
 end Evaluation;
-- 
cgit v1.2.3