diff options
Diffstat (limited to 'gcc/ada/a-rbtgso.adb')
-rw-r--r-- | gcc/ada/a-rbtgso.adb | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/a-rbtgso.adb b/gcc/ada/a-rbtgso.adb index fc0c706304a..ad4f76f5df6 100644 --- a/gcc/ada/a-rbtgso.adb +++ b/gcc/ada/a-rbtgso.adb @@ -7,7 +7,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 2004-2006, Free Software Foundation, Inc. -- +-- Copyright (C) 2004-2007, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -51,6 +51,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is pragma Assert (Tree.Lock = 0); Root : Node_Access := Tree.Root; + pragma Warnings (Off, Root); begin Tree.Root := null; @@ -145,6 +146,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is R_Node : Node_Access := Right.First; Dst_Node : Node_Access; + pragma Warnings (Off, Dst_Node); begin if Left'Address = Right'Address then @@ -268,6 +270,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is R_Node : Node_Access := Right.First; Dst_Node : Node_Access; + pragma Warnings (Off, Dst_Node); begin if Left'Address = Right'Address then @@ -396,6 +399,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is Src : Node_Access := Source.First; New_Tgt_Node : Node_Access; + pragma Warnings (Off, New_Tgt_Node); begin if Target.Busy > 0 then @@ -460,6 +464,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Set_Operations is R_Node : Node_Access := Right.First; Dst_Node : Node_Access; + pragma Warnings (Off, Dst_Node); begin if Left'Address = Right'Address then |