Recherche:

Un type protégé ça donne ça (j'ai pris l'exemple d'un type sémaphore) :

Spécification :


PROTECTED TYPE T_Semaphore(val_initiale : natural := 0) IS
ENTRY P ;
PROCEDURE V ;
PRIVATE...

Euh ... j'ai un peu survolé le post, alors n'hésite pas à me dire si ça ne répond pas à ta question. Si j'ai bien compris tu as des données partagées entre plusieurs tâches concurrentes ? Alors...