1 files changed, 18 insertions, 0 deletions
diff --git a/gcc/ada/s-conca2.adb b/gcc/ada/s-conca2.adb
index 1764575..a1d424b 100644
--- a/gcc/ada/s-conca2.adb
+++ b/gcc/ada/s-conca2.adb
@@ -52,4 +52,22 @@ package body System.Concat_2 is
       R (F .. L) := S2;
    end Str_Concat_2;
 
+   -------------------------
+   -- Str_Concat_Bounds_2 --
+   -------------------------
+
+   procedure Str_Concat_Bounds_2
+     (Lo, Hi : out Natural;
+      S1, S2 : String)
+   is
+   begin
+      if S1 = "" then
+         Lo := S2'First;
+         Hi := S2'Last;
+      else
+         Lo := S1'First;
+         Hi := S1'Last + S2'Length;
+      end if;
+   end Str_Concat_Bounds_2;
+
 end System.Concat_2;