diff options
author | Tristan Gingold <tgingold@free.fr> | 2014-12-15 20:26:46 +0100 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2014-12-15 20:26:46 +0100 |
commit | 4b9aaf248b05d911bab756c683be500c78d6f534 (patch) | |
tree | 0f9570b137c1619aac31299adcd69d087fa00233 /src/libraries.adb | |
parent | 6d2b8c7bfcbd534406243093d1ec5e77ac4c8484 (diff) | |
download | ghdl-4b9aaf248b05d911bab756c683be500c78d6f534.tar.gz ghdl-4b9aaf248b05d911bab756c683be500c78d6f534.tar.bz2 ghdl-4b9aaf248b05d911bab756c683be500c78d6f534.zip |
Fix style.
Diffstat (limited to 'src/libraries.adb')
-rw-r--r-- | src/libraries.adb | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/src/libraries.adb b/src/libraries.adb index 7fd2b69ef..c125e3cbf 100644 --- a/src/libraries.adb +++ b/src/libraries.adb @@ -197,12 +197,9 @@ package body Libraries is Prev, File, Next : Iir_Design_File; Unit : Iir_Design_Unit; - File_Name : Name_Id; - Dir_Name : Name_Id; + File_Name : constant Name_Id := Get_Design_File_Filename (Design_File); + Dir_Name : constant Name_Id := Get_Design_File_Directory (Design_File); begin - File_Name := Get_Design_File_Filename (Design_File); - Dir_Name := Get_Design_File_Directory (Design_File); - File := Get_Design_File_Chain (Work_Library); Prev := Null_Iir; while File /= Null_Iir loop |