Commit fe636ad3 authored by julien.delange's avatar julien.delange

fix mast model generation so that analysis can be performed on the serial-spw example



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@1454 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 60a762d0
......@@ -243,9 +243,9 @@ package body Ocarina.Backends.MAST.Main is
return N;
end Map_Driver_Scheduling_Server_Name;
------------------------
-- Map_Driver_Wrapper --
------------------------
-------------------------
-- Make_Driver_Wrapper --
-------------------------
function Make_Driver_Wrapper (The_Device : Node_Id) return Node_Id is
M : Node_Id;
......@@ -253,8 +253,9 @@ package body Ocarina.Backends.MAST.Main is
begin
M := Make_Scheduling_Server
(Map_Driver_Scheduling_Server_Name (The_Device),
Normalize_Name (Name (Identifier (Parent_Subcomponent
(Get_Bound_Processor (The_Device))))));
No_Name);
MTN.Set_Associated_Scheduler
(M, Map_Scheduler_Name (Get_Bound_Processor (The_Device)));
MTN.Set_Parameters
(M, Make_Scheduling_Server_Parameters
(Fixed_Priority, 1));
......
......@@ -536,6 +536,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is
Write_Name (MTN.Server_Processing_Resource (N));
Write_Line (");");
end if;
if MTN.Associated_Scheduler (N) /= No_Name then
Write_Indentation (-1);
Write (Tok_Scheduler);
......
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