diff options
author | Tristan Gingold <tgingold@free.fr> | 2016-09-14 20:27:51 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2016-09-14 20:27:51 +0200 |
commit | d4c687a2bfc5035b8292de0eb222da5cc342777d (patch) | |
tree | ef58d79ac861499dba350e328eb8e2ed92b77138 /src/ghdldrv/ghdllocal.adb | |
parent | 52f10edcb18bfeabe56a99a5ee1d47eae34e32cb (diff) | |
download | ghdl-d4c687a2bfc5035b8292de0eb222da5cc342777d.tar.gz ghdl-d4c687a2bfc5035b8292de0eb222da5cc342777d.tar.bz2 ghdl-d4c687a2bfc5035b8292de0eb222da5cc342777d.zip |
Comments and reformatting.
Diffstat (limited to 'src/ghdldrv/ghdllocal.adb')
-rw-r--r-- | src/ghdldrv/ghdllocal.adb | 12 |
1 files changed, 4 insertions, 8 deletions
diff --git a/src/ghdldrv/ghdllocal.adb b/src/ghdldrv/ghdllocal.adb index 5072ad44f..193910896 100644 --- a/src/ghdldrv/ghdllocal.adb +++ b/src/ghdldrv/ghdllocal.adb @@ -43,8 +43,6 @@ package body Ghdllocal is type Ieee_Lib_Kind is (Lib_Standard, Lib_None, Lib_Synopsys, Lib_Mentor); Flag_Ieee : Ieee_Lib_Kind; - Flag_Create_Default_Config : constant Boolean := True; - -- If TRUE, generate 32bits code on 64bits machines. Flag_32bit : Boolean := False; @@ -100,12 +98,10 @@ package body Ghdllocal is end if; if Flags.Flag_Elaborate then - if Flag_Create_Default_Config then - Lib := Get_Library_Unit (Unit); - if Get_Kind (Lib) = Iir_Kind_Architecture_Body then - Config := Canon.Create_Default_Configuration_Declaration (Lib); - Set_Default_Configuration_Declaration (Lib, Config); - end if; + Lib := Get_Library_Unit (Unit); + if Get_Kind (Lib) = Iir_Kind_Architecture_Body then + Config := Canon.Create_Default_Configuration_Declaration (Lib); + Set_Default_Configuration_Declaration (Lib, Config); end if; end if; end Finish_Compilation; |