diff options
| author | Tristan Gingold <tgingold@free.fr> | 2018-12-16 07:23:01 +0100 |
|---|---|---|
| committer | Tristan Gingold <tgingold@free.fr> | 2018-12-16 07:23:01 +0100 |
| commit | 92e91061ff7f0db968d20896156a7e0e45bd60cf (patch) | |
| tree | 732b7d81561dbcbfbe9f5a4a451fd9ebfb0830d3 /src/ghdldrv/ghdlmain.adb | |
| parent | e541000ba31ab4a63649ea60b1f282aeaa33da96 (diff) | |
| download | ghdl-92e91061ff7f0db968d20896156a7e0e45bd60cf.tar.gz ghdl-92e91061ff7f0db968d20896156a7e0e45bd60cf.tar.bz2 ghdl-92e91061ff7f0db968d20896156a7e0e45bd60cf.zip | |
ghdldrv: Cmd argument of Perform_Action is now in.
Diffstat (limited to 'src/ghdldrv/ghdlmain.adb')
| -rw-r--r-- | src/ghdldrv/ghdlmain.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/ghdldrv/ghdlmain.adb b/src/ghdldrv/ghdlmain.adb index 52bfab5b9..4e655f37a 100644 --- a/src/ghdldrv/ghdlmain.adb +++ b/src/ghdldrv/ghdlmain.adb @@ -89,7 +89,7 @@ package body Ghdlmain is Res : out Option_Res); function Get_Short_Help (Cmd : Command_Help) return String; - procedure Perform_Action (Cmd : in out Command_Help; Args : Argument_List); + procedure Perform_Action (Cmd : Command_Help; Args : Argument_List); function Decode_Command (Cmd : Command_Help; Name : String) return Boolean is @@ -117,7 +117,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 : in out Command_Help; Args : Argument_List) + procedure Perform_Action (Cmd : Command_Help; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -165,7 +165,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 : in out Command_Option_Help; + procedure Perform_Action (Cmd : Command_Option_Help; Args : Argument_List); function Decode_Command (Cmd : Command_Option_Help; Name : String) @@ -183,7 +183,7 @@ package body Ghdlmain is return "--options-help Disp help for analyzer options"; end Get_Short_Help; - procedure Perform_Action (Cmd : in out Command_Option_Help; + procedure Perform_Action (Cmd : Command_Option_Help; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -200,7 +200,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 : in out Command_Version; + procedure Perform_Action (Cmd : Command_Version; Args : Argument_List); function Decode_Command (Cmd : Command_Version; Name : String) @@ -218,7 +218,7 @@ package body Ghdlmain is return "-v or --version Disp ghdl version"; end Get_Short_Help; - procedure Perform_Action (Cmd : in out Command_Version; + procedure Perform_Action (Cmd : Command_Version; Args : Argument_List) is pragma Unreferenced (Cmd); |