diff options
Diffstat (limited to 'gcc/ada/a-crbtgo.adb')
| -rw-r--r-- | gcc/ada/a-crbtgo.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/a-crbtgo.adb b/gcc/ada/a-crbtgo.adb index 4afce91a4f3..83c980dc182 100644 --- a/gcc/ada/a-crbtgo.adb +++ b/gcc/ada/a-crbtgo.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- -- @@ -598,6 +598,7 @@ package body Ada.Containers.Red_Black_Trees.Generic_Operations is procedure Generic_Delete_Tree (X : in out Node_Access) is Y : Node_Access; + pragma Warnings (Off, Y); begin while X /= null loop Y := Right (X); |