-- --
------------------------------------------------------------------------------
-with System; use System;
+pragma Compiler_Unit;
+
+with System; use System;
package body Ada.Command_Line is
declare
Arg : aliased String (1 .. Len_Arg (Num));
-
begin
Fill_Arg (Arg'Address, Num);
return Arg;