--- rpl/src/compilation.c 2015/02/19 11:01:18 1.77 +++ rpl/src/compilation.c 2015/07/09 21:19:03 1.81 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.21 + RPL/2 (R) version 4.1.22 Copyright (C) 1989-2015 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1501,6 +1501,12 @@ recherche_instruction_suivante_recursive pointeur_caractere_courant++; break; } + else if ((*pointeur_caractere_courant) == '=') + { // Cas de '>=' + drapeau_fin_objet = d_vrai; + pointeur_caractere_courant++; + break; + } else if ((*pointeur_caractere_courant) != d_code_espace) { // Tous les cas différents de '>' @@ -1706,6 +1712,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 {