--- rpl/src/instructions_d4.c	2013/02/27 17:11:42	1.48
+++ rpl/src/instructions_d4.c	2013/09/06 10:30:53	1.53
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
+  RPL/2 (R) version 4.1.16
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -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;
@@ -386,7 +386,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;
@@ -452,7 +452,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;
@@ -543,7 +543,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;
@@ -574,7 +574,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 +710,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 +853,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))
 			{