--- rpl/src/bibliotheques_externes.c	2017/07/30 21:59:41	1.74
+++ rpl/src/bibliotheques_externes.c	2024/01/09 07:33:46	1.88
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.27
-  Copyright (C) 1989-2017 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.35
+  Copyright (C) 1989-2024 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -376,7 +376,15 @@ chargement_bibliotheque(struct_processus
 	{
 		if ((fleche = strstr(tableau[i], "->")) != NULL)
 		{
-			strncpy(fleche, "to", 2);
+			memcpy(fleche, "to", 2);
+			(*s_etat_processus).s_instructions_externes[(*s_etat_processus)
+					.nombre_instructions_externes].position_fleche =
+					fleche - tableau[i];
+		}
+		else
+		{
+			(*s_etat_processus).s_instructions_externes[(*s_etat_processus)
+					.nombre_instructions_externes].position_fleche = -1;
 		}
 
 		(*s_etat_processus).s_instructions_externes[(*s_etat_processus)
@@ -918,7 +926,7 @@ execution_fonction_de_bibliotheque(struc
 
 	if ((fleche = strstr(nom_fonction, "->")) != NULL)
 	{
-		strncpy(fleche, "to", 2);
+		memcpy(fleche, "to", 2);
 	}
 
 	ordre_iteration = 0;
@@ -1419,6 +1427,8 @@ struct_liste_chainee *
 empilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,
 		struct_objet *s_objet)
 {
+#	pragma GCC diagnostic push
+#	pragma GCC diagnostic ignored "-Wunused-but-set-variable"
 	struct_liste_chainee		*l_ancienne_base_liste;
 	struct_liste_chainee		*l_nouvelle_base_liste;
 
@@ -1439,6 +1449,7 @@ empilement_pile_operationnelle(struct_rp
 	(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;
 
 	return l_nouvelle_base_liste;
+#	pragma GCC diagnostic pop
 }
 
 
@@ -1458,6 +1469,8 @@ struct_liste_chainee *
 depilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,
 		struct_objet **s_objet)
 {
+#	pragma GCC diagnostic push
+#	pragma GCC diagnostic ignored "-Wunused-but-set-variable"
 	struct_liste_chainee		*l_ancienne_base_liste;
 	struct_liste_chainee		*l_nouvelle_base_liste;
 
@@ -1466,7 +1479,7 @@ depilement_pile_operationnelle(struct_rp
 	if ((*s_rpl_arguments).l_base_pile == NULL)
 	{
 		*s_objet = NULL;
-		return(NULL);
+		return NULL ;
 	}
 	else
 	{
@@ -1479,8 +1492,9 @@ depilement_pile_operationnelle(struct_rp
 
 		(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;
 
-		return(l_nouvelle_base_liste);
+		return l_nouvelle_base_liste ;
 	}
+#	pragma GCC diagnostic pop
 }