[gcc r12-3727] [Ada] Remove "with GNAT.OS_Lib; " from libgnat/a-stbufi.ads

[Pierre-Marie de Rodat]

https://gcc.gnu.org/g:4d027eea556463895e524514c947b080a173b6e9

commit r12-3727-g4d027eea556463895e524514c947b080a173b6e9
Author: Bob Duff <duff@adacore.com>
Date:   Wed Jun 30 08:33:26 2021 -0400

    [Ada] Remove "with GNAT.OS_Lib;" from libgnat/a-stbufi.ads
    
    gcc/ada/
    
            * libgnat/a-stbufi.ads, libgnat/a-stbufi.adb: Change all
            occurrences of GNAT.OS_Lib to System.OS_Lib.

Diff:
---
 gcc/ada/libgnat/a-stbufi.adb |  2 +-
 gcc/ada/libgnat/a-stbufi.ads | 12 +++++++-----
 2 files changed, 8 insertions(+), 6 deletions(-)

diff --git a/gcc/ada/libgnat/a-stbufi.adb b/gcc/ada/libgnat/a-stbufi.adb
index 0a8feab5989..656e7bddd13 100644
--- a/gcc/ada/libgnat/a-stbufi.adb
+++ b/gcc/ada/libgnat/a-stbufi.adb
@@ -45,7 +45,7 @@ package body Ada.Strings.Text_Buffers.Files is
    end Put_UTF_8_Implementation;
 
    function Create_From_FD
-     (FD                      : GNAT.OS_Lib.File_Descriptor;
+     (FD                      : System.OS_Lib.File_Descriptor;
       Close_Upon_Finalization : Boolean := True) return File_Buffer
    is
       use OS;
diff --git a/gcc/ada/libgnat/a-stbufi.ads b/gcc/ada/libgnat/a-stbufi.ads
index 2a2db9002cc..b9444abdb88 100644
--- a/gcc/ada/libgnat/a-stbufi.ads
+++ b/gcc/ada/libgnat/a-stbufi.ads
@@ -30,7 +30,7 @@
 ------------------------------------------------------------------------------
 
 with Ada.Finalization;
-with GNAT.OS_Lib;
+with System.OS_Lib;
 
 package Ada.Strings.Text_Buffers.Files is
 
@@ -38,7 +38,7 @@ package Ada.Strings.Text_Buffers.Files is
    --  Output written to a File_Buffer is written to the associated file.
 
    function Create_From_FD
-     (FD                      : GNAT.OS_Lib.File_Descriptor;
+     (FD                      : System.OS_Lib.File_Descriptor;
       Close_Upon_Finalization : Boolean := True)
      return File_Buffer;
    --  file closed upon finalization if specified
@@ -47,9 +47,11 @@ package Ada.Strings.Text_Buffers.Files is
    --  file closed upon finalization
 
    function Create_Standard_Output_Buffer return File_Buffer is
-     (Create_From_FD (GNAT.OS_Lib.Standout, Close_Upon_Finalization => False));
+     (Create_From_FD (System.OS_Lib.Standout,
+                      Close_Upon_Finalization => False));
    function Create_Standard_Error_Buffer return File_Buffer is
-     (Create_From_FD (GNAT.OS_Lib.Standerr, Close_Upon_Finalization => False));
+     (Create_From_FD (System.OS_Lib.Standerr,
+                      Close_Upon_Finalization => False));
 
 private
 
@@ -60,7 +62,7 @@ private
 
    package Mapping is new Output_Mapping (Put_UTF_8_Implementation);
 
-   package OS renames GNAT.OS_Lib;
+   package OS renames System.OS_Lib;
 
    type Self_Ref (Self : not null access File_Buffer)
      is new Finalization.Limited_Controlled with null record;