Discussion :

[Geminas]

Voici mon problème, j'ai un package ou j'ai déclaré dans la partie privé :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
   type T_Tab is array(T_Indice) of T_Element;
 
   type T_Tab_Ptr is array(T_Indice) of T_Ptr;
 
   type T_Rep is record
      Tab : aliased T_Tab;
      Longueur : T_Taille := T_Taille'First;
   end record;

T_Element est un type générique privé, T_Ptr est un pointeur sur T_Element

après dans le body du package j'ai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ptr_Rep(Rep.Longueur) := Rep.Tab(Rep.Longueur)'Access;

Avec comme déclarations :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
   Rep : aliased T_Rep;
   Ptr_Rep : T_Tab_Ptr;

mais ça me lève une erreur :

prefix of "Access" attribute must be aliased


Je suis quasiment sur qu'un des 2 aliased est de trop, mais j'ai essayé les 3 possibilités de les placer ça ne marche pas (sur l'un, l'autre, ou les 2). Donc je suis un peu paumé et je vois pas pourquoi je peux pas mettre mon pointeur dans mon tableau.

Edit :

Et lorsque je change la ligne à problème par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Ptr_Rep(Rep.Longueur) := (Rep.Tab(Rep.Longueur))'Access;

ça me met l'erreur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

repertoire.adb:57:61: binary operator expected

[Geminas]

C'est bon j'ai rien dit, au lieu de mettre des aliased partout j'aurais mieux fait de réfléchir un bon coup, c'est le type T_Element qui doit être aliasé les deux autres ou je me fixais n'en ont pas besoin