From c8004bbf5b8f27cbe22f380ffcced02c7a0cd5ee Mon Sep 17 00:00:00 2001
From: Tristan Gingold <tgingold@free.fr>
Date: Sat, 27 Apr 2019 07:54:52 +0200
Subject: trans-chap12: minor rewrite.

---
 src/vhdl/translate/trans-chap12.adb | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/vhdl/translate/trans-chap12.adb b/src/vhdl/translate/trans-chap12.adb
index 132763024..387c80863 100644
--- a/src/vhdl/translate/trans-chap12.adb
+++ b/src/vhdl/translate/trans-chap12.adb
@@ -592,6 +592,8 @@ package body Trans.Chap12 is
    is
       use Configuration;
 
+      Has_Filelist : constant Boolean := Filelist /= "";
+
       Unit : Iir_Design_Unit;
       Lib_Unit : Iir;
       Config_Lib : Iir_Configuration_Declaration;
@@ -750,7 +752,7 @@ package body Trans.Chap12 is
       end if;
 
       --  Write the file containing the list of object files.
-      if Filelist /= "" then
+      if Has_Filelist then
          Write_File_List (Filelist);
       end if;
 
-- 
cgit v1.2.3