r133423 - in /trunk/gcc: ada/ChangeLog ada/tran...

[hainque@gcc.gnu.org]

Author: hainque
Date: Fri Mar 21 13:18:35 2008
New Revision: 133423

URL: http://gcc.gnu.org/viewcvs?root=gcc&view=rev&rev=133423
Log:
2008-03-21  Olivier Hainque  <hainque@adacore.com>

	ada/
	* trans.c (Attribute_to_gnu) <'length>: Compute as (hb < lb)
	? 0 : hb - lb + 1 instead of max (hb - lb + 1, 0).

	testsuite/
	* gnat.dg/empty_vector_length.adb: New testcase.


Added:
    trunk/gcc/testsuite/gnat.dg/empty_vector_length.adb
Modified:
    trunk/gcc/ada/ChangeLog
    trunk/gcc/ada/trans.c
    trunk/gcc/testsuite/ChangeLog