--- rpl/src/sequenceur.c 2010/04/20 12:49:18 1.12 +++ rpl/src/sequenceur.c 2010/11/26 11:46:38 1.26 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.14 + RPL/2 (R) version 4.0.20 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -19,8 +19,8 @@ ================================================================================ */ -#define DEBUG_RETURN -#include "rpl.conv.h" + +#include "rpl-conv.h" /* @@ -850,7 +850,6 @@ sequenceur(struct_processus *s_etat_proc { (*s_etat_processus).erreur_execution = d_ex_manque_argument; -//////////////////////////////////////////////////////////////////////////////// return(d_erreur); } @@ -1091,6 +1090,10 @@ sequenceur(struct_processus *s_etat_proc erreur = d_absence_erreur; } } + else if ((*s_etat_processus).recherche_type == 'Y') + { + erreur = d_erreur; + } else if ((*s_etat_processus).arret_si_exception == d_vrai) { drapeau_fin = d_faux;