Commit d10c3754 authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Work on Concurrency view

parent e750bfd3
......@@ -35,7 +35,7 @@ package TASTE.Concurrency_View is
Name : Unbounded_String;
Provided : Protected_Block_PIs.Map;
Required : Interfaces_Maps.Map;
Calling_Threads : String_Vectors.Vector;
Calling_Threads : String_Sets.Set;
Node : Option_Node.Option;
end record;
......
......@@ -125,7 +125,7 @@ package body TASTE.Parser_Utils is
if Result.Version then
raise Exit_From_Command_Line;
end if;
if Result.Output_Dir.all'Length = 0 then
if Result.Output_Dir = null or else Result.Output_Dir.all'Length = 0 then
Result.Output_Dir := new String'(".");
end if;
end Parse_Command_Line;
......
Supports Markdown
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