--- rpl/src/instructions_d4.c	2013/02/27 17:11:42	1.48
+++ rpl/src/instructions_d4.c	2018/05/30 09:27:34	1.70
@@ -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.29
+  Copyright (C) 1989-2018 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -310,9 +310,9 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "select count(*) from data where "
-						"id = %lld", (*((integer8 *) (*s_objet_indice).objet)))
-						< 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select count(*) from data where id = %lld",
+						(*((integer8 *) (*s_objet_indice).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -320,7 +320,7 @@ instruction_delete(struct_processus *s_e
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -377,7 +377,8 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "delete from data where id = %lld",
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from data where id = %lld",
 						(*((integer8 *) (*s_objet_indice).objet))) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
@@ -386,7 +387,7 @@ instruction_delete(struct_processus *s_e
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -441,8 +442,9 @@ instruction_delete(struct_processus *s_e
 					return;
 				}
 
-				if (alsprintf(&commande, "select id from key where key = "
-						"'{ \"%s\" }'", utf8) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"select id from key where key = '{ \"%s\" }'", utf8)
+						< 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -452,7 +454,7 @@ instruction_delete(struct_processus *s_e
 				free(utf8);
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -534,8 +536,9 @@ instruction_delete(struct_processus *s_e
 
 				free(commande);
 
-				if (alsprintf(&commande, "delete from data where key_id = %lld",
-						lecture_i64) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from data where key_id = %lld", lecture_i64)
+						< 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -543,7 +546,7 @@ instruction_delete(struct_processus *s_e
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -565,8 +568,8 @@ instruction_delete(struct_processus *s_e
 
 				free(commande);
 
-				if (alsprintf(&commande, "delete from key where id = %lld",
-						lecture_i64) < 0)
+				if (alsprintf(s_etat_processus, &commande,
+						"delete from key where id = %lld", lecture_i64) < 0)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -574,7 +577,7 @@ instruction_delete(struct_processus *s_e
 				}
 
 				if (sqlite3_prepare_v2((*descripteur).descripteur_sqlite,
-						commande, strlen(commande), &ppStmt, &queue)
+						commande, (int) strlen(commande), &ppStmt, &queue)
 						!= SQLITE_OK)
 				{
 					(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
@@ -710,7 +713,7 @@ instruction_drws(struct_processus *s_eta
 
 	unsigned char				*nom_fichier;
 
-	unsigned long				j;
+	integer8					j;
 
 	struct_fichier_graphique	*l_fichier_courant;
 	struct_fichier_graphique	*l_fichier_precedent;
@@ -853,10 +856,10 @@ instruction_drws(struct_processus *s_eta
 
 			if (((*s_etat_processus).colonne_statistique_1 < 1) ||
 					((*s_etat_processus).colonne_statistique_2 < 1) ||
-					((*s_etat_processus).colonne_statistique_1 > (signed long)
+					((*s_etat_processus).colonne_statistique_1 >
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.nombre_colonnes) ||
-					((*s_etat_processus).colonne_statistique_2 > (signed long)
+					((*s_etat_processus).colonne_statistique_2 >
 					(*((struct_matrice *) (*s_objet_statistique).objet))
 					.nombre_colonnes))
 			{