diff options
| author | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:19:12 +0000 |
|---|---|---|
| committer | charlet <charlet@138bc75d-0d04-0410-961f-82ee72b054a4> | 2005-03-15 16:19:12 +0000 |
| commit | 68fa183e21f353a336f5d6343ce64b57179e7df1 (patch) | |
| tree | 0922a90c50185c9ebfde2dc85f0649ff0055d342 /gcc/ada/i-c.adb | |
| parent | 1bd3f33a0b7d708333e4771d9cfe12ad4b6db070 (diff) | |
| download | gcc-68fa183e21f353a336f5d6343ce64b57179e7df1.tar.gz | |
2005-03-08 Robert Dewar <dewar@adacore.com>
* usage.adb: Add missing lines for -gnat95 and -gnat05 switches
* sem_ch7.adb: Minor change to propagate Is_Ada_2005 flag
* i-c.adb: Clarify that AI-258 behavior is also intended in Ada 95
git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@96511 138bc75d-0d04-0410-961f-82ee72b054a4
Diffstat (limited to 'gcc/ada/i-c.adb')
| -rw-r--r-- | gcc/ada/i-c.adb | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/gcc/ada/i-c.adb b/gcc/ada/i-c.adb index da8e3146f66..250344977b5 100644 --- a/gcc/ada/i-c.adb +++ b/gcc/ada/i-c.adb @@ -504,7 +504,8 @@ package body Interfaces.C is -- char_array. The lower bound of this array is required to be zero -- (RM B.3(50)) but that is of course impossible given that size_t -- is unsigned. According to Ada 2005 AI-258, the result is to raise - -- Constraint_Error. + -- Constraint_Error. This is also the appropriate behavior in Ada 95, + -- since nothing else makes sense. if Item'Length = 0 then raise Constraint_Error; @@ -593,7 +594,8 @@ package body Interfaces.C is -- wchar_array. The lower bound of this array is required to be zero -- (RM B.3(50)) but that is of course impossible given that size_t -- is unsigned. According to Ada 2005 AI-258, the result is to raise - -- Constraint_Error. + -- Constraint_Error. This is also the appropriate behavior in Ada 95, + -- since nothing else makes sense. if Item'Length = 0 then raise Constraint_Error; @@ -680,7 +682,8 @@ package body Interfaces.C is -- char16_array. The lower bound of this array is required to be zero -- (RM B.3(50)) but that is of course impossible given that size_t -- is unsigned. According to Ada 2005 AI-258, the result is to raise - -- Constraint_Error. + -- Constraint_Error. This is also the appropriate behavior in Ada 95, + -- since nothing else makes sense. if Item'Length = 0 then raise Constraint_Error; |