-- 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,
-- 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,