mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-03 11:10:47 +08:00
Code Issues Packages Projects Releases Wiki Activity

[Ada] Don't crash on ghost packages when emitting CUDA symbols in ALI files

Browse Source 
Before this commit, a GNAT compiled with assertions would crash when
attempting to emit CUDA symbols in ALI files for spark_mode/ghost
packages, whose content is a single null statement.

gcc/ada/

	* lib-writ.adb (Output_CUDA_Symbols): Check for null packages.
This commit is contained in:
Ghjuvan Lacambre 2022-03-14 09:58:52 +01:00 committed by Pierre-Marie de Rodat
parent f29e9e8896
commit 9eb55045f8
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
gcc/ada/lib-writ.adb
View File

@ -403,7 +403,9 @@ package body Lib.Writ is
Kernel_Elm : Elmt_Id;
Kernel : Entity_Id;
begin
if not Enable_CUDA_Expansion then
if not Enable_CUDA_Expansion
or else Nkind (Unit_Id) = N_Null_Statement
then
return;
end if;
Spec_Id := (if Nkind (Unit_Id) = N_Package_Body