diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-31 02:22:57 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2008-08-31 02:22:57 +0000 |
| commit | b42e36e23f23a0d27e7b08d6cb4461237720de3b (patch) | |
| tree | 05c59df8138658b9f811510264c32bb753123bc0 /back_end.adb | |
| parent | 1d5464fd378387a0e17021af24065784ea66bb47 (diff) | |
| download | ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.tar.gz ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.tar.bz2 ghdl-b42e36e23f23a0d27e7b08d6cb4461237720de3b.zip | |
Create package options from flags to avoid circular elaboration
Diffstat (limited to 'back_end.adb')
| -rw-r--r-- | back_end.adb | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/back_end.adb b/back_end.adb index 034aa23eb..7efb15e79 100644 --- a/back_end.adb +++ b/back_end.adb @@ -15,8 +15,7 @@ -- along with GCC; see the file COPYING. If not, write to the Free -- Software Foundation, 59 Temple Place - Suite 330, Boston, MA -- 02111-1307, USA. -with Flags; -with Types; use Types; +with Flags; use Flags; with Iirs_Utils; use Iirs_Utils; package body Back_End is @@ -27,7 +26,7 @@ package body Back_End is return String is begin - case Flags.Vhdl_Std is + case Vhdl_Std is when Vhdl_87 => return Image_Identifier (Library) & "-obj87.cf"; when Vhdl_93c | Vhdl_93 | Vhdl_00 | Vhdl_02 => |