--- rpl/src/rplcore.c	2013/04/15 11:45:33	1.49
+++ rpl/src/rplcore.c	2020/01/10 11:15:51	1.74
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.14
-  Copyright (C) 1989-2013 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.
 
@@ -145,7 +145,7 @@ rplcore(struct_processus *s_etat_process
 		return;
 	}
 
-	if ((*s_etat_processus).instruction_derniere_erreur != NULL)
+	if ((*s_etat_processus).instruction_derniere_erreur == NULL)
 	{
 		if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
 				message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
@@ -198,7 +198,7 @@ rplcore(struct_processus *s_etat_process
 			(*s_etat_processus).l_base_pile_processus;
 	i = 0;
 
-	if (pthread_mutex_trylock(&((*s_etat_processus).mutex)) == 0)
+	if (pthread_mutex_trylock(&((*s_etat_processus).mutex_pile_processus)) == 0)
 	{
 		while(l_element_courant != NULL)
 		{
@@ -238,7 +238,7 @@ rplcore(struct_processus *s_etat_process
 			return;
 		}
 
-		pthread_mutex_unlock(&((*s_etat_processus).mutex));
+		pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus));
 	}
 
 	if (test_cfsf(s_etat_processus, 31) == d_vrai)