Daily bump.

[pf3gnuchains/gcc-fork.git] / gcc / ada / s-conca8.adb

diff --git a/gcc/ada/s-conca8.adb b/gcc/ada/s-conca8.adb
index 764fd98..dfc5bf7 100644 (file)
--- a/gcc/ada/s-conca8.adb
+++ b/gcc/ada/s-conca8.adb
@@ -29,9 +29,9 @@
 --                                                                          --
 ------------------------------------------------------------------------------
 
-pragma Warnings (Off);
 pragma Compiler_Unit;
-pragma Warnings (On);
+
+with System.Concat_7;
 
 package body System.Concat_8 is
 
@@ -81,4 +81,22 @@ package body System.Concat_8 is
       R (F .. L) := S8;
    end Str_Concat_8;
 
+   -------------------------
+   -- Str_Concat_Bounds_8 --
+   -------------------------
+
+   procedure Str_Concat_Bounds_8
+     (Lo, Hi                         : out Natural;
+      S1, S2, S3, S4, S5, S6, S7, S8 : String)
+   is
+   begin
+      System.Concat_7.Str_Concat_Bounds_7
+        (Lo, Hi, S2, S3, S4, S5, S6, S7, S8);
+
+      if S1 /= "" then
+         Hi := S1'Last + Hi - Lo + 1;
+         Lo := S1'First;
+      end if;
+   end Str_Concat_Bounds_8;
+
 end System.Concat_8;