diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-04 09:18:55 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2012-10-04 09:18:55 +0000 |
| commit | 24d00f1fcae8ecc3bd7cfda5397f54cb847c6cb2 (patch) | |
| tree | 478cd1822976f56c843ab7a4356e4072945b9902 /gcc/ada/bindgen.adb | |
| parent | 0f4a8308ada2c4ec0e035a83752fc60a6c708539 (diff) | |
| download | gcc-24d00f1fcae8ecc3bd7cfda5397f54cb847c6cb2.tar.gz | |
2012-10-04 Robert Dewar <dewar@adacore.com>
* sem_eval.adb (Fold_Str, Fold_Uint, Fold_Ureal): Reset static
expression state after Resolve call.
2012-10-04 Robert Dewar <dewar@adacore.com>
* sem_prag.adb (Analyze_Pragma. case Warnngs): Don't make entry
in the table for Warnings Off pragmas if within an instance.
2012-10-04 Ed Schonberg <schonberg@adacore.com>
* sem_ch9.adb (Analyze_Entry_Body): Transfer
Has_Pragma_Unreferenced flag from entry formal to corresponding
entity in body, to prevent spurious warnings when pragma is
present.
2012-10-04 Robert Dewar <dewar@adacore.com>
* s-bignum.adb (Big_Exp): Raise Storage_Error for ludicrously
large results.
2012-10-04 Ed Schonberg <schonberg@adacore.com>
* sem_ch3.adb (Check_Duplicate_Aspects): Diagnose properly
aspects that appear in the partial and the full view of a type.
2012-10-04 Robert Dewar <dewar@adacore.com>
* sinfo.ads (N_Return_Statement): Removed.
2012-10-04 Tristan Gingold <gingold@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.
2012-10-04 Thomas Quinot <quinot@adacore.com>
* prep.adb, prepcomp.adb, gprep.adb, opt.ads: New preprocessor switch
-a (all source text preserved).
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@192072 138bc75d-0d04-0410-961f-82ee72b054a4
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 |