Skip to content

R
riscv-gcc-1
Commit 171d182e by Emmanuel Briot Committed by Arnaud Charlet
Options

g-comlin.adb (Getopt): Fix handling of "*" switch when not collapsing switches. 

2007-08-14  Emmanuel Briot  <briot@adacore.com>

	* g-comlin.adb (Getopt): Fix handling of "*" switch when not collapsing
	switches.

From-SVN: r127451
parent 154c1657
Showing with 22 additions and 0 deletions
gcc/ada/g-comlin.adb
......@@ -581,6 +581,17 @@ package body GNAT.Command_Line is
-- If Concatenate is False and the full argument is not
-- recognized as a switch, this is an invalid switch.
if Switches (Switches'First) = '*' then
Set_Parameter
(The_Switch,
Arg_Num => Current_Argument,
First => 1,
Last => CL.Argument (Current_Argument)'Last);
Is_Switch (Current_Argument) := True;
Dummy := Goto_Next_Argument_In_Section;
return '*';
end if;
Set_Parameter (The_Switch,
Arg_Num => Current_Argument,
First => Current_Index,
......@@ -597,6 +608,17 @@ package body GNAT.Command_Line is
-- If Concatenate is False and the full argument is not
-- recognized as a switch, this is an invalid switch.
if Switches (Switches'First) = '*' then
Set_Parameter
(The_Switch,
Arg_Num => Current_Argument,
First => 1,
Last => CL.Argument (Current_Argument)'Last);
Is_Switch (Current_Argument) := True;
Dummy := Goto_Next_Argument_In_Section;
return '*';
end if;
Set_Parameter (The_Switch,
Arg_Num => Current_Argument,
First => Current_Index,
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment