gcc/ada/a-strsup.adb

343       New_Item : Super_String;
348       Rlen       : constant Natural := New_Item.Current_Length;
354          Source.Data (Llen + 1 .. Nlen) := New_Item.Data (1 .. Rlen);
363                     New_Item.Data (1 .. Max_Length - Llen);
368                   Source.Data := New_Item.Data;
374                     New_Item.Data (1 .. Rlen);
442       New_Item : String;
447       Rlen   : constant Natural := New_Item'Length;
453          Source.Data (Llen + 1 .. Nlen) := New_Item;
462                     New_Item (New_Item'First ..
463                                 New_Item'First - 1 + Max_Length - Llen);
469                     New_Item (New_Item'Last - (Max_Length - 1) ..
470                                 New_Item'Last);
476                     New_Item;
580       New_Item : Character;
589          Source.Data (Llen + 1) := New_Item;
601                Source.Data (Max_Length) := New_Item;
938       New_Item : String;
945       Nlen       : constant Natural := New_Item'Length;
962          Result.Data (Before .. Before + Nlen - 1) := New_Item;
975                     New_Item (New_Item'First
976                                 .. New_Item'First + Max_Length - Before);
978                   Result.Data (Before .. Before + Nlen - 1) := New_Item;
989                     New_Item (New_Item'Last - (Max_Length - Alen) + 1
990                                 .. New_Item'Last);
994                     New_Item;
1010       New_Item : String;
1018       Source := Super_Insert (Source, Before, New_Item, Drop);
1037       New_Item  : String;
1043       Endpos     : constant Natural  := Position + New_Item'Length - 1;
1051       elsif New_Item'Length = 0 then
1057          Result.Data (Position .. Endpos) := New_Item;
1063          Result.Data (Position .. Endpos) := New_Item;
1076                  New_Item (New_Item'First .. New_Item'Last - Droplen);
1080                if New_Item'Length >= Max_Length then
1082                     New_Item (New_Item'Last - Max_Length + 1 ..
1083                                 New_Item'Last);
1087                   Result.Data (1 .. Max_Length - New_Item'Length) :=
1090                     (Max_Length - New_Item'Length + 1 .. Max_Length) :=
1091                     New_Item;
1104       New_Item  : String;
1108       Endpos     : constant Positive := Position + New_Item'Length - 1;
1117          Source.Data (Position .. Endpos) := New_Item;
1120          Source.Data (Position .. Endpos) := New_Item;
1130                  New_Item (New_Item'First .. New_Item'Last - Droplen);
1133                if New_Item'Length > Max_Length then
1135                     New_Item (New_Item'Last - Max_Length + 1 ..
1136                                 New_Item'Last);
1139                   Source.Data (1 .. Max_Length - New_Item'Length) :=
1143                     (Max_Length - New_Item'Length + 1 .. Max_Length) :=
1144                     New_Item;