diff options
author | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:28:02 +0200 |
---|---|---|
committer | Arnaud Charlet <charlet@gcc.gnu.org> | 2013-04-11 15:28:02 +0200 |
commit | 88ff8916c7cbbf0810255d8db096fd69cd4d1105 (patch) | |
tree | 5c62e93600e39467b13c88abd5f5aa9559fe8861 /gcc/ada/nlists.adb | |
parent | 327900c7f5b09f16f9199a425d96c93a2c73cc93 (diff) | |
download | gcc-88ff8916c7cbbf0810255d8db096fd69cd4d1105.zip gcc-88ff8916c7cbbf0810255d8db096fd69cd4d1105.tar.gz gcc-88ff8916c7cbbf0810255d8db096fd69cd4d1105.tar.bz2 |
[multiple changes]
2013-04-11 Ben Brosgol <brosgol@adacore.com>
* gnat_ugn.texi: Minor clean ups.
2013-04-11 Robert Dewar <dewar@adacore.com>
* nlists.ads, nlists.adb, treepr.adb, treepr.ads: Move debugging
function p from Nlists to Treepr.
2013-04-11 Ed Schonberg <schonberg@adacore.com>
* sem_disp.adb (Check_Dispatching_Context): If the context is
a contract for a null procedure defer error reporting until
postcondition body is created.
* exp_ch13.adb (Expand_N_Freeze_Entity): If the entity is a
null procedure, complete the analysis of its contracts so that
calls within classwide conditions are properly rewritten as
dispatching calls.
From-SVN: r197794
Diffstat (limited to 'gcc/ada/nlists.adb')
-rw-r--r-- | gcc/ada/nlists.adb | 17 |
1 files changed, 1 insertions, 16 deletions
diff --git a/gcc/ada/nlists.adb b/gcc/ada/nlists.adb index 453e665..41b5ac2 100644 --- a/gcc/ada/nlists.adb +++ b/gcc/ada/nlists.adb @@ -6,7 +6,7 @@ -- -- -- B o d y -- -- -- --- Copyright (C) 1992-2010, Free Software Foundation, Inc. -- +-- Copyright (C) 1992-2013, 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- -- @@ -987,21 +987,6 @@ package body Nlists is return Int (Lists.Last) - Int (Lists.First) + 1; end Num_Lists; - ------- - -- p -- - ------- - - function p (U : Union_Id) return Node_Or_Entity_Id is - begin - if U in Node_Range then - return Parent (Node_Or_Entity_Id (U)); - elsif U in List_Range then - return Parent (List_Id (U)); - else - return 99_999_999; - end if; - end p; - ------------ -- Parent -- ------------ |