Bonjour,
je suis débutant et je rencontre un bête problème en ADA concernant la généricité et l'emploi de fichiers .ads (spécifications) et .adb (corps).
Voici le contenu de mon fichier echange_gen.ads :
Et le contenu de mon echange_gen.adb :generic
type x is private;
procedure echange_gen (a, b : in out x);
Jusqu'ici pas de problème... Mais dès que je veux ajouter une procédure après la procedure echange_gen dans echange_gen.adb j'ai systématiquement la même erreur :with Ada.Text_Io; use Ada.Text_Io;
with Ada.Integer_Text_Io; use Ada.Integer_Text_Io;
with Echange_Gen;
procedure Echange_gen (A, B : in out x) is
temp : x;
begin
temp := a; a := b; b := temp;
end Echange_Gen;
J'ai effectué plusieurs recherches sur Google mais je n'ai pas trouvé de solution à mon problème... Pourriez-vous m'indiquer ce qui cloche ?echange_gen.adb:13:01: end of file expected, file can have only one compilation unit
Où dois-je placer ce code (pour réutiliser la fonction générique) ? :
Merci d'avance !procedure echange is new echange_gen(integer, integer);
Partager