Commit c6cb9e9a authored by Maxime Perrotin's avatar Maxime Perrotin
parents da62585b a2252706
......@@ -4,72 +4,71 @@ package Software
public
with Data_Model;
----------
-- Data --
----------
----------
-- Data --
----------
data Alpha_Type
properties
Data_Model::Data_Representation => integer;
end Alpha_Type;
data Alpha_Type
properties
Data_Model::Data_Representation => integer;
end Alpha_Type;
-----------------
-- Subprograms --
-----------------
-----------------
-- Subprograms --
-----------------
subprogram Produce_Spg
features
Data_Source : out parameter Alpha_Type;
properties
source_language => Ada95;
source_name => "Producer_Consumer.Produce_Spg";
end Produce_Spg;
subprogram Produce_Spg
features
Data_Source : out parameter Alpha_Type;
properties
source_language => Ada95;
source_name => "Producer_Consumer.Produce_Spg";
end Produce_Spg;
subprogram Consume_Spg
features
Data_Sink : in parameter Alpha_Type;
properties
source_language => Ada95;
source_name => "Producer_Consumer.Consume_Spg";
end Consume_Spg;
subprogram Consume_Spg
features
Data_Sink : in parameter Alpha_Type;
properties
source_language => Ada95;
source_name => "Producer_Consumer.Consume_Spg";
end Consume_Spg;
-------------
-- Threads --
-------------
-------------
-- Threads --
-------------
thread P
features
Data_Source : out data port Alpha_Type;
end P;
thread P
features
Data_Source : out data port Alpha_Type;
end P;
thread implementation P.Impl
calls
Mycall : {
P_Spg : subprogram Produce_Spg;
};
connections
parameter P_Spg.Data_Source -> Data_Source;
properties
Dispatch_Protocol => Periodic;
Period => 200 Ms;
end P.Impl;
thread implementation P.Impl
calls
Mycall : {
P_Spg : subprogram Produce_Spg;
};
connections
parameter P_Spg.Data_Source -> Data_Source;
properties
Dispatch_Protocol => Periodic;
Period => 200 ms;
end P.Impl;
thread Q
features
Data_Sink : in data port Alpha_Type;
end Q;
thread Q
features
Data_Sink : in data port Alpha_Type;
end Q;
thread implementation Q.Impl
calls
Mycall : {
Q_Spg : subprogram Consume_Spg;
};
connections
parameter Data_Sink -> Q_Spg.Data_Sink;
properties
Dispatch_Protocol => Periodic;
Period => 100 Ms;
end Q.Impl;
thread implementation Q.Impl
calls
Mycall : {
Q_Spg : subprogram Consume_Spg;
};
connections
parameter Data_Sink -> Q_Spg.Data_Sink;
properties
Dispatch_Protocol => Periodic;
Period => 100 ms;
end Q.Impl;
end Software;
......@@ -62,7 +62,8 @@ project PolyORB_HI is
--@WARNINGS_ARE_ERRORS@"-gnatfy", -- Style warnings
--@WARNINGS_ARE_ERRORS@"-gnatwe", -- Warnings are errors
"-gnatwG", -- Suppress warnings on unrecognized pragmas
"-gnat12" -- Ada 2012 mode
"-gnat12", -- Ada 2012 mode
"-fstack-usage" -- Report stack usage
);
Debug_Options := (
......
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