From: Alexandre Oliva <oliva@adacore.com>
Date: Thu, 29 Dec 2022 17:33:02 +0000 (-0300)
Subject: ada: don't map NULL decl to locus
X-Git-Tag: basepoints/gcc-14~2279
X-Git-Url: http://git.ipfire.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=025e3d57995f6a9ede2768cbbe46e4fa49f13b98;p=thirdparty%2Fgcc.git

ada: don't map NULL decl to locus

When decl is NULL, don't record its mapping in the
decl_to_instance_map.


for  gcc/ada/ChangeLog

	* gcc-interface/trans.cc (Sloc_to_locus): Don't map NULL decl.
---

diff --git a/gcc/ada/gcc-interface/trans.cc b/gcc/ada/gcc-interface/trans.cc
index 59332f93614a..6579ad11cc28 100644
--- a/gcc/ada/gcc-interface/trans.cc
+++ b/gcc/ada/gcc-interface/trans.cc
@@ -10564,7 +10564,7 @@ Sloc_to_locus (Source_Ptr Sloc, location_t *locus, bool clear_column,
   *locus
     = linemap_position_for_line_and_column (line_table, map, line, column);
 
-  if (file_map && file_map[file - 1].Instance)
+  if (decl && file_map && file_map[file - 1].Instance)
     decl_to_instance_map->put (decl, file_map[file - 1].Instance);
 
   return true;