protected body T_ProtEntier is
procedure Set (I : in T_Entier) is
begin -- Set
I_Caché := I;
end Set ;
function Get return T_Entier is
begin -- Get
return I_Caché;
end Get ;
procedure Incrementer is
I_Local : T_Entier;
begin -- Incrementer
I_Local := I_Caché;
I_Local := I_Local + 1;
I_Caché := I_Local;
end Incrementer;
procedure Decrementer is
I_Local : T_Entier;
begin -- Decrementer
I_Local := I_Caché;
I_Local := I_Local - 1;
I_Caché := I_Local;
end Decrementer ;
end T_ProtEntier;
begin -- P_ProtEntier
null;
end P_ProtEntier;