r264623 - in /trunk/gcc: ada/ChangeLog ada/libg...

[pmderodat@gcc.gnu.org]

Author: pmderodat
Date: Wed Sep 26 09:18:23 2018
New Revision: 264623

URL: https://gcc.gnu.org/viewcvs?rev=264623&root=gcc&view=rev
Log:
[Ada] Pair miscount in Dynamic_HTable.Put

This patch corrects the logic of GNAT.Dynamic_HTables.Dynamic_HTable.Put to
update the number of key-value pairs in the hash table only when the put is
adding a new pair, rather than updating the value of an existing pair.

2018-09-26  Hristian Kirtchev  <kirtchev@adacore.com>

gcc/ada/

	* libgnat/g-dynhta.adb (Prepend_Or_Replace): Update the number
	of key-value pairs in the hash table only when adding a brand
	new pair.

gcc/testsuite/

	* gnat.dg/dynhash1.adb: New testcase.

Added:
    trunk/gcc/testsuite/gnat.dg/dynhash1.adb
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/libgnat/g-dynhta.adb
    trunk/gcc/testsuite/ChangeLog