ada: Pass Error_Node to calls to Error_Msg in lib-load.adb
commit2071134b54aa4f9af01d7d6212dacf7747168448
authorGhjuvan Lacambre <lacambre@adacore.com>
Tue, 23 May 2023 15:50:24 +0000 (23 17:50 +0200)
committerMarc Poulhiès <poulhies@adacore.com>
Tue, 20 Jun 2023 07:30:48 +0000 (20 09:30 +0200)
treeec1f8811490feafc2d6cfde27a42876bbfd39e9a
parentb1c3d01619e06e7ef49097925b81307f422ec78a
ada: Pass Error_Node to calls to Error_Msg in lib-load.adb

When not passing Error_Node, Error_Msg will treat Current_Node as the
node attached to the message. When this happens in lib-load.adb due to a
file that cannot be loaded, Current_Node might reference a node that
doesn't actually exist. This is a problem when using -gnatdJ and
-fdiagnostics-format, as in this case GNAT will attempt to retrieve
information from the node attached to the message and thus crash when
said node is invalid.

gcc/ada/

* lib-load.adb (Load_Unit): Pass Error_Node to calls to Error_Msg.
gcc/ada/lib-load.adb