diff options
| author | Justin Squirek <squirek@adacore.com> | 2021-04-08 10:44:19 +0200 |
|---|---|---|
| committer | Pierre-Marie de Rodat <derodat@adacore.com> | 2021-07-05 13:09:09 +0000 |
| commit | b9713be32ba408b1d8002d92c589c6c3ed8f8831 (patch) | |
| tree | 6ff03a1dfa00998d5a9fc2be0939dbb9c874e7a3 | |
| parent | 7c4f32677bb64c3423893441541d520097f238c5 (diff) | |
| download | gcc-b9713be32ba408b1d8002d92c589c6c3ed8f8831.zip gcc-b9713be32ba408b1d8002d92c589c6c3ed8f8831.tar.gz gcc-b9713be32ba408b1d8002d92c589c6c3ed8f8831.tar.bz2 | |
[Ada] Fix crash when printing error message
gcc/ada/
* freeze.adb (Freeze_Profile): Use N's Sloc, F_type's chars.
| -rw-r--r-- | gcc/ada/freeze.adb | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/gcc/ada/freeze.adb b/gcc/ada/freeze.adb index 23b64a0..21d24cd 100644 --- a/gcc/ada/freeze.adb +++ b/gcc/ada/freeze.adb @@ -4141,9 +4141,10 @@ package body Freeze is elsif not After_Last_Declaration and then not Freezing_Library_Level_Tagged_Type then - Error_Msg_Node_1 := F_Type; - Error_Msg_N - ("type & must be fully defined before this point", N); + Error_Msg_NE + ("type & must be fully defined before this point", + N, + F_Type); end if; end if; |