--- rpl/src/compilation.c 2015/01/29 09:33:41 1.76 +++ rpl/src/compilation.c 2015/09/18 13:41:08 1.83 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.20 + RPL/2 (R) version 4.1.23 Copyright (C) 1989-2015 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 {