[Ada] Cleanup and modification of unreferenced warnings

[thirdparty/gcc.git] / gcc / ada / libgnat / a-cborse.adb

diff --git a/gcc/ada/libgnat/a-cborse.adb b/gcc/ada/libgnat/a-cborse.adb
index 0328b16f2660af2ed10ee8bef528c2f8ece7bef1..fd1e0feffbce6435d52c1a5262f6d6d091e822bb 100644 (file)
--- a/gcc/ada/libgnat/a-cborse.adb
+++ b/gcc/ada/libgnat/a-cborse.adb
@@ -1099,8 +1099,6 @@ is
       New_Item  : Element_Type)
    is
       Position : Cursor;
-      pragma Unreferenced (Position);
-
       Inserted : Boolean;
 
    begin
@@ -1180,7 +1178,6 @@ is
       Dst_Node : out Count_Type)
    is
       Success : Boolean;
-      pragma Unreferenced (Success);
 
       procedure Set_Element (Node : in out Node_Type);
       pragma Inline (Set_Element);
@@ -1987,6 +1984,7 @@ is
    function To_Set (New_Item : Element_Type) return Set is
       Node     : Count_Type;
       Inserted : Boolean;
+
    begin
       return S : Set (1) do
          Insert_Sans_Hint (S, New_Item, Node, Inserted);