[Ada] Pragma Warning_As_Error works for style warnings

[thirdparty/gcc.git] / gcc / ada / stringt.adb

diff --git a/gcc/ada/stringt.adb b/gcc/ada/stringt.adb
index bacb5064f87441828bab1120b63a7379f39cdd15..545705ad511ce08b9162ae1dc413d1658b4e21ec 100644 (file)
--- a/gcc/ada/stringt.adb
+++ b/gcc/ada/stringt.adb
@@ -349,6 +349,17 @@ package body Stringt is
       return Strings.Table (First_String_Id)'Address;
    end Strings_Address;
 
+   ---------------
+   -- To_String --
+   ---------------
+
+   function To_String (S : String_Id) return String is
+      Buf : Bounded_String;
+   begin
+      Append (Buf, S);
+      return To_String (Buf);
+   end To_String;
+
    ---------------
    -- Tree_Read --
    ---------------