ada: Fix internal error with pragma Compile_Time_{Warning,Error}
commitbbe40e766bf58158427f4c212655c376768b1c75
authorEric Botcazou <ebotcazou@adacore.com>
Tue, 4 Apr 2023 17:25:11 +0000 (4 19:25 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Mon, 29 May 2023 08:23:21 +0000 (29 10:23 +0200)
treefaf48cd5316e300a8d390bbb2fdc3e01915941e6
parent6fe8909606f79db1fb2107336544b058eaeb6381
ada: Fix internal error with pragma Compile_Time_{Warning,Error}

This happens when the pragmas are deferred to the back-end from an external
unit to the main unit that is generic, because the back-end does not compile
a main unit that is generic.

gcc/ada/

* sem_prag.adb (Process_Compile_Time_Warning_Or_Error): Do not defer
anything to the back-end when the main unit is generic.
gcc/ada/sem_prag.adb