gcc/ada/make.adb

1920          Comp_Last : Integer;  variable
1990             Comp_Last := Comp_Next + Args'Length - 3;
1994             Comp_Last := Comp_Next + Args'Length - 1;
2004             Last  : constant Natural := Comp_Last;
2016                      Comp_Last := Comp_Last - 1;
2040                   Comp_Args (Comp_Args'First + 2 .. Comp_Last + 1) :=
2041                     Comp_Args (Comp_Args'First + 1 .. Comp_Last);
2042                   Comp_Last := Comp_Last + 1;
2062             Comp_Last := Comp_Last + 1;
2063             Comp_Args (Comp_Last) := Ada_Flag_1;
2064             Comp_Last := Comp_Last + 1;
2065             Comp_Args (Comp_Last) := AdaSCIL_Flag;
2068             Comp_Last := Comp_Last + 1;
2069             Comp_Args (Comp_Last) := Ada_Flag_1;
2070             Comp_Last := Comp_Last + 1;
2071             Comp_Args (Comp_Last) := Ada_Flag_2;
2078                Comp_Last := Comp_Last + 1;
2079                Comp_Args (Comp_Last) :=
2100             Comp_Last := Comp_Last + 1;
2101             Comp_Args (Comp_Last) := Output_Flag;
2102             Comp_Last := Comp_Last + 1;
2108                Comp_Args (Comp_Last) :=
2113                Comp_Args (Comp_Last) :=
2119             Comp_Last := Comp_Last + 1;
2120             Comp_Args (Comp_Last) := new String'(Mapping_File_Arg.all);
2125          Comp_Last := Comp_Last + 1;
2126          Comp_Args (Comp_Last) := new String'(Name_Buffer (1 .. Name_Len));
2130          GNAT.OS_Lib.Normalize_Arguments (Comp_Args (Args'First .. Comp_Last));
2132          Comp_Last := Comp_Last + 1;
2133          Comp_Args (Comp_Last) := new String'("-gnatez");
2135          Display (Gcc.all, Comp_Args (Args'First .. Comp_Last));
2143              (Gcc_Path.all, Comp_Args (Args'First .. Comp_Last));