--- rpl/src/compilation.c 2015/01/28 11:44:55 1.73 +++ rpl/src/compilation.c 2015/01/28 20:58:02 1.74 @@ -997,6 +997,7 @@ recherche_instruction_suivante_recursive (drapeau_fin_objet == d_faux) && (erreur_analyse == d_ex) && (erreur_format == d_ex)) { +uprintf("%c", *pointeur_caractere_courant); switch(*pointeur_caractere_courant++) { case ']' : @@ -1639,15 +1640,18 @@ recherche_instruction_suivante_recursive if ((*(pointeur_caractere_courant - 1)) == caractere_fin) { +uprintf(" > cas 1"); // Cas des objets composites (LST, RPN, TBL) break; } else if ((*pointeur_caractere_courant) == caractere_fin) { +uprintf(" > cas 2"); // Condition pour traiter les cas 123} break; } } +uprintf("\n"); pointeur_fin_instruction = pointeur_caractere_courant; @@ -1669,7 +1673,7 @@ recherche_instruction_suivante_recursive default: { (*s_etat_processus).erreur_execution = d_ex_syntaxe; - return(d_erreur); +// return(d_erreur); } } } @@ -1708,6 +1712,7 @@ recherche_instruction_suivante_recursive (*s_etat_processus).position_courante = pointeur_fin_instruction - (*s_etat_processus).definitions_chainees; +uprintf("'%s'\n", (*s_etat_processus).instruction_courante); return(erreur); }