From 3795614337358ad7fc23c8fdad1addd98b98dd67 Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Thu, 29 May 2014 13:42:55 +0200
Subject: libraries: Add Get_Libraries_Chain.

---
 libraries.adb | 4 ++++
 libraries.ads | 3 +++
 2 files changed, 7 insertions(+)

diff --git a/libraries.adb b/libraries.adb
index e0306f42d..91dd27d90 100644
--- a/libraries.adb
+++ b/libraries.adb
@@ -1699,4 +1699,8 @@ package body Libraries is
       return Res;
    end Find_Entity_For_Component;
 
+   function Get_Libraries_Chain return Iir_Library_Declaration is
+   begin
+      return Libraries_Chain;
+   end Get_Libraries_Chain;
 end Libraries;
diff --git a/libraries.ads b/libraries.ads
index 34ae69830..7d53b9895 100644
--- a/libraries.ads
+++ b/libraries.ads
@@ -174,4 +174,7 @@ package Libraries is
    --  If there are severals entities, return NULL_IIR;
    function Find_Entity_For_Component (Name: Name_Id) return Iir_Design_Unit;
 
+   --  Get the chain of libraries.  Can be used only to read (it musn't be
+   --  modified).
+   function Get_Libraries_Chain return Iir_Library_Declaration;
 end Libraries;
-- 
cgit v1.2.3