Hi,
I have a problem with multiple inheritance / limited :
package Interface1 is
type T_Interface1 is limited interface;
function Get_Value1 (This : in T_Interface1) return Integer is
abstract;
end Interface1;
package Interface2 is
type T_Interface2 is limited interface;
function Get_Value2 (This : in T_Interface2) return Integer is
abstract;
end Interface2;
with Interface1;
with Interface2;
package Test is
type T_Test is limited new Interface1.T_Interface1 and
Interface2.T_Interface2 with record
null;
end record;
overriding function Get_Value1 (This : in T_Test) return Integer;
overriding function Get_Value2 (This : in T_Test) return Integer;
end Test;
The compilation error message is
test.ads:8:01: construct not allowed in this configuration
test.ads:8:01: entity "Ada.Tags.Osd_Table" not defined
Have you an explain?
Thanks,
Nicolas