mirror of
https://github.com/AdaCore/gprbuild.git
synced 2026-02-12 12:30:13 -08:00
8948a40f64
the declaration of the interfaces to a separate new package. Required to compile the example with 6.3.2 For JA06-004 git-svn-id: svn+ssh://svn.eu.adacore.com/Dev/trunk/gprbuild@166279 936e1b1b-40f2-da11-902a-00137254ae57
11 lines
423 B
Ada
11 lines
423 B
Ada
with Interfaces.C.Strings; use Interfaces.C.Strings;
|
|
package Animals_Interfaces is
|
|
type Carnivore is limited interface;
|
|
function Number_Of_Teeth (X : Carnivore) return Natural is abstract;
|
|
pragma Convention (CPP, Number_Of_Teeth); -- Required by AI-430
|
|
|
|
type Domestic is limited interface;
|
|
procedure Set_Owner (X : in out Domestic; Name : Chars_Ptr) is abstract;
|
|
pragma Convention (CPP, Set_Owner);
|
|
end;
|