diff options
| -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 e0306f4..91dd27d 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 34ae698..7d53b98 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; |