Commit a40b450b authored by Arnaud Schach's avatar Arnaud Schach

Syntax modifications to compile Ocarina on Windows with MinGW

parent b1832bec
......@@ -517,15 +517,13 @@ package body Ocarina.Backends.Deos_Conf.Partitions is
and then Get_Connection_Pattern (F) = Inter_Process
then
if Is_Data (F) and then not Is_Event (F)
then
if Is_Data (F) and then not Is_Event (F) then
Append_Node_To_List
(Map_Sampling_Port (F),
XTN.Subitems (Sampling_Ports));
end if;
if Is_Data (F) and then Is_Event (F)
then
if Is_Data (F) and then Is_Event (F) then
Append_Node_To_List
(Map_Queuing_Port (F),
XTN.Subitems (Queuing_Ports));
......
......@@ -183,8 +183,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Connections is
Feature := First_Node (Features (Corresponding_Process));
while Present (Feature) loop
if Is_Data (Feature) and then Is_Out (Feature)
then
if Is_Data (Feature) and then Is_Out (Feature) then
Port_Source := Feature;
Port_Destination := Item (First_Node (Destinations (Feature)));
Partition_Destination := Parent_Component (Port_Destination);
......
......@@ -272,8 +272,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
Feature := First_Node (Features (Corresponding_Process));
while Present (Feature) loop
if Is_Event (Feature) and then Is_Data (Feature)
then
if Is_Event (Feature) and then Is_Data (Feature) then
Size := To_Bytes (Get_Data_Size
(Corresponding_Instance (Feature)));
Queue_Size := Get_Queue_Size (Feature);
......@@ -326,8 +325,7 @@ package body Ocarina.Backends.Vxworks653_Conf.Naming is
XTN.Subitems (Ports_Node));
end if;
if not Is_Event (Feature) and then Is_Data (Feature)
then
if not Is_Event (Feature) and then Is_Data (Feature) then
Size := To_Bytes (Get_Data_Size
(Corresponding_Instance (Feature)));
......
......@@ -1797,8 +1797,7 @@ package body Parser is
Output_File := GNAT.OS_Lib.Standout;
when 't' =>
if GNAT.Command_Line.Parameter = "python"
then
if GNAT.Command_Line.Parameter = "python" then
Target_Language := 2;
end if;
......@@ -2009,8 +2008,8 @@ package body Parser is
end if;
if Target_Language = 1 then
-- If the output is not the standard output, compute the spec
-- filename and redirect output.
-- If the output is not the standard output, compute the spec
-- filename and redirect output.
if Output_Name /= Types.No_Name then
Output_File :=
......@@ -2037,8 +2036,8 @@ package body Parser is
end if;
if Target_Language = 2 then
-- If the output is not the standard output, compute the body
-- filename and redirect output.
-- If the output is not the standard output, compute the body
-- filename and redirect output.
if Output_Name /= Types.No_Name then
Output_Name := Utils.Remove_Suffix_From_Name (
......
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