--- rpl/rplsums/rplsum.c	2010/08/06 15:32:56	1.5
+++ rpl/rplsums/rplsum.c	2020/01/10 11:15:38	1.19
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.12
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -30,7 +30,7 @@
 int
 main(int argc, char *argv[])
 {
-	EVP_MD_CTX			contexte;
+	EVP_MD_CTX			*contexte;
 
 	int					in_fd;
 
@@ -83,10 +83,11 @@ main(int argc, char *argv[])
 	{
 #		ifndef OS2
 		// Sur des fichiers binaires et sous OS/2, le nombre d'octets lus peut
-		// etre inferieur … la taille du fichier sur le disque.
+		// être inférieur à la taille du fichier sur le disque.
 
 		fprintf(stderr, "read() failed\n");
-		fprintf(stderr, "Meditation: %d < %d\n", octets_lus, taille_fichier);
+		fprintf(stderr, "Meditation: %d < %d\n", (int) octets_lus,
+				(int) taille_fichier);
 		perror("read");
 		close(in_fd);
 		free(chaine);
@@ -96,31 +97,42 @@ main(int argc, char *argv[])
 
 	close(in_fd);
 
-	if (EVP_DigestInit(&contexte, EVP_sum()) != 1)
+	if ((contexte = EVP_MD_CTX_new()) == NULL)
+	{
+		fprintf(stderr, "EVP_MD_CTX_new() failed\n");
+		close(in_fd);
+		free(chaine);
+		exit(EXIT_FAILURE);
+	}
+
+	if (EVP_DigestInit(contexte, EVP_sum()) != 1)
 	{
 		fprintf(stderr, "EVP_DigestInit() failed\n");
+		EVP_MD_CTX_free(contexte);
 		close(in_fd);
 		free(chaine);
 		exit(EXIT_FAILURE);
 	}
 
-	if (EVP_DigestUpdate(&contexte, chaine, taille_fichier) != 1)
+	if (EVP_DigestUpdate(contexte, chaine, taille_fichier) != 1)
 	{
 		fprintf(stderr, "EVP_DigestUpdate() failed\n");
+		EVP_MD_CTX_free(contexte);
 		close(in_fd);
 		free(chaine);
 		exit(EXIT_FAILURE);
 	}
 
-	if (EVP_DigestFinal_ex(&contexte, somme, &longueur_somme) != 1)
+	if (EVP_DigestFinal_ex(contexte, somme, &longueur_somme) != 1)
 	{
 		fprintf(stderr, "EVP_DigestFinal_ex() failed\n");
+		EVP_MD_CTX_free(contexte);
 		close(in_fd);
 		free(chaine);
 		exit(EXIT_FAILURE);
 	}
 
-	EVP_MD_CTX_cleanup(&contexte);
+	EVP_MD_CTX_free(contexte);
 	free(chaine);
 
 	for(i = 0; i < longueur_somme; i++)