-- --
------------------------------------------------------------------------------
-pragma Warnings (Off);
pragma Compiler_Unit;
-pragma Warnings (On);
+
+with System.Concat_2;
package body System.Concat_3 is
R (F .. L) := S3;
end Str_Concat_3;
+ -------------------------
+ -- Str_Concat_Bounds_3 --
+ -------------------------
+
+ procedure Str_Concat_Bounds_3
+ (Lo, Hi : out Natural;
+ S1, S2, S3 : String)
+ is
+ begin
+ System.Concat_2.Str_Concat_Bounds_2 (Lo, Hi, S2, S3);
+
+ if S1 /= "" then
+ Hi := S1'Last + Hi - Lo + 1;
+ Lo := S1'First;
+ end if;
+ end Str_Concat_Bounds_3;
+
end System.Concat_3;