summaryrefslogtreecommitdiff
path: root/gcc/ada/debug.adb
diff options
context:
space:
mode:
Diffstat (limited to 'gcc/ada/debug.adb')
-rw-r--r--gcc/ada/debug.adb8
1 files changed, 7 insertions, 1 deletions
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb
index 8399a2c9900..49fae93306b 100644
--- a/gcc/ada/debug.adb
+++ b/gcc/ada/debug.adb
@@ -107,7 +107,7 @@ package body Debug is
-- d.n Print source file names
-- d.o Generate .NET listing of CIL code
-- d.p Enable the .NET CIL verifier
- -- d.q
+ -- d.q Quit on badly tagged warning message
-- d.r Enable OK_To_Reorder_Components in non-variant records
-- d.s Disable expansion of slice move, use memmove
-- d.t Disable static allocation of library level dispatch tables
@@ -561,6 +561,12 @@ package body Debug is
-- disabled by default and this flag is used to enable it. In the
-- future we will reverse this functionality.
+ -- d.q All warning and info messages are supposed to be tagged with one
+ -- of the extended warning sequences such as ?? or <x<. The use of a
+ -- single ? or < is allowed for transitional purposes, but these are
+ -- intended to disappear. This debug switch makes it fatal to have a
+ -- warning presented which is not tagged (Program Error is raised).
+
-- d.r Forces the flag OK_To_Reorder_Components to be set in all record
-- base types that have no discriminants.