diff options
author | Tristan Gingold <tgingold@free.fr> | 2020-04-10 12:25:42 +0200 |
---|---|---|
committer | Tristan Gingold <tgingold@free.fr> | 2020-04-10 12:25:42 +0200 |
commit | e81a567678612e4ae54652adcae6943325c4e16a (patch) | |
tree | aed4d3d1b38e83ef1d27419e4fe57e0d4f6aaaa8 /src/ghdldrv/ghdlmain.adb | |
parent | 5071e39d5dd239577dae40782a7dc69033e8920c (diff) | |
download | ghdl-e81a567678612e4ae54652adcae6943325c4e16a.tar.gz ghdl-e81a567678612e4ae54652adcae6943325c4e16a.tar.bz2 ghdl-e81a567678612e4ae54652adcae6943325c4e16a.zip |
ghdldrv: Make Perform_Action cmd parameter in out.
So that it can change the flags written by decode_option.
Diffstat (limited to 'src/ghdldrv/ghdlmain.adb')
-rw-r--r-- | src/ghdldrv/ghdlmain.adb | 15 |
1 files changed, 8 insertions, 7 deletions
diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb index 8e363c6f8..3e72f5494 100644 --- a/src/ghdldrv/ghdlmain.adb +++ b/src/ghdldrv/ghdlmain.adb @@ -93,7 +93,8 @@ package body Ghdlmain is return Cmd.Help_Str.all; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Str_Disp; Args : Argument_List) + procedure Perform_Action + (Cmd : in out Command_Str_Disp; Args : Argument_List) is pragma Unreferenced (Args); begin @@ -110,7 +111,7 @@ package body Ghdlmain is Res : out Option_State); function Get_Short_Help (Cmd : Command_Help) return String; - procedure Perform_Action (Cmd : Command_Help; Args : Argument_List); + procedure Perform_Action (Cmd : in out Command_Help; Args : Argument_List); function Decode_Command (Cmd : Command_Help; Name : String) return Boolean is @@ -138,7 +139,7 @@ package body Ghdlmain is return "-h or --help [CMD] Disp this help or [help on CMD]"; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Help; Args : Argument_List) + procedure Perform_Action (Cmd : in out Command_Help; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -186,7 +187,7 @@ package body Ghdlmain is function Decode_Command (Cmd : Command_Option_Help; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Option_Help) return String; - procedure Perform_Action (Cmd : Command_Option_Help; + procedure Perform_Action (Cmd : in out Command_Option_Help; Args : Argument_List); function Decode_Command (Cmd : Command_Option_Help; Name : String) @@ -204,7 +205,7 @@ package body Ghdlmain is return "--options-help Disp help for analyzer options"; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Option_Help; + procedure Perform_Action (Cmd : in out Command_Option_Help; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -221,7 +222,7 @@ package body Ghdlmain is function Decode_Command (Cmd : Command_Version; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Version) return String; - procedure Perform_Action (Cmd : Command_Version; + procedure Perform_Action (Cmd : in out Command_Version; Args : Argument_List); function Decode_Command (Cmd : Command_Version; Name : String) @@ -239,7 +240,7 @@ package body Ghdlmain is return "-v or --version Disp ghdl version"; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Version; + procedure Perform_Action (Cmd : in out Command_Version; Args : Argument_List) is pragma Unreferenced (Cmd); |