Commit 20a0c0d7 authored by jdelange's avatar jdelange
Browse files

* ocarina/src/backends/ocarina-backends-c_common-types.adb

   - On ALL nodes, generate ALL types used in the distributed
     systems when using PolyORB-HI-C. It ensures that
     the types used in the __po_hi_request_t types are correctly
     declared.
   - Should fix bug #169, to be confirmed.



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2780 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 33eccbea
......@@ -882,6 +882,22 @@ package body Ocarina.Backends.C_Common.Types is
-- Build the enumerator corresponding to the device
-- Note: we reuse the process name XXX
Visit_Device_Instance (Corresponding_Instance (C));
-- We also visit ALL processes of the system to be
-- sure that ALL types used in the distributed system
-- are generated (and not only the ones related to the
-- current node). This would ensure that ALL types used
-- in the request_t type
-- (see ocarina-backends-po_hi_c-request.adb) are used.
elsif AINU.Is_Process (Corresponding_Instance (C)) then
S := First_Node (Subcomponents
(Corresponding_Instance (C)));
while Present (S) loop
Visit_Component_Instance
(Corresponding_Instance (S));
S := Next_Node (S);
end loop;
end if;
C := Next_Node (C);
end loop;
......
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