diff options
| author | Javier Miranda <miranda@adacore.com> | 2019-07-05 07:02:28 +0000 |
|---|---|---|
| committer | Pierre-Marie de Rodat <pmderodat@gcc.gnu.org> | 2019-07-05 07:02:28 +0000 |
| commit | de70d01f1a3f52654d39ecb97bd769032e5e2a60 (patch) | |
| tree | f824752c3278aa4f5c46ad97fbad6e537c7ffac9 /gcc/ada/debug.adb | |
| parent | 034a6629f4b3d64bf53dda42bf79b328c6d83190 (diff) | |
| download | gcc-de70d01f1a3f52654d39ecb97bd769032e5e2a60.zip gcc-de70d01f1a3f52654d39ecb97bd769032e5e2a60.tar.gz gcc-de70d01f1a3f52654d39ecb97bd769032e5e2a60.tar.bz2 | |
[Ada] Removing support for SCIL "contract-only" subprogram bodies
Remove support added for CodePeer (which was never enabled by default;
it was controlled by the -gnatd.K option) for generation of SCIL
"contract-only" subprogram bodies. These were intended for use when a
subprogram's "real" body is unavailable but the subprogram spec has
pre/post-conditions specified.
2019-07-05 Javier Miranda <miranda@adacore.com>
gcc/ada/
* debug.adb (-gnatd.K): Leave available this switch.
* contracts.adb (Build_And_Analyze_Contract_Only_Subprograms):
Remove.
* scil_ll.ads, scil_ll.adb (Contract_Only_Body_Flag,
Contract_Only_Body_Nodes, Get_Contract_Only_Body,
Is_Contract_Only_Body, Set_Contract_Only_Body): Remove.
From-SVN: r273111
Diffstat (limited to 'gcc/ada/debug.adb')
| -rw-r--r-- | gcc/ada/debug.adb | 9 |
1 files changed, 1 insertions, 8 deletions
diff --git a/gcc/ada/debug.adb b/gcc/ada/debug.adb index fb9ebba..2635654 100644 --- a/gcc/ada/debug.adb +++ b/gcc/ada/debug.adb @@ -128,7 +128,7 @@ package body Debug is -- d.H GNSA mode for ASIS -- d.I Do not ignore enum representation clauses in CodePeer mode -- d.J Relaxed rules for pragma No_Return - -- d.K Enable generation of contract-only procedures in CodePeer mode + -- d.K -- d.L Depend on back end for limited types in if and case expressions -- d.M Relaxed RM semantics -- d.N Add node to all entities @@ -904,13 +904,6 @@ package body Debug is -- for that. If the procedure does in fact return normally, execution -- is erroneous, and therefore unpredictable. - -- d.K Enable generation of contract-only procedures in CodePeer mode and - -- report a warning on subprograms for which the contract-only body - -- cannot be built. Currently reported on subprograms defined in - -- nested package specs that have some formal (or return type) whose - -- type is a private type defined in some enclosing package and that - -- have pre/postconditions. - -- d.L Normally the front end generates special expansion for conditional -- expressions of a limited type. This debug flag removes this special -- case expansion, leaving it up to the back end to handle conditional |