* gcc-interface/utils2.c (build_unary_op) <ATTR_ADDR_EXPR>: Do not

[pf3gnuchains/gcc-fork.git] / gcc / ada / g-stseme.adb

diff --git a/gcc/ada/g-stseme.adb b/gcc/ada/g-stseme.adb
index c47adc8..2e797b0 100644 (file)
--- a/gcc/ada/g-stseme.adb
+++ b/gcc/ada/g-stseme.adb
@@ -34,7 +34,7 @@
 --  since on that platform socket errno values are distinct from the system
 --  ones: there is a specific variant of this function in g-socthi-mingw.adb.
 
-with System.CRTL;
+with System.CRTL.Runtime;
 
 separate (GNAT.Sockets.Thin)
 
@@ -46,7 +46,8 @@ function Socket_Error_Message
   (Errno : Integer) return C.Strings.chars_ptr
 is
    use type Interfaces.C.Strings.chars_ptr;
-   C_Msg : constant C.Strings.chars_ptr := System.CRTL.strerror (Errno);
+   C_Msg : constant C.Strings.chars_ptr :=
+             System.CRTL.Runtime.strerror (Errno);
 
 begin
    if C_Msg = C.Strings.Null_Ptr then