From d43584ca123f03c24aa7e59a43ecf2bd3a6e4863 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 23 Jan 2017 12:54:05 +0100 Subject: [multiple changes] 2017-01-23 Hristian Kirtchev * exp_ch5.adb, freeze.adb, par-ch4.adb, scng.adb, sem_ch13.adb, sem_ch3.adb, sem_ch5.adb, sem_ch5.ads, sem_util.adb, sinfo.ads: Minor reformatting. * exp_ch9.adb: minor style fix in comment. 2017-01-23 Ed Schonberg * sem_ch4.adb (Analyze_Allocator): Handle properly a type derived for a limited record extension with unknown discriminants whose full view has no discriminants. 2017-01-23 Yannick Moy * exp_spark.adb: Alphabetize with clauses. From-SVN: r244788 --- gcc/ada/scng.adb | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'gcc/ada/scng.adb') diff --git a/gcc/ada/scng.adb b/gcc/ada/scng.adb index 0fae960..ba3c950 100644 --- a/gcc/ada/scng.adb +++ b/gcc/ada/scng.adb @@ -158,9 +158,9 @@ package body Scng is | Tok_And | Tok_Apostrophe | Tok_Array - | Tok_At_Sign | Tok_Asterisk | Tok_At + | Tok_At_Sign | Tok_Body | Tok_Box | Tok_Char_Literal @@ -1618,6 +1618,7 @@ package body Scng is else -- AI12-0125-03 : @ is target_name + Accumulate_Checksum ('@'); Scan_Ptr := Scan_Ptr + 1; Token := Tok_At_Sign; @@ -2438,6 +2439,7 @@ package body Scng is -- Invalid graphic characters -- Note that '@' is handled elsewhere, because following AI12-125 -- it denotes the target_name of an assignment. + when '#' | '$' | '?' | '`' | '\' | '^' | '~' => -- If Set_Special_Character has been called for this character, -- cgit v1.1