--- rpl/src/controle.c	2011/06/21 07:45:21	1.23
+++ rpl/src/controle.c	2014/07/17 08:07:16	1.51
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.0.prerelease.1
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -91,7 +91,7 @@ controle(struct_processus *s_etat_proces
 
 	taille_fichier = stat_buf.st_size;
 
-	if ((chaine = malloc(taille_fichier)) == NULL)
+	if ((chaine = malloc((size_t) taille_fichier)) == NULL)
 	{
 #		ifdef OS2
 		free(fichier);
@@ -117,7 +117,8 @@ controle(struct_processus *s_etat_proces
 	free(fichier);
 #	endif
 
-  	if ((octets_lus = read(in_fd, chaine, taille_fichier)) != taille_fichier)
+  	if ((octets_lus = read(in_fd, chaine, (size_t) taille_fichier))
+			!= (ssize_t) taille_fichier)
 	{
 #		ifndef OS2
 		close(in_fd);
@@ -141,7 +142,7 @@ controle(struct_processus *s_etat_proces
 			return(d_faux);
 		}
 
-		if (EVP_DigestUpdate(&contexte, chaine, taille_fichier) != 1)
+		if (EVP_DigestUpdate(&contexte, chaine, (size_t) taille_fichier) != 1)
 		{
 			close(in_fd);
 			free(chaine);
@@ -170,7 +171,7 @@ controle(struct_processus *s_etat_proces
 			return(d_faux);
 		}
 
-		if (EVP_DigestUpdate(&contexte, chaine, taille_fichier) != 1)
+		if (EVP_DigestUpdate(&contexte, chaine, (size_t) taille_fichier) != 1)
 		{
 			close(in_fd);
 			free(chaine);