[BACK]Return to compilation.c CVS log [TXT] [DIR] Up to [local] / rpl / src

Diff for /rpl/src/compilation.c between versions 1.73 and 1.74

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

CVSweb interface <joel.bertrand@systella.fr>