OSDN Git Service

2006-02-13 Geert Bosch <bosch@adacore.com>
authorcharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 15 Feb 2006 09:34:48 +0000 (09:34 +0000)
committercharlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4>
Wed, 15 Feb 2006 09:34:48 +0000 (09:34 +0000)
commitd20595a6f1a7610af5f8f673ba0d4de343a5ef1c
tree1cdee87cac19b749f9988cee0261215bf57c3b52
parent0fab56f28d541967e82df4879a635a74fc942979
2006-02-13  Geert Bosch  <bosch@adacore.com>
    Gary Dismukes  <dismukes@adacore.com>

* a-tifiio.adb (Put_Digits): Test Last against To'First - 1 instead of
0, since the lower bound of the actual string may be greater than one.

PR ada/20753

(Put): Fix condition to raise Layout_Error when invalid
layout is requested.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@111043 138bc75d-0d04-0410-961f-82ee72b054a4
gcc/ada/a-tifiio.adb