aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--gcc/ada/ChangeLog4
-rw-r--r--gcc/ada/exp_dbug.ads17
2 files changed, 14 insertions, 7 deletions
diff --git a/gcc/ada/ChangeLog b/gcc/ada/ChangeLog
index 0d7fc8f..6ceb7ae 100644
--- a/gcc/ada/ChangeLog
+++ b/gcc/ada/ChangeLog
@@ -1,3 +1,7 @@
+2019-09-17 Tom Tromey <tromey@adacore.com>
+
+ * exp_dbug.ads: Update character type comment.
+
2019-09-17 Yannick Moy <moy@adacore.com>
* libgnat/s-arit64.adb (Double_Divide): Simplify needlessly
diff --git a/gcc/ada/exp_dbug.ads b/gcc/ada/exp_dbug.ads
index 5768734..93b9783 100644
--- a/gcc/ada/exp_dbug.ads
+++ b/gcc/ada/exp_dbug.ads
@@ -1452,18 +1452,21 @@ package Exp_Dbug is
-- a character literal, the name is encoded as described in the following
-- paragraph.
- -- A name QUhh, where each 'h' is a lower-case hexadecimal digit, stands
- -- for a character whose Unicode encoding is hh, and QWhhhh likewise stands
- -- for a wide character whose encoding is hhhh. The representation values
- -- are encoded as for ordinary enumeration literals (and have no necessary
- -- relationship to the values encoded in the names).
+ -- The characters 'a'..'z' and '0'..'9' are represented as Qc, where 'c'
+ -- stands for the character itself. A name QUhh, where each 'h' is a
+ -- lower-case hexadecimal digit, stands for a character whose Unicode
+ -- encoding is hh, and QWhhhh likewise stands for a wide character whose
+ -- encoding is hhhh. The representation values are encoded as for ordinary
+ -- enumeration literals (and have no necessary relationship to the values
+ -- encoded in the names).
-- For example, given the type declaration
- -- type x is (A, 'C', B);
+ -- type x is (A, 'C', 'b');
-- the second enumeration literal would be named QU43 and the value
- -- assigned to it would be 1.
+ -- assigned to it would be 1, and the third enumeration literal would be
+ -- named Qb and the value assigned to it would be 2.
-----------------------------------------------
-- Secondary Dispatch tables of tagged types --