diff options
| author | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-11-09 11:57:50 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2017-11-09 11:57:50 +0000 |
| commit | 6214b83bf1b6d05c9ff3bdb419975851bc131b97 (patch) | |
| tree | 74f848ed28b0a136b05cb612d823f009640808b9 /gcc/ada/opt.ads | |
| parent | d63199d8e6e9fc18cbd48375d7d44c023104ddd4 (diff) | |
| download | gcc-6214b83bf1b6d05c9ff3bdb419975851bc131b97.zip gcc-6214b83bf1b6d05c9ff3bdb419975851bc131b97.tar.gz gcc-6214b83bf1b6d05c9ff3bdb419975851bc131b97.tar.bz2 | |
[multiple changes]
2017-11-09 Javier Miranda <miranda@adacore.com>
* libgnat/s-rident.ads (Static_Dispatch_Tables): New restriction name.
* exp_disp.adb (Building_Static_DT): Check restriction.
(Building_Static_Secondary_DT): Check restriction.
(Make_DT): Initialize the HT_Link to No_Tag.
* opt.ads (Static_Dispatch_Tables): Rename flag...
(Building_Static_Dispatch_Tables): ... into this. This will avoid
conflict with the restriction name.
* gnat1drv.adb: Update.
* exp_aggr.adb (Is_Static_Dispatch_Table_Aggregate): Update.
* exp_ch3.adb (Expand_N_Object_Declaration): Update.
2017-11-09 Pascal Obry <obry@adacore.com>
* libgnarl/s-taprop__mingw.adb: Minor code clean-up. Better using a
named number.
From-SVN: r254572
Diffstat (limited to 'gcc/ada/opt.ads')
| -rw-r--r-- | gcc/ada/opt.ads | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/gcc/ada/opt.ads b/gcc/ada/opt.ads index 96e2f3e..94ed953 100644 --- a/gcc/ada/opt.ads +++ b/gcc/ada/opt.ads @@ -2148,17 +2148,7 @@ package Opt is -- Other Global Flags -- ------------------------ - Expander_Active : Boolean := False; - -- A flag that indicates if expansion is active (True) or deactivated - -- (False). When expansion is deactivated all calls to expander routines - -- have no effect. Note that the initial setting of False is merely to - -- prevent saving of an undefined value for an initial call to the - -- Expander_Mode_Save_And_Set procedure. For more information on the use of - -- this flag, see package Expander. Indeed this flag might more logically - -- be in the spec of Expander, but it is referenced by Errout, and it - -- really seems wrong for Errout to depend on Expander. - - Static_Dispatch_Tables : Boolean := True; + Building_Static_Dispatch_Tables : Boolean := True; -- This flag indicates if the backend supports generation of statically -- allocated dispatch tables. If it is True, then the front end will -- generate static aggregates for dispatch tables that contain forward @@ -2170,6 +2160,16 @@ package Opt is -- behavior can be disabled using switch -gnatd.t which will set this flag -- to False and revert to the previous dynamic behavior. + Expander_Active : Boolean := False; + -- A flag that indicates if expansion is active (True) or deactivated + -- (False). When expansion is deactivated all calls to expander routines + -- have no effect. Note that the initial setting of False is merely to + -- prevent saving of an undefined value for an initial call to the + -- Expander_Mode_Save_And_Set procedure. For more information on the use of + -- this flag, see package Expander. Indeed this flag might more logically + -- be in the spec of Expander, but it is referenced by Errout, and it + -- really seems wrong for Errout to depend on Expander. + ----------------------- -- Tree I/O Routines -- ----------------------- |