Diff for /rpl/src/instructions_p4.c between versions 1.45 and 1.65

version 1.45, 2013/02/27 17:11:43 version 1.65, 2016/09/27 15:29:37
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.13    RPL/2 (R) version 4.1.26
   Copyright (C) 1989-2013 Dr. BERTRAND Joël    Copyright (C) 1989-2016 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 1289  instruction_perm(struct_processus *s_eta Line 1301  instruction_perm(struct_processus *s_eta
                 return;                  return;
             }              }
   
             if (fabs(c - floor(c)) < fabs(ceil(c) - c))              if (abs(c - floor(c)) < fabs(ceil(c) - c))
             {              {
                 (*((integer8 *) (*s_objet_resultat).objet)) =                  (*((integer8 *) (*s_objet_resultat).objet)) =
                         (integer8) floor(c);                          (integer8) floor(c);
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 1424  instruction_psdev(struct_processus *s_et Line 1436  instruction_psdev(struct_processus *s_et
         }          }
   
         if (((*s_objet_resultat).objet = ecart_type_statistique(          if (((*s_objet_resultat).objet = ecart_type_statistique(
                   s_etat_processus,
                 (struct_matrice *) (*s_objet_statistique).objet, 'P')) == NULL)                  (struct_matrice *) (*s_objet_statistique).objet, 'P')) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 1519  instruction_pvar(struct_processus *s_eta Line 1532  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;
   
Line 1601  instruction_pvar(struct_processus *s_eta Line 1614  instruction_pvar(struct_processus *s_eta
             return;              return;
         }          }
   
         if (((*s_objet_resultat).objet = variance_statistique((struct_matrice *)          if (((*s_objet_resultat).objet = variance_statistique(s_etat_processus,
                 (*s_objet_statistique).objet, 'P')) == NULL)                  (struct_matrice *) (*s_objet_statistique).objet, 'P')) == 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.45  
changed lines
  Added in v.1.65


CVSweb interface <joel.bertrand@systella.fr>