From mboxrd@z Thu Jan 1 00:00:00 1970 Return-Path: Received: by sourceware.org (Postfix, from userid 1914) id 4E6393858000; Tue, 9 Nov 2021 09:47:37 +0000 (GMT) DKIM-Filter: OpenDKIM Filter v2.11.0 sourceware.org 4E6393858000 MIME-Version: 1.0 Content-Transfer-Encoding: 7bit Content-Type: text/plain; charset="utf-8" From: Pierre-Marie de Rodat To: gcc-cvs@gcc.gnu.org Subject: [gcc r12-5041] [Ada] Print Storage_Pool and Procedure_To_Call fields X-Act-Checkin: gcc X-Git-Author: Eric Botcazou X-Git-Refname: refs/heads/master X-Git-Oldrev: 09afdaeeeba7e4c1fd00f4c43b5e5b36dbe6cf92 X-Git-Newrev: 5861b128b9942ef92b3755610b0459273e7cf234 Message-Id: <20211109094737.4E6393858000@sourceware.org> Date: Tue, 9 Nov 2021 09:47:37 +0000 (GMT) X-BeenThere: gcc-cvs@gcc.gnu.org X-Mailman-Version: 2.1.29 Precedence: list List-Id: Gcc-cvs mailing list List-Unsubscribe: , List-Archive: List-Help: List-Subscribe: , X-List-Received-Date: Tue, 09 Nov 2021 09:47:37 -0000 https://gcc.gnu.org/g:5861b128b9942ef92b3755610b0459273e7cf234 commit r12-5041-g5861b128b9942ef92b3755610b0459273e7cf234 Author: Eric Botcazou Date: Mon Nov 1 10:30:51 2021 +0100 [Ada] Print Storage_Pool and Procedure_To_Call fields gcc/ada/ * sprint.adb (Sprint_Node_Actual) : Also print the Procedure_To_Call field if it is present. : Also print the Storage_Pool and Procedure_To_Call fields if they are present. : Likewise. : Likewise. Diff: --- gcc/ada/sprint.adb | 54 +++++++++++++++++++++++++++++++++++++++++++++++++----- 1 file changed, 49 insertions(+), 5 deletions(-) diff --git a/gcc/ada/sprint.adb b/gcc/ada/sprint.adb index 69996cbbc00..611563a1f22 100644 --- a/gcc/ada/sprint.adb +++ b/gcc/ada/sprint.adb @@ -1116,6 +1116,12 @@ package body Sprint is Write_Char (']'); end if; + if Present (Procedure_To_Call (Node)) then + Write_Str_With_Col_Check ("[procedure_to_call = "); + Sprint_Node (Procedure_To_Call (Node)); + Write_Char (']'); + end if; + when N_And_Then => Sprint_Left_Opnd (Node); Write_Str_Sloc (" and then "); @@ -1785,11 +1791,23 @@ package body Sprint is if Present (Handled_Statement_Sequence (Node)) then Write_Str_With_Col_Check (" do"); Sprint_Node (Handled_Statement_Sequence (Node)); - Write_Indent_Str ("end return;"); - else - Write_Indent_Str (";"); + Write_Indent_Str ("end return"); + end if; + + if Present (Storage_Pool (Node)) then + Write_Str_With_Col_Check ("[storage_pool = "); + Sprint_Node (Storage_Pool (Node)); + Write_Char (']'); end if; + if Present (Procedure_To_Call (Node)) then + Write_Str_With_Col_Check ("[procedure_to_call = "); + Sprint_Node (Procedure_To_Call (Node)); + Write_Char (']'); + end if; + + Write_Char (';'); + when N_Delta_Aggregate => Write_Str_With_Col_Check_Sloc ("("); Sprint_Node (Expression (Node)); @@ -1973,6 +1991,19 @@ package body Sprint is when N_Free_Statement => Write_Indent_Str_Sloc ("free "); Sprint_Node (Expression (Node)); + + if Present (Storage_Pool (Node)) then + Write_Str_With_Col_Check ("[storage_pool = "); + Sprint_Node (Storage_Pool (Node)); + Write_Char (']'); + end if; + + if Present (Procedure_To_Call (Node)) then + Write_Str_With_Col_Check ("[procedure_to_call = "); + Sprint_Node (Procedure_To_Call (Node)); + Write_Char (']'); + end if; + Write_Char (';'); when N_Freeze_Entity => @@ -3170,11 +3201,24 @@ package body Sprint is if Present (Expression (Node)) then Write_Indent_Str_Sloc ("return "); Sprint_Node (Expression (Node)); - Write_Char (';'); else - Write_Indent_Str_Sloc ("return;"); + Write_Indent_Str_Sloc ("return"); + end if; + + if Present (Storage_Pool (Node)) then + Write_Str_With_Col_Check ("[storage_pool = "); + Sprint_Node (Storage_Pool (Node)); + Write_Char (']'); end if; + if Present (Procedure_To_Call (Node)) then + Write_Str_With_Col_Check ("[procedure_to_call = "); + Sprint_Node (Procedure_To_Call (Node)); + Write_Char (']'); + end if; + + Write_Char (';'); + when N_Selective_Accept => Write_Indent_Str_Sloc ("select");