aboutsummaryrefslogtreecommitdiff
path: root/gcc/ada/warnsw.ads
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/warnsw.ads')
-rw-r--r--gcc/ada/warnsw.ads7
1 files changed, 6 insertions, 1 deletions
diff --git a/gcc/ada/warnsw.ads b/gcc/ada/warnsw.ads
index 3e1d5c5..9b6313a 100644
--- a/gcc/ada/warnsw.ads
+++ b/gcc/ada/warnsw.ads
@@ -6,7 +6,7 @@
-- --
-- S p e c --
-- --
--- Copyright (C) 1999-2014, Free Software Foundation, Inc. --
+-- Copyright (C) 1999-2016, 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- --
@@ -38,6 +38,10 @@ package Warnsw is
-- here as time goes by. And in fact a really nice idea would be to put
-- them all in a Warn_Record so that they would be easy to save/restore.
+ Warn_On_Late_Primitives : Boolean := False;
+ -- Warn when tagged type public primitives are defined after its private
+ -- extensions.
+
Warn_On_Record_Holes : Boolean := False;
-- Warn when explicit record component clauses leave uncovered holes (gaps)
-- in a record layout. Off by default, set by -gnatw.h (but not -gnatwa).
@@ -91,6 +95,7 @@ package Warnsw is
Warn_On_Dereference : Boolean;
Warn_On_Export_Import : Boolean;
Warn_On_Hiding : Boolean;
+ Warn_On_Late_Primitives : Boolean;
Warn_On_Modified_Unread : Boolean;
Warn_On_No_Value_Assigned : Boolean;
Warn_On_Non_Local_Exception : Boolean;