--- rpl/src/instructions_a4.c	2013/09/06 10:30:52	1.46
+++ rpl/src/instructions_a4.c	2019/10/31 15:40:07	1.67
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.16
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.32
+  Copyright (C) 1989-2019 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -116,7 +116,8 @@ instruction_autoscale(struct_processus *
 
 	if ((*s_objet).type == NOM)
 	{
-		tampon = conversion_majuscule((*((struct_nom *) (*s_objet).objet)).nom);
+		tampon = conversion_majuscule(s_etat_processus,
+				(*((struct_nom *) (*s_objet).objet)).nom);
 
 		if (tampon == NULL)
 		{
@@ -188,7 +189,7 @@ instruction_autoscale(struct_processus *
 				return;
 			}
 
-			tampon = conversion_majuscule((*((struct_nom *)
+			tampon = conversion_majuscule(s_etat_processus, (*((struct_nom *)
 					(*(*l_element_courant).donnee).objet)).nom);
 
 			if ((strcmp(tampon, "X") != 0) && (strcmp(tampon, "Y")!= 0) &&
@@ -757,8 +758,9 @@ instruction_axes(struct_processus *s_eta
 					return;
 				}
 
-				if ((tampon = conversion_majuscule((unsigned char *)
-						(*(*l_element_courant).donnee).objet)) == NULL)
+				if ((tampon = conversion_majuscule(s_etat_processus,
+						(unsigned char *) (*(*l_element_courant).donnee).objet))
+						== NULL)
 				{
 					(*s_etat_processus).erreur_systeme =
 							d_es_allocation_memoire;
@@ -1336,7 +1338,8 @@ instruction_axes(struct_processus *s_eta
 					else if ((*(*l_element_courant_auxiliaire).donnee)
 							.type == CHN)
 					{
-						tampon = conversion_majuscule((unsigned char *)
+						tampon = conversion_majuscule(s_etat_processus,
+								(unsigned char *)
 								(*(*l_element_courant_auxiliaire).donnee)
 								.objet);