TeamHeptaMirrors/gcc
1
0
Fork 1
mirror of https://github.com/gcc-mirror/gcc.git synced 2026-05-06 23:25:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

ada: Include finally statements in debug pretty-printing

Browse Source 
Handled sequence of statements now includes optional finally statements.

gcc/ada/ChangeLog:

	* sprint.adb (Sprint_Node_Actual): Print finally statements, if
	present.
This commit is contained in:
Piotr Trojanek
2025-09-10 19:12:22 +02:00
committed by Marc Poulhiès
parent fde2299c3a
commit bbd00cd05d
1 changed files with 7 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
gcc/ada/sprint.adb
View File

@@ -2190,6 +2190,13 @@ package body Sprint is
Indent_End;
end if;
if Present (Finally_Statements (Node)) then
Write_Indent_Str ("finally");
Indent_Begin;
Sprint_Node_List (Finally_Statements (Node));
Indent_End;
end if;
Sprint_At_End_Proc (Node);
when N_Identifier =>