pragma Compiler_Unit;
+with System.Concat_3;
+
package body System.Concat_4 is
pragma Suppress (All_Checks);
R (F .. L) := S4;
end Str_Concat_4;
+ -------------------------
+ -- Str_Concat_Bounds_4 --
+ -------------------------
+
+ procedure Str_Concat_Bounds_4
+ (Lo, Hi : out Natural;
+ S1, S2, S3, S4 : String)
+ is
+ begin
+ System.Concat_3.Str_Concat_Bounds_3 (Lo, Hi, S2, S3, S4);
+
+ if S1 /= "" then
+ Hi := S1'Last + Hi - Lo + 1;
+ Lo := S1'First;
+ end if;
+ end Str_Concat_Bounds_4;
+
end System.Concat_4;