diff options
Diffstat (limited to 'src/ghdldrv/ghdlcomp.adb')
| -rw-r--r-- | src/ghdldrv/ghdlcomp.adb | 28 |
1 files changed, 14 insertions, 14 deletions
diff --git a/src/ghdldrv/ghdlcomp.adb b/src/ghdldrv/ghdlcomp.adb index c0915af98..c2bd3b79c 100644 --- a/src/ghdldrv/ghdlcomp.adb +++ b/src/ghdldrv/ghdlcomp.adb @@ -109,7 +109,7 @@ package body Ghdlcomp is return Boolean; function Get_Short_Help (Cmd : Command_Run) return String; - procedure Perform_Action (Cmd : Command_Run; + procedure Perform_Action (Cmd : in out Command_Run; Args : Argument_List); function Decode_Command (Cmd : Command_Run; Name : String) @@ -128,7 +128,7 @@ package body Ghdlcomp is end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Run; + procedure Perform_Action (Cmd : in out Command_Run; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -164,7 +164,7 @@ package body Ghdlcomp is Option : String; Arg : String; Res : out Option_State); - procedure Perform_Action (Cmd : Command_Compile; + procedure Perform_Action (Cmd : in out Command_Compile; Args : Argument_List); function Decode_Command (Cmd : Command_Compile; Name : String) @@ -345,7 +345,7 @@ package body Ghdlcomp is end; end Common_Compile_Elab; - procedure Perform_Action (Cmd : Command_Compile; + procedure Perform_Action (Cmd : in out Command_Compile; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -411,7 +411,7 @@ package body Ghdlcomp is return Boolean; function Get_Short_Help (Cmd : Command_Analyze) return String; - procedure Perform_Action (Cmd : Command_Analyze; + procedure Perform_Action (Cmd : in out Command_Analyze; Args : Argument_List); function Decode_Command (Cmd : Command_Analyze; Name : String) @@ -429,7 +429,7 @@ package body Ghdlcomp is return "-a [OPTS] FILEs Analyze FILEs"; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Analyze; + procedure Perform_Action (Cmd : in out Command_Analyze; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -548,7 +548,7 @@ package body Ghdlcomp is Arg : String; Res : out Option_State); - procedure Perform_Action (Cmd : Command_Elab; + procedure Perform_Action (Cmd : in out Command_Elab; Args : Argument_List); function Decode_Command (Cmd : Command_Elab; Name : String) @@ -593,7 +593,7 @@ package body Ghdlcomp is end if; end Decode_Option; - procedure Perform_Action (Cmd : Command_Elab; + procedure Perform_Action (Cmd : in out Command_Elab; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -627,7 +627,7 @@ package body Ghdlcomp is function Decode_Command (Cmd : Command_Dispconfig; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Dispconfig) return String; - procedure Perform_Action (Cmd : Command_Dispconfig; + procedure Perform_Action (Cmd : in out Command_Dispconfig; Args : Argument_List); function Decode_Command (Cmd : Command_Dispconfig; Name : String) @@ -659,7 +659,7 @@ package body Ghdlcomp is end loop; end Disp_Config; - procedure Perform_Action (Cmd : Command_Dispconfig; + procedure Perform_Action (Cmd : in out Command_Dispconfig; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -679,7 +679,7 @@ package body Ghdlcomp is function Decode_Command (Cmd : Command_Make; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Make) return String; - procedure Perform_Action (Cmd : Command_Make; + procedure Perform_Action (Cmd : in out Command_Make; Args : Argument_List); function Decode_Command (Cmd : Command_Make; Name : String) @@ -697,7 +697,7 @@ package body Ghdlcomp is return "-m [OPTS] UNIT [ARCH] Make UNIT"; end Get_Short_Help; - procedure Perform_Action (Cmd : Command_Make; Args : Argument_List) + procedure Perform_Action (Cmd : in out Command_Make; Args : Argument_List) is pragma Unreferenced (Cmd); @@ -806,7 +806,7 @@ package body Ghdlcomp is function Decode_Command (Cmd : Command_Gen_Makefile; Name : String) return Boolean; function Get_Short_Help (Cmd : Command_Gen_Makefile) return String; - procedure Perform_Action (Cmd : Command_Gen_Makefile; + procedure Perform_Action (Cmd : in out Command_Gen_Makefile; Args : Argument_List); function Decode_Command (Cmd : Command_Gen_Makefile; Name : String) @@ -832,7 +832,7 @@ package body Ghdlcomp is return True; end Is_Makeable_File; - procedure Perform_Action (Cmd : Command_Gen_Makefile; + procedure Perform_Action (Cmd : in out Command_Gen_Makefile; Args : Argument_List) is pragma Unreferenced (Cmd); |