--- rpl/src/instructions_r4.c	2014/04/25 07:37:33	1.88
+++ rpl/src/instructions_r4.c	2018/05/30 09:27:36	1.105
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.18
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1275,6 +1275,7 @@ instruction_read(struct_processus *s_eta
 				indicateur_48 = test_cfsf(s_etat_processus, 48);
 				cf(s_etat_processus, 48);
 
+				(*s_etat_processus).type_en_cours = NON;
 				recherche_type(s_etat_processus);
 				free((*s_etat_processus).instruction_courante);
 
@@ -1330,9 +1331,9 @@ instruction_read(struct_processus *s_eta
 					return;
 				}
 
-				if (alsprintf(&commande, "select data from data where "
-						"id = %lld", (*((integer8 *) (*s_objet_argument_2)
-						.objet))) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select data from data where id = %lld",
+						(*((integer8 *) (*s_objet_argument_2).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1429,6 +1430,7 @@ instruction_read(struct_processus *s_eta
 				indicateur_48 = test_cfsf(s_etat_processus, 48);
 				cf(s_etat_processus, 48);
 
+				(*s_etat_processus).type_en_cours = NON;
 				recherche_type(s_etat_processus);
 
 				if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1502,8 +1504,8 @@ instruction_read(struct_processus *s_eta
 
 				// Récupération de la position de la clef
 
-				if (alsprintf(&commande, "select key from control "
-						"where id = 1") < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select key from control where id = 1") < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1576,8 +1578,9 @@ instruction_read(struct_processus *s_eta
 
 				// Récupération de l'identifiant de la clef
 
-				if (alsprintf(&commande, "select id from key where key = "
-						"'{ \"%s\" }'", clef_utf8) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select id from key where key = '{ \"%s\" }'",
+						clef_utf8) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1669,7 +1672,8 @@ instruction_read(struct_processus *s_eta
 
 				free(commande);
 
-				if (alsprintf(&commande, "select data from data where "
+				if (alsprintf(s_etat_processus, &commande,
+						"select data from data where "
 						"key_id = %lld order by sequence asc", id) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -1736,6 +1740,7 @@ instruction_read(struct_processus *s_eta
 							indicateur_48 = test_cfsf(s_etat_processus, 48);
 							cf(s_etat_processus, 48);
 
+							(*s_etat_processus).type_en_cours = NON;
 							recherche_type(s_etat_processus);
 
 							if ((*s_etat_processus).erreur_execution != d_ex)
@@ -1798,8 +1803,8 @@ instruction_read(struct_processus *s_eta
 									return;
 								}
 
-								if (alsprintf(&tampon2, "{ \"%s\" }",
-										(*s_etat_processus)
+								if (alsprintf(s_etat_processus, &tampon2,
+										"{ \"%s\" }", (*s_etat_processus)
 										.instruction_courante) < 0)
 								{
 									(*s_etat_processus).erreur_systeme =
@@ -1814,6 +1819,7 @@ instruction_read(struct_processus *s_eta
 								indicateur_48 = test_cfsf(s_etat_processus, 48);
 								cf(s_etat_processus, 48);
 
+								(*s_etat_processus).type_en_cours = NON;
 								recherche_type(s_etat_processus);
 
 								if ((*s_etat_processus).erreur_execution
@@ -2056,7 +2062,8 @@ instruction_read(struct_processus *s_eta
 						return;
 					}
 
-					if ((format_chaine = conversion_majuscule((unsigned char *)
+					if ((format_chaine = conversion_majuscule(
+							s_etat_processus, (unsigned char *)
 							(*(*l_element_courant_format).donnee).objet))
 							== NULL)
 					{
@@ -2156,6 +2163,13 @@ instruction_read(struct_processus *s_eta
 								}
 							}
 						}
+						else
+						{
+							// Évite un warning de gcc.
+							longueur_questure = 0;
+							index = 0;
+							timeout = 0;
+						}
 
 						do
 						{
@@ -2755,6 +2769,7 @@ instruction_read(struct_processus *s_eta
 			indicateur_48 = test_cfsf(s_etat_processus, 48);
 			cf(s_etat_processus, 48);
 
+			(*s_etat_processus).type_en_cours = NON;
 			recherche_type(s_etat_processus);
 
 			if ((*s_etat_processus).erreur_execution != d_ex)
@@ -3507,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 =
@@ -3541,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);
 					}
@@ -3551,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);
 					}
@@ -3562,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
@@ -3690,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;
@@ -3774,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;
@@ -3785,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 =
@@ -3865,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 =
@@ -3946,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);
 			}
 
@@ -3957,7 +3976,6 @@ instruction_read(struct_processus *s_eta
 			{
 				return;
 			}
-#endif
 		}
 	}
 	else