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/ghdlvpi.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/ghdlvpi.adb')
| -rw-r--r-- | src/ghdldrv/ghdlvpi.adb | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/ghdldrv/ghdlvpi.adb b/src/ghdldrv/ghdlvpi.adb index 295b7300e..af619cb90 100644 --- a/src/ghdldrv/ghdlvpi.adb +++ b/src/ghdldrv/ghdlvpi.adb @@ -168,7 +168,7 @@ package body Ghdlvpi is Extra_Args : Extra_Args_Func; end record; - procedure Perform_Action (Cmd : Command_Spawn_Type; + procedure Perform_Action (Cmd : in out Command_Spawn_Type; Args : Argument_List); procedure Decode_Option (Cmd : in out Command_Spawn_Type; Option : String; @@ -191,7 +191,7 @@ package body Ghdlvpi is end if; end Decode_Option; - procedure Perform_Action (Cmd : Command_Spawn_Type; + procedure Perform_Action (Cmd : in out Command_Spawn_Type; Args : Argument_List) is begin Spawn_Compile (Args, Cmd.Extra_Args.all, Cmd.Flag_Verbose); @@ -202,10 +202,10 @@ package body Ghdlvpi is type Command_Vpi_Flags is new Command_Str_Type with record Flags : Extra_Args_Func; end record; - procedure Perform_Action (Cmd : Command_Vpi_Flags; + procedure Perform_Action (Cmd : in out Command_Vpi_Flags; Args : Argument_List); - procedure Perform_Action (Cmd : Command_Vpi_Flags; + procedure Perform_Action (Cmd : in out Command_Vpi_Flags; Args : Argument_List) is pragma Unreferenced (Args); |