Commit 977bb069 authored by hugues.jerome's avatar hugues.jerome
Browse files

* Correct pattern for accessors of data component types,

	  update backends to avoid treating subprogram subcomponents
	  when building types or marshallers.



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/po-hi-ada@1456 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 159efd92
......@@ -226,12 +226,13 @@ end POS;
data implementation POS.Impl
subcomponents
-- spgUpdate : subprogram Update.Impl;
-- spgRead : subprogram Read;
spgUpdate : subprogram Update.Impl;
spgRead : subprogram Read;
Field : data POS_Internal_Type;
-- connections
-- Cnx_Pos_1 : subprogram access SpgUpdate -> Update;
-- Cnx_Pos_2 : subprogram access SpgRead -> Read;
connections
Cnx_Pos_1 : subprogram access SpgUpdate -> Update;
Cnx_Pos_2 : subprogram access SpgRead -> Read;
properties
Data_Model::Data_Representation => Struct;
......
......@@ -45,13 +45,13 @@ subcomponents
Y : data Component_Type;
Z : data Component_Type;
-- spgUpdate : subprogram Update.Impl;
-- spgRead : subprogram Read;
spgUpdate : subprogram Update;
spgRead : subprogram Read;
-- connections
-- Cnx_Pos_1 : subprogram access SpgUpdate -> Update;
-- Cnx_Pos_2 : subprogram access SpgRead -> Read;
connections
Cnx_Pos_1 : subprogram access SpgUpdate -> Update;
Cnx_Pos_2 : subprogram access SpgRead -> Read;
properties
Data_Model::Data_Representation => Struct;
Concurrency_Control_Protocol => Priority_Ceiling;
......
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