diff options
author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-16 13:21:25 +0000 |
---|---|---|
committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2015-10-16 13:21:25 +0000 |
commit | 9d7b1171c5b4fe214cf182ff90d9b1fdf8118bf4 (patch) | |
tree | 969cea25010639ae9811a44b6bf6f4d08c5dcd60 /gcc/ada/a-convec.adb | |
parent | 7687b035670708c7c56d9e93700571ea6c80ac6d (diff) | |
download | gcc-9d7b1171c5b4fe214cf182ff90d9b1fdf8118bf4.tar.gz |
Complete previous change.
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@228900 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/a-convec.adb')
-rw-r--r-- | gcc/ada/a-convec.adb | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/ada/a-convec.adb b/gcc/ada/a-convec.adb index b6440f9f58b..a3d7464e941 100644 --- a/gcc/ada/a-convec.adb +++ b/gcc/ada/a-convec.adb @@ -618,7 +618,9 @@ package body Ada.Containers.Vectors is end Finalize; procedure Finalize (Object : in out Iterator) is + pragma Warnings (Off); pragma Assert (T_Check); -- not called if check suppressed + pragma Warnings (On); begin Unbusy (Object.Container.TC); end Finalize; |