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