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.ads | |
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.ads')
-rw-r--r-- | src/ghdldrv/ghdlmain.ads | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlmain.ads b/src/ghdldrv/ghdlmain.ads index bf9b2ef17..1303f0a8c 100644 --- a/src/ghdldrv/ghdlmain.ads +++ b/src/ghdldrv/ghdlmain.ads @@ -49,7 +49,7 @@ package Ghdlmain is procedure Disp_Long_Help (Cmd : Command_Type); -- Perform the action. - procedure Perform_Action (Cmd : Command_Type; Args : Argument_List) + procedure Perform_Action (Cmd : in out Command_Type; Args : Argument_List) is abstract; -- A command that accepts command and help strings. @@ -66,7 +66,8 @@ package Ghdlmain is type Command_Str_Disp is new Command_Str_Type with record Disp : String_Func; end record; - procedure Perform_Action (Cmd : Command_Str_Disp; Args : Argument_List); + procedure Perform_Action (Cmd : in out Command_Str_Disp; + Args : Argument_List); -- Register a command. procedure Register_Command (Cmd : Command_Acc); |