Diff for /rpl/src/instructions_c6.c between versions 1.36 and 1.37

version 1.36, 2012/04/03 13:38:27 version 1.37, 2012/04/03 14:25:22
Line 837  instruction_clrfuse(struct_processus *s_ Line 837  instruction_clrfuse(struct_processus *s_
 */  */
   
 static inline struct_objet *  static inline struct_objet *
 creation_table(struct_liste_chainee *dimensions)  creation_table(struct_processus *s_etat_processus,
           struct_liste_chainee *dimensions)
 {  {
     struct_objet        *s_table;      struct_objet        *s_table;
   
Line 878  creation_table(struct_liste_chainee *dim Line 879  creation_table(struct_liste_chainee *dim
                 .nombre_elements; i++)                  .nombre_elements; i++)
         {          {
             if (((*((struct_tableau *) (*s_table).objet)).elements[i] =              if (((*((struct_tableau *) (*s_table).objet)).elements[i] =
                     creation_table(dimensions)) == NULL)                      creation_table(s_etat_processus, dimensions)) == NULL)
             {              {
                 return(NULL);                  return(NULL);
             }              }
Line 964  instruction_crtab(struct_processus *s_et Line 965  instruction_crtab(struct_processus *s_et
             l_element_courant = (*l_element_courant).suivant;              l_element_courant = (*l_element_courant).suivant;
         }          }
   
         if ((s_objet_resultat =          if ((s_objet_resultat = creation_table(s_etat_processus,
                 creation_table((*s_objet_argument).objet)) == NULL)                      (*s_objet_argument).objet)) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;

Removed from v.1.36  
changed lines
  Added in v.1.37


CVSweb interface <joel.bertrand@systella.fr>