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

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 ...@@ -243,9 +243,9 @@ package body Ocarina.Backends.MAST.Main is
return N; return N;
end Map_Driver_Scheduling_Server_Name; end Map_Driver_Scheduling_Server_Name;
------------------------ -------------------------
-- Map_Driver_Wrapper -- -- Make_Driver_Wrapper --
------------------------ -------------------------
function Make_Driver_Wrapper (The_Device : Node_Id) return Node_Id is function Make_Driver_Wrapper (The_Device : Node_Id) return Node_Id is
M : Node_Id; M : Node_Id;
...@@ -253,8 +253,9 @@ package body Ocarina.Backends.MAST.Main is ...@@ -253,8 +253,9 @@ package body Ocarina.Backends.MAST.Main is
begin begin
M := Make_Scheduling_Server M := Make_Scheduling_Server
(Map_Driver_Scheduling_Server_Name (The_Device), (Map_Driver_Scheduling_Server_Name (The_Device),
Normalize_Name (Name (Identifier (Parent_Subcomponent No_Name);
(Get_Bound_Processor (The_Device)))))); MTN.Set_Associated_Scheduler
(M, Map_Scheduler_Name (Get_Bound_Processor (The_Device)));
MTN.Set_Parameters MTN.Set_Parameters
(M, Make_Scheduling_Server_Parameters (M, Make_Scheduling_Server_Parameters
(Fixed_Priority, 1)); (Fixed_Priority, 1));
......
...@@ -536,6 +536,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is ...@@ -536,6 +536,7 @@ package body Ocarina.Backends.MAST_Tree.Generator is
Write_Name (MTN.Server_Processing_Resource (N)); Write_Name (MTN.Server_Processing_Resource (N));
Write_Line (");"); Write_Line (");");
end if; end if;
if MTN.Associated_Scheduler (N) /= No_Name then if MTN.Associated_Scheduler (N) /= No_Name then
Write_Indentation (-1); Write_Indentation (-1);
Write (Tok_Scheduler); 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