Je travaille sur l'exemple ici: https://www.adahome.com /rm95/rm9x-12-08.html J'ai écrit mon generic_stack.ads: generic type Item_Type is private; size : Positive; package Generic_Stack is procedure push( item : in Item_Type ); function pop return Item_Type; function is_Empt....
22 avril 2020 à 03:52