--- rpl/src/operations_binaires.c	2013/03/21 11:30:31	1.41
+++ rpl/src/operations_binaires.c	2014/04/25 07:37:34	1.49
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.18
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -47,9 +47,11 @@ longueur_entiers_binaires(struct_process
 
 	for(i = 0; i < 6; i++)
 	{
-		longueur_binaire = (unsigned char) (longueur_binaire +
-				((test_cfsf(s_etat_processus,
-				(unsigned char) (37 + i) == d_vrai) ? j : 0)));
+		if (test_cfsf(s_etat_processus, (unsigned char) (37 + i)) == d_vrai)
+		{
+			longueur_binaire = (unsigned char) (longueur_binaire + j);
+		}
+
 		j = (unsigned char) (j << 1);
 	}