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

Diff for /rpl/src/instructions_p4.c between versions 1.46 and 1.57

version 1.46, 2013/03/16 11:31:41 version 1.57, 2015/01/05 13:12:37
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.19
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2015 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 470  instruction_prvar(struct_processus *s_et Line 470  instruction_prvar(struct_processus *s_et
 void  void
 instruction_prusr(struct_processus *s_etat_processus)  instruction_prusr(struct_processus *s_etat_processus)
 {  {
     int                         i;      integer8                    i;
     int                         nb_variables;      integer8                    j;
       integer8                    nb_variables;
   
     struct_objet                s_objet;      struct_objet                s_objet;
   
Line 512  instruction_prusr(struct_processus *s_et Line 513  instruction_prusr(struct_processus *s_et
   
     nb_variables = nombre_variables(s_etat_processus);      nb_variables = nombre_variables(s_etat_processus);
   
     if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables)))      if ((tableau = malloc(((size_t) nb_variables) *
             == NULL)              sizeof(struct_tableau_variables))) == NULL)
     {      {
         liberation_mutexes_arbre_variables_partagees(s_etat_processus,          liberation_mutexes_arbre_variables_partagees(s_etat_processus,
                 (*(*s_etat_processus).s_arbre_variables_partagees));                  (*(*s_etat_processus).s_arbre_variables_partagees));
Line 521  instruction_prusr(struct_processus *s_et Line 522  instruction_prusr(struct_processus *s_et
         return;          return;
     }      }
   
     liste_variables(s_etat_processus, tableau);      nb_variables = liste_variables(s_etat_processus, tableau);
   
     s_objet.type = CHN;      s_objet.type = CHN;
   
     for(i = 0; i < nb_variables; i++)      for(i = 0; i < nb_variables; i++)
Line 530  instruction_prusr(struct_processus *s_et Line 530  instruction_prusr(struct_processus *s_et
         if ((s_objet.objet = malloc((strlen(tableau[i].nom) + 64)          if ((s_objet.objet = malloc((strlen(tableau[i].nom) + 64)
                 * sizeof(unsigned char))) == NULL)                  * sizeof(unsigned char))) == NULL)
         {          {
               for(j = i; j < nb_variables; j++)
               {
                   if (tableau[j].mutex != NULL)
                   {
                       pthread_mutex_unlock(tableau[i].mutex);
                   }
               }
   
             free(tableau);              free(tableau);
   
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
         }          }
   
         sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lu]\n",          sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lld]\n",
                 tableau[i].nom, tableau[i].niveau);                  tableau[i].nom, tableau[i].niveau);
   
           if (tableau[i].mutex != NULL)
           {
               pthread_mutex_unlock(tableau[i].mutex);
           }
   
         formateur_tex(s_etat_processus, &s_objet, 'N');          formateur_tex(s_etat_processus, &s_objet, 'N');
         free(s_objet.objet);          free(s_objet.objet);
     }      }
Line 563  instruction_prusr(struct_processus *s_et Line 576  instruction_prusr(struct_processus *s_et
 void  void
 instruction_prmd(struct_processus *s_etat_processus)  instruction_prmd(struct_processus *s_etat_processus)
 {  {
       long                        i;
       long                        j;
     long                        longueur_utile;      long                        longueur_utile;
     long                        longueur_utile_limite;      long                        longueur_utile_limite;
   
     struct_objet                s_objet;      struct_objet                s_objet;
   
     unsigned long               i;  
     unsigned long               j;  
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 1342  instruction_psdev(struct_processus *s_et Line 1354  instruction_psdev(struct_processus *s_et
     struct_objet                        *s_objet_resultat;      struct_objet                        *s_objet_resultat;
     struct_objet                        *s_objet_temporaire;      struct_objet                        *s_objet_temporaire;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Line 1519  instruction_pvar(struct_processus *s_eta Line 1531  instruction_pvar(struct_processus *s_eta
     struct_objet                        *s_objet_resultat;      struct_objet                        *s_objet_resultat;
     struct_objet                        *s_objet_temporaire;      struct_objet                        *s_objet_temporaire;
   
     unsigned long                       nombre_colonnes;      integer8                            nombre_colonnes;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
Removed from v.1.46  
changed lines
  Added in v.1.57

CVSweb interface <joel.bertrand@systella.fr>