--- rpl/src/instructions_s2.c 2010/04/21 13:45:49 1.11 +++ rpl/src/instructions_s2.c 2011/03/06 16:44:13 1.22 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.15 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.0.21 + Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -1257,7 +1257,8 @@ instruction_str_fleche(struct_processus recherche_type(s_etat_processus); - if ((*s_etat_processus).erreur_execution != d_ex) + if (((*s_etat_processus).erreur_execution != d_ex) || + ((*s_etat_processus).erreur_systeme != d_es)) { liberation(s_etat_processus, s_objet);