This is the mail archive of the
gcc-patches@gcc.gnu.org
mailing list for the GCC project.
[Ada] g-os_lib.adb (1.76) checked in
- From: bosch at gnat dot com
- To: gcc-patches at gcc dot gnu dot org
- Date: Thu, 29 Nov 2001 00:15:15 -0500 (EST)
- Subject: [Ada] g-os_lib.adb (1.76) checked in
2001-11-29 Ed Schonberg <schonber@gnat.com>
* g-os_lib.adb (Add_To_Command): use explicit loop to move string
into Command, an array conversion is illegal here. Uncovered by
ACATS B460005.
*** g-os_lib.adb 2001/10/04 06:01:12 1.75
--- g-os_lib.adb 2001/11/27 21:06:03 1.76
***************
*** 1316,1322 ****
begin
Command_Last := Command_Last + S'Length;
! Command (First .. Command_Last) := Chars (S);
Command_Last := Command_Last + 1;
Command (Command_Last) := ASCII.NUL;
--- 1316,1328 ----
begin
Command_Last := Command_Last + S'Length;
!
! -- Move characters one at a time, because Command has
! -- aliased components.
!
! for J in S'Range loop
! Command (First + J - S'First) := S (J);
! end loop;
Command_Last := Command_Last + 1;
Command (Command_Last) := ASCII.NUL;