diff options
| author | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:42:55 +0200 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2014-05-29 13:42:55 +0200 |
| commit | 3795614337358ad7fc23c8fdad1addd98b98dd67 (patch) | |
| tree | 347fe633db750d146ffb1c026379467e05380b2b | |
| parent | 2f9dd1c6ae96ae1c53f2ad88d3ea2a8cc298fa24 (diff) | |
| download | ghdl-3795614337358ad7fc23c8fdad1addd98b98dd67.tar.gz ghdl-3795614337358ad7fc23c8fdad1addd98b98dd67.tar.bz2 ghdl-3795614337358ad7fc23c8fdad1addd98b98dd67.zip | |
libraries: Add Get_Libraries_Chain.
| -rw-r--r-- | libraries.adb | 4 | ||||
| -rw-r--r-- | libraries.ads | 3 |
2 files changed, 7 insertions, 0 deletions
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; |