[Ada] Print Storage_Pool and Procedure_To_Call fields
authorEric Botcazou <ebotcazou@adacore.com>
Mon, 1 Nov 2021 09:30:51 +0000 (10:30 +0100)
committerPierre-Marie de Rodat <derodat@adacore.com>
Tue, 9 Nov 2021 09:44:50 +0000 (09:44 +0000)
commit5861b128b9942ef92b3755610b0459273e7cf234
treed96fb14a217e064c4dfe4b3a00bc71b82d347214
parent09afdaeeeba7e4c1fd00f4c43b5e5b36dbe6cf92
[Ada] Print Storage_Pool and Procedure_To_Call fields

gcc/ada/

* sprint.adb (Sprint_Node_Actual) <N_Allocator>: Also print the
Procedure_To_Call field if it is present.
<N_Extended_Return_Statement>: Also print the Storage_Pool and
Procedure_To_Call fields if they are present.
<N_Free_Statement>: Likewise.
<N_Simple_Return_Statement>: Likewise.
gcc/ada/sprint.adb