diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 15:00:54 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2016-10-13 15:00:54 +0200 |
commit | ec2255295c35008f5f39c9a79d5f342416ce6e86 (patch) | |
tree | cf8e171b11f36bb989dabab2b48bd9d820d3fa97 /gcc/ada/nlists.adb | |
parent | 62c1b965b52837687f406f1923069e3ba584b77c (diff) | |
download | gcc-ec2255295c35008f5f39c9a79d5f342416ce6e86.zip gcc-ec2255295c35008f5f39c9a79d5f342416ce6e86.tar.gz gcc-ec2255295c35008f5f39c9a79d5f342416ce6e86.tar.bz2 |
[multiple changes]
2016-10-13 Hristian Kirtchev <kirtchev@adacore.com>
* sem_ch6.adb (Analyze_Expression_Function):
Remove the aspects of the original expression function has been
rewritten into a subprogram declaration or a body. Reinsert the
aspects once they have been analyzed.
2016-10-13 Tristan Gingold <gingold@adacore.com>
* exp_ch9.adb (Expand_N_Asynchronous_Select): Return immediately
on restricted profile.
2016-10-13 Javier Miranda <miranda@adacore.com>
* sem_prag.adb
(Process_Compile_Time_Warning_Or_Error): Register the pragma
for its validation after the backend has been called only if its
expression has some occurrence of attributes 'size or 'alignment
* table.ads (Release_Threshold): New formal.
(Release): Adding documentation of its new functionality.
* table.adb (Release): Extend its functionality with a
Release_Threshold.
* nlists.adb (Next_Node table): Set its Release_Threshold.
* atree.adb (Orig_Nodes table): Set its Release_Threshold.
* atree.ads (Nodes table): Set its Release_Threshold.
(Flags table): Set its Release_Threshold.
* alloc.ads (Nodes_Release_Threshold): New constant declaration.
(Orig_Nodes_Release_Threshold): New constant declaration.
* debug.adb (switch d.9): Left free.
* gnat1drv.adb (Post_Compilation_Validation_Checks): Enable
validation of pragmas Compile_Time_Error and Compile_Time_Warning.
From-SVN: r241117
Diffstat (limited to 'gcc/ada/nlists.adb')
-rw-r--r-- | gcc/ada/nlists.adb | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb index dcb5dd4..b40446a 100644 --- a/gcc/ada/nlists.adb +++ b/gcc/ada/nlists.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2014, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2016, Free Software Foundation, Inc. -- -- -- -- GNAT is free software; you can redistribute it and/or modify it under -- -- terms of the GNU General Public License as published by the Free Soft- -- @@ -90,6 +90,7 @@ package body Nlists is Table_Low_Bound => First_Node_Id, Table_Initial => Alloc.Orig_Nodes_Initial, Table_Increment => Alloc.Orig_Nodes_Increment, + Release_Threshold => Alloc.Orig_Nodes_Release_Threshold, Table_Name => "Next_Node"); package Prev_Node is new Table.Table ( |