diff options
Diffstat (limited to 'gcc/ada/bindgen.adb')
| -rw-r--r-- | gcc/ada/bindgen.adb | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/gcc/ada/bindgen.adb b/gcc/ada/bindgen.adb index 094b25da42e..bb5a0aac906 100644 --- a/gcc/ada/bindgen.adb +++ b/gcc/ada/bindgen.adb @@ -137,7 +137,6 @@ package body Bindgen is -- Num_Interrupt_States : Integer; -- Unreserve_All_Interrupts : Integer; -- Exception_Tracebacks : Integer; - -- Zero_Cost_Exceptions : Integer; -- Detect_Blocking : Integer; -- Default_Stack_Size : Integer; -- Leap_Seconds_Support : Integer; @@ -216,9 +215,6 @@ package body Bindgen is -- tracebacks are provided by default, so a value of zero for this -- parameter does not necessarily mean no trace backs are available. - -- Zero_Cost_Exceptions is set to one if zero cost exceptions are used for - -- this partition, and to zero if longjmp/setjmp exceptions are used. - -- Detect_Blocking indicates whether pragma Detect_Blocking is active or -- not. A value of zero indicates that the pragma is not present, while a -- value of 1 signals its presence in the partition. @@ -607,9 +603,6 @@ package body Bindgen is """__gl_exception_tracebacks"");"); end if; - WBI (" Zero_Cost_Exceptions : Integer;"); - WBI (" pragma Import (C, Zero_Cost_Exceptions, " & - """__gl_zero_cost_exceptions"");"); WBI (" Detect_Blocking : Integer;"); WBI (" pragma Import (C, Detect_Blocking, " & """__gl_detect_blocking"");"); @@ -803,17 +796,6 @@ package body Bindgen is WBI (" Exception_Tracebacks := 1;"); end if; - Set_String (" Zero_Cost_Exceptions := "); - - if Zero_Cost_Exceptions_Specified then - Set_String ("1"); - else - Set_String ("0"); - end if; - - Set_String (";"); - Write_Statement_Buffer; - Set_String (" Detect_Blocking := "); if Detect_Blocking then |