diff options
Diffstat (limited to 'src/ghdldrv/ghdlxml.adb')
| -rw-r--r-- | src/ghdldrv/ghdlxml.adb | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/ghdldrv/ghdlxml.adb b/src/ghdldrv/ghdlxml.adb index 5a201955d..3829dc0a8 100644 --- a/src/ghdldrv/ghdlxml.adb +++ b/src/ghdldrv/ghdlxml.adb @@ -512,7 +512,7 @@ package body Ghdlxml is return Boolean; function Get_Short_Help (Cmd : Command_File_To_Xml) return String; - procedure Perform_Action (Cmd : Command_File_To_Xml; + procedure Perform_Action (Cmd : in out Command_File_To_Xml; Files_Name : Argument_List); function Decode_Command (Cmd : Command_File_To_Xml; Name : String) @@ -531,7 +531,7 @@ package body Ghdlxml is end Get_Short_Help; procedure Perform_Action - (Cmd : Command_File_To_Xml; Files_Name : Argument_List) + (Cmd : in out Command_File_To_Xml; Files_Name : Argument_List) is pragma Unreferenced (Cmd); |