diff options
| author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
|---|---|---|
| committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2010-01-12 03:15:20 +0000 |
| commit | fb5957a16dea47ae4021c5d4c57b980cea02ee59 (patch) | |
| tree | abdfbed5924f5be4418f74a0afe50b248e41c330 /translate/ghdldrv/ghdlsimul.adb | |
| parent | 8cca0b24e2c19eedecffdeec89a8a2898da1e362 (diff) | |
| download | ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.gz ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.tar.bz2 ghdl-fb5957a16dea47ae4021c5d4c57b980cea02ee59.zip | |
ghdl 0.29 release.
Diffstat (limited to 'translate/ghdldrv/ghdlsimul.adb')
| -rw-r--r-- | translate/ghdldrv/ghdlsimul.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/translate/ghdldrv/ghdlsimul.adb b/translate/ghdldrv/ghdlsimul.adb index 506b2ed02..abeb7bb9f 100644 --- a/translate/ghdldrv/ghdlsimul.adb +++ b/translate/ghdldrv/ghdlsimul.adb @@ -25,6 +25,7 @@ with Back_End; with Name_Table; with Errorout; use Errorout; with Std_Package; +with Libraries; with Canon; with Configuration; with Annotations; @@ -37,6 +38,7 @@ with Ghdlcomp; package body Ghdlsimul is Flag_Expect_Failure : Boolean := False; + pragma Unreferenced (Flag_Expect_Failure); procedure Compile_Init (Analyze_Only : Boolean) is begin @@ -73,7 +75,6 @@ package body Ghdlsimul is end Compile_Elab; -- Set options. - -- This is a little bit over-kill: from C to Ada and then again to C... procedure Set_Run_Options (Args : Argument_List) is Arg : String_Access; |