--- rpl/src/instructions_c8.c	2014/07/17 08:07:20	1.15
+++ rpl/src/instructions_c8.c	2015/02/19 11:01:22	1.19
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.19
-  Copyright (C) 1989-2014 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -350,8 +350,9 @@ instruction_cipher(struct_processus *s_e
 			return;
 		}
 
-		if ((instruction = conversion_majuscule((unsigned char *)
-				(*(*l_element_courant).donnee).objet)) == NULL)
+		if ((instruction = conversion_majuscule(s_etat_processus,
+				(unsigned char *) (*(*l_element_courant).donnee).objet))
+				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -414,7 +415,8 @@ instruction_cipher(struct_processus *s_e
 
 			// Test de la validité de la somme de contrôle.
 
-			if ((fonction = conversion_majuscule(controle)) == NULL)
+			if ((fonction = conversion_majuscule(s_etat_processus, controle))
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 				return;
@@ -1103,7 +1105,8 @@ instruction_cipher(struct_processus *s_e
 		return;
 	}
 
-	if ((tampon = conversion_majuscule(algorithme_chiffrement)) == NULL)
+	if ((tampon = conversion_majuscule(s_etat_processus,
+			algorithme_chiffrement)) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
@@ -1669,7 +1672,8 @@ instruction_cipher(struct_processus *s_e
 			return;
 		}
 
-		if ((message_chiffre = chiffrement(EVP_chiffrement, encodage, message,
+		if ((message_chiffre = chiffrement(s_etat_processus,
+				EVP_chiffrement, encodage, message,
 				longueur_message, clef_binaire, longueur_clef_binaire,
 				iv_binaire, &longueur_message_chiffre)) == NULL)
 		{
@@ -1754,7 +1758,8 @@ instruction_cipher(struct_processus *s_e
 		}
 
 		if (((*(*l_element_courant).donnee).objet =
-				conversion_majuscule(algorithme_chiffrement)) == NULL)
+				conversion_majuscule(s_etat_processus, algorithme_chiffrement))
+				== NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;