[Ada] g-os_lib.adb (1.76) checked in

[bosch@gnat.com]

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;