--- rpl/src/instructions_r4.c	2015/01/05 13:12:38	1.91
+++ rpl/src/instructions_r4.c	2016/03/29 12:27:35	1.99
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2015 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.25
+  Copyright (C) 1989-2016 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -1331,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;
@@ -1504,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;
@@ -1578,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;
@@ -1671,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 =
@@ -1801,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 =
@@ -2060,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)
 					{
@@ -2160,6 +2163,13 @@ instruction_read(struct_processus *s_eta
 								}
 							}
 						}
+						else
+						{
+							// Évite un warning de gcc.
+							longueur_questure = 0;
+							index = 0;
+							timeout = 0;
+						}
 
 						do
 						{