mirror/gcc
2
0
Fork 0
mirror of git://gcc.gnu.org/git/gcc.git synced 2025-04-04 14:51:06 +08:00
Code Issues Packages Projects Releases Wiki Activity

* i-c.adb (To_C): Raise CE if string is null and Append_Null

Browse Source 
From-SVN: r92839
This commit is contained in:
Arnaud Charlet 2005-01-03 16:38:17 +01:00
parent d9246d2d4a
commit 3e69e63bd1
1 changed files with 8 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
gcc/ada/i-c.adb
View File

@ -6,7 +6,7 @@
-- --
-- B o d y --
-- --
-- Copyright (C) 1992-2001 Free Software Foundation, Inc. --
-- Copyright (C) 1992-2004 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- --
@ -289,21 +289,20 @@ package body Interfaces.C is
return R;
end;
else -- Append_Nul is False
-- Append_Nul False
else
-- A nasty case, if the string is null, we must return
-- a null 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. This needs
-- ARG resolution, but for now GNAT returns bounds 1 .. 0
-- impossible given that size_t is unsigned. According to
-- Ada 2005 AI-258, the result is to raise Constraint_Error.
if Item'Length = 0 then
declare
R : char_array (1 .. 0);
raise Constraint_Error;
begin
return R;
end;
-- Normal case
else
declare