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....