This variable wasn't used anymore. No functional change. Tested on x86_64-pc-linux-gnu, committed on trunk
2012-10-04 Tristan Gingold <ging...@adacore.com> * init.c (__gl_zero_cost_exceptions): Comment it as not used anymore. * bindgen.adb (Gen_Adainit): Do not emit Zero_Cost_Exceptions anymore.
Index: bindgen.adb =================================================================== --- bindgen.adb (revision 192066) +++ bindgen.adb (working copy) @@ -137,7 +137,6 @@ -- 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 @@ -- 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 @@ """__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 @@ 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 Index: init.c =================================================================== --- init.c (revision 192066) +++ init.c (working copy) @@ -103,12 +103,14 @@ int __gl_num_interrupt_states = 0; int __gl_unreserve_all_interrupts = 0; int __gl_exception_tracebacks = 0; -int __gl_zero_cost_exceptions = 0; int __gl_detect_blocking = 0; int __gl_default_stack_size = -1; int __gl_leap_seconds_support = 0; int __gl_canonical_streams = 0; +/* This value is not used anymore, but kept for bootstrapping purpose. */ +int __gl_zero_cost_exceptions = 0; + /* Indication of whether synchronous signal handler has already been installed by a previous call to adainit. */ int __gnat_handler_installed = 0;