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/ghdlvpi.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/ghdlvpi.adb')
-rw-r--r-- | src/ghdldrv/ghdlvpi.adb | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/ghdldrv/ghdlvpi.adb b/src/ghdldrv/ghdlvpi.adb index f05761da6..4c25896ea 100644 --- a/src/ghdldrv/ghdlvpi.adb +++ b/src/ghdldrv/ghdlvpi.adb @@ -205,7 +205,7 @@ package body Ghdlvpi is Extra_Args : Extra_Args_Func; end record; - procedure Perform_Action (Cmd : in out Command_Spawn_Type; + procedure Perform_Action (Cmd : Command_Spawn_Type; Args : Argument_List); procedure Decode_Option (Cmd : in out Command_Spawn_Type; Option : String; @@ -228,7 +228,7 @@ package body Ghdlvpi is end if; end Decode_Option; - procedure Perform_Action (Cmd : in out Command_Spawn_Type; + procedure Perform_Action (Cmd : Command_Spawn_Type; Args : Argument_List) is begin Spawn_Compile (Args, Cmd.Extra_Args.all, Cmd.Flag_Verbose); @@ -239,10 +239,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 : in out Command_Vpi_Flags; + procedure Perform_Action (Cmd : Command_Vpi_Flags; Args : Argument_List); - procedure Perform_Action (Cmd : in out Command_Vpi_Flags; + procedure Perform_Action (Cmd : Command_Vpi_Flags; Args : Argument_List) is pragma Unreferenced (Args); @@ -255,10 +255,10 @@ package body Ghdlvpi is type Command_Vpi_Disp is new Command_Str_Type with record Disp : String_Func; end record; - procedure Perform_Action (Cmd : in out Command_Vpi_Disp; + procedure Perform_Action (Cmd : Command_Vpi_Disp; Args : Argument_List); - procedure Perform_Action (Cmd : in out Command_Vpi_Disp; + procedure Perform_Action (Cmd : Command_Vpi_Disp; Args : Argument_List) is pragma Unreferenced (Args); |