diff options
| author | Ghjuvan Lacambre <lacambre@adacore.com> | 2021-05-26 18:02:34 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-08 13:34:19 +0000 |
| commit | 6105ebb782756b449ee2ebec01bd4dd2c256ff17 (patch) | |
| tree | 09e51deaf592456f68886668a4f083e21fea8c4c /gcc | |
| parent | 6cb2bcba3f31c6ec93fe76ff5e0f67db43556ef7 (diff) | |
| download | gcc-6105ebb782756b449ee2ebec01bd4dd2c256ff17.zip gcc-6105ebb782756b449ee2ebec01bd4dd2c256ff17.tar.gz gcc-6105ebb782756b449ee2ebec01bd4dd2c256ff17.tar.bz2 | |
[Ada] Fix use of single question mark in error message
gcc/ada/
* exp_prag.adb (Expand_Pragma_Inspection_Point): Fix error
message.
Diffstat (limited to 'gcc')
| -rw-r--r-- | gcc/ada/exp_prag.adb | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/ada/exp_prag.adb b/gcc/ada/exp_prag.adb index f686395..43ecdcd 100644 --- a/gcc/ada/exp_prag.adb +++ b/gcc/ada/exp_prag.adb @@ -2413,7 +2413,7 @@ package body Exp_Prag is if Present (Freeze_Node (Entity (Expression (Assoc)))) and then not Is_Frozen (Entity (Expression (Assoc))) then - Error_Msg_NE ("?inspection point references unfrozen object &", + Error_Msg_NE ("??inspection point references unfrozen object &", Assoc, Entity (Expression (Assoc))); Remove_Inspection_Point := True; |