--- rpl/src/instructions_r4.c	2016/03/01 22:12:33	1.98
+++ rpl/src/instructions_r4.c	2017/06/20 15:17:02	1.102
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.25
-  Copyright (C) 1989-2016 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.26
+  Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -2163,6 +2163,13 @@ instruction_read(struct_processus *s_eta
 								}
 							}
 						}
+						else
+						{
+							// Évite un warning de gcc.
+							longueur_questure = 0;
+							index = 0;
+							timeout = 0;
+						}
 
 						do
 						{
@@ -3515,12 +3522,12 @@ instruction_read(struct_processus *s_eta
 		}
 		else
 		{ // FLOW
-#if 0
 			longueur_questure = 256;
 
 			do
 			{
-				if ((tampon_lecture = malloc((longueur_questure + 1) *
+				if ((tampon_lecture = malloc((((long long unsigned int)
+						longueur_questure) + 1) *
 						sizeof(unsigned char))) == NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -3549,7 +3556,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_unix);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_unix, &longueur_adresse);
 					}
@@ -3559,7 +3567,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_ipv4);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv4, &longueur_adresse);
 					}
@@ -3570,7 +3579,8 @@ instruction_read(struct_processus *s_eta
 						longueur_adresse = sizeof(adresse_ipv6);
 						longueur_effective = recvfrom((*((struct_socket *)
 								(*s_objet_argument_1).objet)).socket,
-								tampon_lecture, longueur_questure,
+								tampon_lecture, (long unsigned int)
+								longueur_questure,
 								MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *)
 								&adresse_ipv6, &longueur_adresse);
 #						else
@@ -3698,7 +3708,8 @@ instruction_read(struct_processus *s_eta
 				return;
 			}
 
-			if (((*s_objet_type).objet = malloc(longueur_enregistrement *
+			if (((*s_objet_type).objet = malloc((long long unsigned int)
+					longueur_enregistrement *
 					sizeof(unsigned char))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -3782,7 +3793,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 
 				(*s_objet_adresse).objet = NULL;
@@ -3793,7 +3804,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = sizeof(adresse_ipv4);
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						(struct sockaddr *) &adresse_ipv4, &longueur_adresse);
 
 				if (((*s_objet_adresse).objet =
@@ -3873,7 +3884,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = sizeof(adresse_ipv6);
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						(struct sockaddr *) &adresse_ipv6, &longueur_adresse);
 
 				if (((*s_objet_adresse).objet =
@@ -3954,7 +3965,7 @@ instruction_read(struct_processus *s_eta
 				longueur_adresse = 0;
 				recvfrom((*((struct_socket *)
 						(*s_objet_argument_1).objet)).socket, tampon_lecture,
-						position_finale, MSG_DONTWAIT,
+						(long unsigned int) longueur_effective, MSG_DONTWAIT,
 						NULL, &longueur_adresse);
 			}
 
@@ -3965,7 +3976,6 @@ instruction_read(struct_processus *s_eta
 			{
 				return;
 			}
-#endif
 		}
 	}
 	else