Commit 9a94b36b authored by yoogx's avatar yoogx
Browse files

* Correct loop to read all files

parent 78bbc4a4
...@@ -346,15 +346,15 @@ package body Ocarina.Cmd_Line is ...@@ -346,15 +346,15 @@ package body Ocarina.Cmd_Line is
-- that are not caught as regular switches. We assume these are -- that are not caught as regular switches. We assume these are
-- AADL filenames. They are passed to Parse_Source_Filename. -- AADL filenames. They are passed to Parse_Source_Filename.
declare loop
Args : Argument_List_Access := declare
GNAT.OS_Lib.Argument_String_To_List (Get_Argument); S : constant String := Get_Argument (Do_Expansion => True);
begin begin
for S of Args.all loop exit when S'Length = 0;
Parse_Source_Filename (S.all); Parse_Source_Filename (S);
end loop; end;
Free (Args); end loop;
end;
exception exception
when GNAT.Command_Line.Invalid_Switch => when GNAT.Command_Line.Invalid_Switch =>
OS_Exit (1); OS_Exit (1);
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment