From 8bded5832c16b8db84229ba5826504149b180043 Mon Sep 17 00:00:00 2001 From: Arnaud Charlet Date: Mon, 3 Jan 2005 16:38:35 +0100 Subject: [PATCH] i-cstrin.adb (Update): Do not append a null in form called with a String. * i-cstrin.adb (Update): Do not append a null in form called with a String. This avoids unintended behavior. From-SVN: r92840 --- gcc/ada/i-cstrin.adb | 8 +++++++- 1 file changed, 7 insertions(+), 1 deletion(-) diff --git a/gcc/ada/i-cstrin.adb b/gcc/ada/i-cstrin.adb index 26bde07c2ab6..6adb48ad94e8 100644 --- a/gcc/ada/i-cstrin.adb +++ b/gcc/ada/i-cstrin.adb @@ -250,7 +250,13 @@ package body Interfaces.C.Strings is Check : Boolean := True) is begin - Update (Item, Offset, To_C (Str), Check); + -- Note: in RM 95, the Append_Nul => False parameter is omitted. But + -- this has the unintended consequence of truncating the string after + -- an update. As discussed in Ada 2005 AI-242, this was unintended, + -- and should be corrected. Since this is a clear error, it seems + -- appropriate to apply the correction in Ada 95 mode as well. + + Update (Item, Offset, To_C (Str, Append_Nul => False), Check); end Update; -----------