[Ada] Initialize Current_Source_Unit

Pierre-Marie de Rodat derodat@adacore.com
Tue Nov 9 09:46:12 GMT 2021

Preprocessing may call Error_Msg though Current_Source_Unit is not
initialized. When gnat1 is compiled with gnatVa, this leads to a

Tested on x86_64-pc-linux-gnu, committed on trunk


	* sinput.ads: Initialize Current_Source_Unit to No_Unit.
-------------- next part --------------
A non-text attachment was scrubbed...
Name: patch.diff
Type: text/x-diff
Size: 963 bytes
Desc: not available
URL: <https://gcc.gnu.org/pipermail/gcc-patches/attachments/20211109/3493bd56/attachment.bin>

More information about the Gcc-patches mailing list