Ada 2005 : Multiple Inheritance / Interface / limited

Ada 2005 : Multiple Inheritance / Interface / limited

[nblanpain]

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

Re: Ada 2005 : Multiple Inheritance / Interface / limited

[Ludovic Brenta]

> 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?

Looks like a configuration pragma prevents type extension in your
program. What compiler are you using (platform, version)? Inf gnat, is
there a file called gnat.adc somewhere in your source directory? What
does it contain?

--
Ludovic Brenta.