From ddbcda718c3f7a3ce68906932d4e19478cfe3db6 Mon Sep 17 00:00:00 2001 From: Eric Botcazou Date: Wed, 6 Oct 2021 18:07:15 +0200 Subject: [Ada] Export No_Exception_Propagation_Active for use by gigi gcc/ada/ * fe.h (No_Exception_Propagation_Active): Declare. * restrict.ads (No_Exception_Propagation_Active): Add WARNING line. --- gcc/ada/fe.h | 3 +++ 1 file changed, 3 insertions(+) (limited to 'gcc/ada/fe.h') diff --git a/gcc/ada/fe.h b/gcc/ada/fe.h index 957f40b..67cc218 100644 --- a/gcc/ada/fe.h +++ b/gcc/ada/fe.h @@ -260,6 +260,8 @@ extern Boolean Back_End_Exceptions (void); restrict__check_no_implicit_task_alloc #define No_Exception_Handlers_Set \ restrict__no_exception_handlers_set +#define No_Exception_Propagation_Active \ + restrict__no_exception_propagation_active extern void Check_Elaboration_Code_Allowed (Node_Id); extern void Check_Implicit_Dynamic_Code_Allowed (Node_Id); @@ -267,6 +269,7 @@ extern void Check_No_Implicit_Heap_Alloc (Node_Id); extern void Check_No_Implicit_Protected_Alloc (Node_Id); extern void Check_No_Implicit_Task_Alloc (Node_Id); extern Boolean No_Exception_Handlers_Set (void); +extern Boolean No_Exception_Propagation_Active (void); /* sem_aggr: */ -- cgit v1.1