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 /translate/ghdldrv/ghdllocal.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 'translate/ghdldrv/ghdllocal.adb')
| -rw-r--r-- | translate/ghdldrv/ghdllocal.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/translate/ghdldrv/ghdllocal.adb b/translate/ghdldrv/ghdllocal.adb index 6565f9dce..310dabbfb 100644 --- a/translate/ghdldrv/ghdllocal.adb +++ b/translate/ghdldrv/ghdllocal.adb @@ -33,6 +33,7 @@ with Configuration; with Files_Map; with Post_Sems; with Disp_Tree; +with Options; package body Ghdllocal is -- Version of the IEEE library to use. This just change pathes. @@ -137,7 +138,7 @@ package body Ghdllocal is -- Silently accept -g and -O. Res := Option_Ok; else - if Flags.Parse_Option (Opt) then + if Options.Parse_Option (Opt) then Res := Option_Ok; end if; end if; @@ -161,9 +162,11 @@ package body Ghdllocal is P (" none: do not use a predefined ieee library"); end Disp_Long_Help; - function Get_Version_Path return String is + function Get_Version_Path return String + is + use Flags; begin - case Flags.Vhdl_Std is + case Vhdl_Std is when Vhdl_87 => return "v87"; when Vhdl_93c |