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

Diff for /rpl/src/instructions_t3.c between versions 1.9 and 1.10

version 1.9, 2010/06/24 10:10:45 version 1.10, 2010/07/01 13:01:25
Line 514  instruction_trim(struct_processus *s_eta Line 514  instruction_trim(struct_processus *s_eta
     {      {
         debut = (unsigned char *) (*s_objet_argument).objet;          debut = (unsigned char *) (*s_objet_argument).objet;
   
         while(((*debut) != d_code_fin_chaine) && ((*debut) == d_code_espace))          while(((*debut) != d_code_fin_chaine) &&
                   (((*debut) == d_code_espace)
                   || ((*debut) == d_code_retour_chariot)
                   || ((*debut) == d_code_tabulation)))
         {          {
             debut++;              debut++;
         }          }
Line 522  instruction_trim(struct_processus *s_eta Line 525  instruction_trim(struct_processus *s_eta
         fin = &(((unsigned char *) (*s_objet_argument).objet)          fin = &(((unsigned char *) (*s_objet_argument).objet)
                 [strlen((unsigned char *) (*s_objet_argument).objet) - 1]);                  [strlen((unsigned char *) (*s_objet_argument).objet) - 1]);
   
         while((fin > debut) && ((*fin) == d_code_espace))          while((fin > debut) &&
                   (((*fin) == d_code_espace)
                   || ((*fin) == d_code_retour_chariot)
                   || ((*fin) == d_code_tabulation)))
         {          {
             fin--;              fin--;
         }          }
Line 591  instruction_tokenize(struct_processus *s Line 597  instruction_tokenize(struct_processus *s
   
     struct_liste_chainee                *l_element_courant;      struct_liste_chainee                *l_element_courant;
   
       unsigned char                       *ptr;
     unsigned char                       *registre_instruction_courante;      unsigned char                       *registre_instruction_courante;
     unsigned char                       *registre_definitions_chainees;      unsigned char                       *registre_definitions_chainees;
   
Line 640  instruction_tokenize(struct_processus *s Line 647  instruction_tokenize(struct_processus *s
   
     if ((*s_objet_argument).type == CHN)      if ((*s_objet_argument).type == CHN)
     {      {
           // Remplacement des éventuels retours à la ligne et tabulations par
           // des espaces.
   
           ptr = (unsigned char *) (*s_objet_argument).objet;
   
           while((*ptr) != d_code_fin_chaine)
           {
               if (((*ptr) == d_code_retour_chariot) ||
                       ((*ptr) == d_code_tabulation))
               {
                   (*ptr) = d_code_espace;
               }
   
               ptr++;
           }
   
         if ((s_objet_resultat = allocation(s_etat_processus, LST)) == NULL)          if ((s_objet_resultat = allocation(s_etat_processus, LST)) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Removed from v.1.9  
changed lines
  Added in v.1.10

CVSweb interface <joel.bertrand@systella.fr>