Commit 9572c52c authored by jdelange's avatar jdelange
Browse files

* Fix POK testsuite issue



git-svn-id: https://tecsw.estec.esa.int/svn/taste/trunk/ocarina@2703 129961e7-ef38-4bb5-a8f7-c9a525a55882
parent 7e553172
......@@ -1924,7 +1924,8 @@ package body Ocarina.Backends.C_Common.Mapping is
begin
pragma Assert (AINU.Is_Subprogram (S));
if Containing_Device /= No_Node then
if Get_Current_Backend_Kind = PolyORB_HI_C
and then Containing_Device /= No_Node then
Param := CTU.Make_Parameter_Specification
(Defining_Identifier =>
Make_Defining_Identifier (VN (V_Dev_Id)),
......
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