Commit 47feeaea authored by Maxime Perrotin's avatar Maxime Perrotin
Browse files

Ignore function types when creating CV

parent 9fb6c2c8
......@@ -348,6 +348,9 @@ package body TASTE.AADL_Parser is
-- Create one thread per Cyclic and Sporadic interface
-- Create one protected block per application code
for F of Model.Interface_View.Flat_Functions loop
if F.Is_Type then
goto Continue;
end if;
declare
Block : Protected_Block :=
(Name => F.Name,
......@@ -401,13 +404,13 @@ package body TASTE.AADL_Parser is
New_Item => Thread);
end;
end if;
end loop;
Block.Required := F.Required;
-- Add the block to the Concurrency View
Result.Blocks.Insert (Key => To_String (Block.Name),
New_Item => Block);
end;
<<Continue>>
end loop;
-- Find and set protected blocks calling threads
Set_Calling_Threads (Result);
......
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