diff options
author | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-10-23 19:39:43 +0000 |
---|---|---|
committer | gingold <gingold@b72b5c32-5f01-0410-b925-b5c7b92870f7> | 2005-10-23 19:39:43 +0000 |
commit | 37b4ff57b54a81d56dddf36945afe26841527b8f (patch) | |
tree | 70e7583331345689806b02fd44fba1b8f40220c0 /translate/ghdldrv | |
parent | 30ef866f457730def2bd98ddaf821cd4e10c609f (diff) | |
download | ghdl-37b4ff57b54a81d56dddf36945afe26841527b8f.tar.gz ghdl-37b4ff57b54a81d56dddf36945afe26841527b8f.tar.bz2 ghdl-37b4ff57b54a81d56dddf36945afe26841527b8f.zip |
updated (some optim, bug fixes)
Diffstat (limited to 'translate/ghdldrv')
-rw-r--r-- | translate/ghdldrv/ghdlcomp.adb | 20 |
1 files changed, 1 insertions, 19 deletions
diff --git a/translate/ghdldrv/ghdlcomp.adb b/translate/ghdldrv/ghdlcomp.adb index 93e40bba8..eb8990856 100644 --- a/translate/ghdldrv/ghdlcomp.adb +++ b/translate/ghdldrv/ghdlcomp.adb @@ -251,14 +251,10 @@ package body Ghdlcomp is end Perform_Action; -- Command -a - type Command_Analyze is new Command_Lib with null record; + type Command_Analyze is new Command_Comp with null record; function Decode_Command (Cmd : Command_Analyze; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Analyze) return String; - procedure Decode_Option (Cmd : in out Command_Analyze; - Option : String; - Arg : String; - Res : out Option_Res); procedure Perform_Action (Cmd : in out Command_Analyze; Args : Argument_List); @@ -278,20 +274,6 @@ package body Ghdlcomp is return "-a [OPTS] FILEs Analyze FILEs"; end Get_Short_Help; - procedure Decode_Option (Cmd : in out Command_Analyze; - Option : String; - Arg : String; - Res : out Option_Res) - is - begin - if Option = "--expect-failure" then - Flag_Expect_Failure := True; - Res := Option_Ok; - else - Decode_Option (Command_Lib (Cmd), Option, Arg, Res); - end if; - end Decode_Option; - procedure Perform_Action (Cmd : in out Command_Analyze; Args : Argument_List) is |