--- rpl/src/compilation.c 2015/02/19 11:01:18 1.77 +++ rpl/src/compilation.c 2017/06/28 09:20:30 1.88 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.21 - Copyright (C) 1989-2015 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.27 + Copyright (C) 1989-2017 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1501,6 +1501,10 @@ recherche_instruction_suivante_recursive pointeur_caractere_courant++; break; } + else if ((*pointeur_caractere_courant) == '=') + { // Cas de '>=' + pointeur_caractere_courant++; + } else if ((*pointeur_caractere_courant) != d_code_espace) { // Tous les cas différents de '>' @@ -1706,6 +1710,11 @@ recherche_instruction_suivante_recursive erreur = ((erreur_analyse == d_ex) && (erreur_format == d_ex)) ? d_absence_erreur : d_erreur; (*s_etat_processus).erreur_execution = erreur_analyse; + + if ((*s_etat_processus).erreur_execution == d_ex) + { + (*s_etat_processus).erreur_execution = erreur_format; + } } else {