---------------------------------
-- D. Mathieu                  --
--                             --
-- fichier P_ProtEntier.adb    --
--                             --
-- créé le 13/12/98            --
--                             --
---------------------------------
--
package body P_ProtEntier is

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;