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/ghdlrun.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/ghdlrun.adb')
-rw-r--r-- | src/ghdldrv/ghdlrun.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlrun.adb b/src/ghdldrv/ghdlrun.adb index c4d9cc3be..3501bb692 100644 --- a/src/ghdldrv/ghdlrun.adb +++ b/src/ghdldrv/ghdlrun.adb @@ -716,7 +716,7 @@ package body Ghdlrun is function Decode_Command (Cmd : Command_Run_Help; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Run_Help) return String; - procedure Perform_Action (Cmd : in out Command_Run_Help; + procedure Perform_Action (Cmd : Command_Run_Help; Args : Argument_List); function Decode_Command (Cmd : Command_Run_Help; Name : String) @@ -734,7 +734,7 @@ package body Ghdlrun is return "--run-help Disp help for RUNOPTS options"; end Get_Short_Help; - procedure Perform_Action (Cmd : in out Command_Run_Help; + procedure Perform_Action (Cmd : Command_Run_Help; Args : Argument_List) is pragma Unreferenced (Cmd); |