791       Npad       : constant Integer := Count - Slen;  constant
794       if Npad <= 0 then
812                if Npad >= Max_Length then
816                   Result.Data (1 .. Max_Length - Npad) :=
818                   Result.Data (Max_Length - Npad + 1 .. Max_Length) :=
838       Npad       : constant Integer  := Count - Slen;  constant
842       if Npad <= 0 then
857                if Npad > Max_Length then
862                   Source.Data (1 .. Max_Length - Npad) :=
865                   for J in Max_Length - Npad + 1 .. Max_Length loop
1405       Npad       : constant Integer := Count - Slen;  constant
1408       if Npad <= 0 then
1415          Result.Data (1 .. Npad) := (others => Pad);
1416          Result.Data (Npad + 1 .. Count) := Source.Data (1 .. Slen);
1423                if Npad >= Max_Length then
1427                   Result.Data (1 .. Npad) := (others => Pad);
1428                   Result.Data (Npad + 1 .. Max_Length) :=
1429                     Source.Data (1 .. Max_Length - Npad);
1453       Npad       : constant Integer  := Count - Slen;  constant
1458       if Npad <= 0 then
1465          Source.Data (1 .. Npad) := (others => Pad);
1466          Source.Data (Npad + 1 .. Count) := Temp (1 .. Slen);
1473                if Npad >= Max_Length then
1477                   Source.Data (1 .. Npad) := (others => Pad);
1478                   Source.Data (Npad + 1 .. Max_Length) :=
1479                     Temp (1 .. Max_Length - Npad);