diff options
| author | gingold | 2008-08-31 02:22:57 +0000 |
|---|---|---|
| committer | gingold | 2008-08-31 02:22:57 +0000 |
| commit | b42e36e23f23a0d27e7b08d6cb4461237720de3b (patch) | |
| tree | 05c59df8138658b9f811510264c32bb753123bc0 /translate/ghdldrv/ghdldrv.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/ghdldrv.adb')
| -rw-r--r-- | translate/ghdldrv/ghdldrv.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/translate/ghdldrv/ghdldrv.adb b/translate/ghdldrv/ghdldrv.adb index 9de01b4..b21d633 100644 --- a/translate/ghdldrv/ghdldrv.adb +++ b/translate/ghdldrv/ghdldrv.adb @@ -36,6 +36,7 @@ with System; with Ghdlmain; use Ghdlmain; with Ghdllocal; use Ghdllocal; with Version; +with Options; package body Ghdldrv is -- Name of the tools used. @@ -655,7 +656,7 @@ package body Ghdldrv is Add_Argument (Compiler_Args, new String'(Opt)); Flag_Expect_Failure := True; Res := Option_Ok; - elsif Flags.Parse_Option (Opt) then + elsif Options.Parse_Option (Opt) then Add_Argument (Compiler_Args, new String'(Opt)); Res := Option_Ok; elsif Opt'Length >= 2 |