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

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

version 1.74, 2015/01/28 20:58:02 version 1.75, 2015/01/28 21:47:26
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 1490  uprintf("%c", *pointeur_caractere_couran Line 1489  uprintf("%c", *pointeur_caractere_couran
                             pointeur_caractere_courant++;                              pointeur_caractere_courant++;
                         }                          }
   
                         if ((*pointeur_caractere_courant) == '>')                          if (((*pointeur_caractere_courant) == '>') &&
                                   ((*(pointeur_caractere_courant - 1)) ==
                                   d_code_espace))
                         {                          {
                             if ((*(++pointeur_caractere_courant)) == '>')                              if ((*(++pointeur_caractere_courant)) == '>')
                             {                              {
Line 1640  uprintf("%c", *pointeur_caractere_couran Line 1641  uprintf("%c", *pointeur_caractere_couran
   
         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 1712  uprintf("\n"); Line 1710  uprintf("\n");
     (*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.74  
changed lines
  Added in v.1.75

CVSweb interface <joel.bertrand@systella.fr>