--- rpl/src/indicateurs.c	2011/01/03 12:08:04	1.15
+++ rpl/src/indicateurs.c	2019/10/31 15:40:07	1.64
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.20
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -51,7 +51,7 @@ sf(struct_processus *s_etat_processus, u
 	indice_bloc = indice_drapeau / taille_bloc;
 	indice_bit = indice_drapeau % taille_bloc;
 
-	masque = ((t_8_bits) 1) << (taille_bloc - indice_bit - 1);
+	masque = (t_8_bits) (((t_8_bits) 1) << (taille_bloc - indice_bit - 1));
 
 	(*s_etat_processus).drapeaux_etat[indice_bloc] |= masque;
 }
@@ -85,7 +85,7 @@ cf(struct_processus *s_etat_processus, u
 	indice_bloc = indice_drapeau / taille_bloc;
 	indice_bit = indice_drapeau % taille_bloc;
 
-	masque = ~(((t_8_bits) 1) << (taille_bloc - indice_bit - 1));
+	masque = (t_8_bits) (~(((t_8_bits) 1) << (taille_bloc - indice_bit - 1)));
 
 	(*s_etat_processus).drapeaux_etat[indice_bloc] &= masque;
 }
@@ -119,7 +119,7 @@ test_cfsf(struct_processus *s_etat_proce
 	indice_bloc = indice_drapeau / taille_bloc;
 	indice_bit = indice_drapeau % taille_bloc;
 
-	masque = ((t_8_bits) 1) << (taille_bloc - indice_bit - 1);
+	masque = (t_8_bits) (((t_8_bits) 1) << (taille_bloc - indice_bit - 1));
 
 	return((((*s_etat_processus).drapeaux_etat[indice_bloc] & masque) != 0)
 			? d_vrai : d_faux);