Initialisation par défaut multiple.

[Blady]

Bonjour,

Dans un paquetage d'une bibliothèque dont je ne peux (veux) pas modifier
le code source, existe un type record sans initialisation par défaut :

type Bib_Rec_Typ is record
Champ1 : Integer;
end record;

Je dois utiliser ce type mais avec une initialisation par défaut, je
peux créer un nouveau type par exemple :

type Mon_Rec_Typ is record
Champ1 : Integer := 34;
end record;

Mais je voudrais au moins qu'il soit compatible, par exemple, serait-il
possible d'avoir :

subtype Mon_Rec_Typ is Bib_Rec_Typ with Default_Value => (Champ1 => 34);

ou même alors :

type Mon_Rec_Typ is new Bib_Rec_Typ with Default_Value => (Champ1 => 34);

Merci, Pascal.

[Jeffrey R. Carter]

Post by Blady
type Bib_Rec_Typ is record
   Champ1 : Integer;
end record;
Je dois utiliser ce type mais avec une initialisation par défaut

type Default_Initialized is record
Value : Bib_Rec_Type := (Champ1 => 42);
end record;

qui marche avec plus qu'un seul compilateur (tous les compilateurs depuis Ada 83).

[Blady]

Post by Jeffrey R. Carter

Post by Blady
type Bib_Rec_Typ is record
Champ1 : Integer;
end record;
Je dois utiliser ce type mais avec une initialisation par défaut

type Default_Initialized is record
Value : Bib_Rec_Type := (Champ1 => 42);
end record;
qui marche avec plus qu'un seul compilateur (tous les compilateurs depuis Ada 83).

Bonjour Jeff, simple comme merci, Pascal.