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

Diff for /rpl/src/gestion_objets.c between versions 1.134 and 1.148

version 1.134, 2017/07/02 22:29:02 version 1.148, 2020/01/10 11:15:42
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.27    RPL/2 (R) version 4.1.32
   Copyright (C) 1989-2017 Dr. BERTRAND Joël    Copyright (C) 1989-2020 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 106  initialisation_allocateur(struct_process Line 106  initialisation_allocateur(struct_process
     (*s_etat_processus).pointeur_int = 0;      (*s_etat_processus).pointeur_int = 0;
     (*s_etat_processus).pointeur_mat = 0;      (*s_etat_processus).pointeur_mat = 0;
     (*s_etat_processus).pointeur_nom = 0;      (*s_etat_processus).pointeur_nom = 0;
       (*s_etat_processus).pointeur_rec = 0;
     (*s_etat_processus).pointeur_rel = 0;      (*s_etat_processus).pointeur_rel = 0;
     (*s_etat_processus).pointeur_tab = 0;      (*s_etat_processus).pointeur_tab = 0;
     (*s_etat_processus).pointeur_vec = 0;      (*s_etat_processus).pointeur_vec = 0;
Line 141  liberation_allocateur(struct_processus * Line 142  liberation_allocateur(struct_processus *
             free((*s_etat_processus).objets_mat[i++]));              free((*s_etat_processus).objets_mat[i++]));
     for(i = 0; i < (*s_etat_processus).pointeur_nom;      for(i = 0; i < (*s_etat_processus).pointeur_nom;
             free((*s_etat_processus).objets_nom[i++]));              free((*s_etat_processus).objets_nom[i++]));
       for(i = 0; i < (*s_etat_processus).pointeur_rec;
               free((*s_etat_processus).objets_rec[i++]));
     for(i = 0; i < (*s_etat_processus).pointeur_rel;      for(i = 0; i < (*s_etat_processus).pointeur_rel;
             free((*s_etat_processus).objets_rel[i++]));              free((*s_etat_processus).objets_rel[i++]));
     for(i = 0; i < (*s_etat_processus).pointeur_tab;      for(i = 0; i < (*s_etat_processus).pointeur_tab;
Line 623  allocation(struct_processus *s_etat_proc Line 626  allocation(struct_processus *s_etat_proc
             break;              break;
         }          }
   
           case REC :
           {
               if ((*s_etat_processus).pointeur_rec > 0)
               {
                   (*s_objet).objet = (*s_etat_processus).objets_rec
                           [--(*s_etat_processus).pointeur_rec];
               }
               else
               {
                   if (((*s_objet).objet = malloc(sizeof(struct_record)))
                           == NULL)
                   {
                       (*s_etat_processus).erreur_systeme =
                               d_es_allocation_memoire;
                       free(s_objet);
                       return(NULL);
                   }
               }
   
               break;
           }
   
         case REL :          case REL :
         {          {
             if ((*s_etat_processus).pointeur_rel > 0)              if ((*s_etat_processus).pointeur_rel > 0)
Line 1273  liberation(struct_processus *s_etat_proc Line 1298  liberation(struct_processus *s_etat_proc
             break;              break;
         }          }
   
           case REC :
           {
               liberation(s_etat_processus,
                       (*((struct_record *) (*s_objet).objet)).noms);
               liberation(s_etat_processus,
                       (*((struct_record *) (*s_objet).objet)).donnees);
   
               if (decrementation_atomique(s_objet) > 0)
               {
                   return;
               }
   
               if ((*s_etat_processus).pointeur_rec < TAILLE_CACHE)
               {
                   (*s_etat_processus).objets_rec
                           [(*s_etat_processus).pointeur_rec++] = (*s_objet).objet;
               }
               else
               {
                   free((struct_record *) ((*s_objet).objet));
               }
   
               break;
           }
   
         case REL :          case REL :
         {          {
             if (decrementation_atomique(s_objet) > 0)              if (decrementation_atomique(s_objet) > 0)
Line 1510  liberation(struct_processus *s_etat_proc Line 1560  liberation(struct_processus *s_etat_proc
                 return;                  return;
             }              }
   
             // Appel de la fonction de duplication associée à l'objet              // Appel de la fonction de liberation associée à l'objet
             // externe. Le descripteur de bibliothèque est directement              // externe. Le descripteur de bibliothèque est directement
             // associé à la structure objet.              // associé à la structure objet.
   
             if ((__type_drop = dlsym((*s_objet).descripteur_bibliotheque,              l_element_courant = (*s_etat_processus).s_bibliotheques;
                     "__type_drop")) == NULL)  
             {  
                 // La fonction de duplication n'existe pas dans la  
                 // bibliothèque.  
   
                 (*s_etat_processus).erreur_execution = d_ex_type_externe_drop;              while(l_element_courant != NULL)
             }  
             else  
             {              {
                 if (__type_drop(s_etat_processus, (void **) &s_objet) == 0)                  if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
                           .descripteur == (*s_objet).descripteur_bibliotheque)
                 {                  {
                     (*s_etat_processus).erreur_execution =                      if ((__type_drop = dlsym((*s_objet)
                             d_ex_type_externe_drop;                              .descripteur_bibliotheque, "__type_drop")) == NULL)
                       {
                           // La fonction de libération n'existe pas dans la
                           // bibliothèque.
   
                           (*s_etat_processus).erreur_execution =
                                   d_ex_type_externe_drop;
                       }
                       else
                       {
                           if (__type_drop(s_etat_processus, (void **) &s_objet)
                                   == 0)
                           {
                               (*s_etat_processus).erreur_execution =
                                       d_ex_type_externe_drop;
                           }
                       }
   
                       break;
                 }                  }
   
                   l_element_courant = (*l_element_courant).suivant;
               }
   
               if (l_element_courant == NULL)
               {
                   (*s_etat_processus).erreur_execution = d_ex_type_externe_drop;
             }              }
   
             break;              break;
Line 2414  copie_objet(struct_processus *s_etat_pro Line 2484  copie_objet(struct_processus *s_etat_pro
             break;              break;
         }          }
   
           case REC :
           {
               if (type != 'P')
               {
                   if ((s_nouvel_objet = allocation(s_etat_processus, REC))
                           == NULL)
                   {
                       return(NULL);
                   }
   
                   if (((*((struct_record *) (*s_nouvel_objet).objet)).noms =
                           copie_objet(s_etat_processus, (*((struct_record *)
                           (*s_objet).objet)).noms, 'P')) == NULL)
                   {
                       return(NULL);
                   }
   
                   if (((*((struct_record *) (*s_nouvel_objet).objet)).donnees =
                           copie_objet(s_etat_processus, (*((struct_record *)
                           (*s_objet).objet)).donnees, type)) == NULL)
                   {
                       return(NULL);
                   }
               }
               else
               {
                   incrementation_atomique(s_objet);
                   (*((struct_record *) (*s_objet).objet)).noms =
                           copie_objet(s_etat_processus, (*((struct_record *)
                           (*s_objet).objet)).noms, 'P');
                   (*((struct_record *) (*s_objet).objet)).donnees =
                           copie_objet(s_etat_processus, (*((struct_record *)
                           (*s_objet).objet)).donnees, 'P');
   
                   return(s_objet);
               }
   
               break;
           }
   
         case REL :          case REL :
         {          {
             if (type != 'O')              if (type != 'O')
Line 2866  copie_objet(struct_processus *s_etat_pro Line 2976  copie_objet(struct_processus *s_etat_pro
             // externe. Le descripteur de bibliothèque est directement              // externe. Le descripteur de bibliothèque est directement
             // associé à la structure objet.              // associé à la structure objet.
   
             if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque,              l_element_courant = (*s_etat_processus).s_bibliotheques;
                     "__type_dup")) == NULL)  
               while(l_element_courant != NULL)
             {              {
                 // La fonction de duplication n'existe pas dans la                  if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
                 // bibliothèque.                          .descripteur == (*s_objet).descripteur_bibliotheque)
                   {
                       if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque,
                               "__type_dup")) == NULL)
                       {
                           // La fonction de duplication n'existe pas dans la
                           // bibliothèque.
   
                 (*s_etat_processus).erreur_execution = d_ex_type_externe_dup;                          (*s_etat_processus).erreur_execution =
                 return(NULL);                                  d_ex_type_externe_dup;
             }                          return(NULL);
                       }
   
             s_nouvel_objet = s_objet;                      s_nouvel_objet = s_objet;
   
                       if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet)
                               == 0)
                       {
                           return(NULL);
                       }
   
             if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet) == 0)                      break;
                   }
   
                   l_element_courant = (*l_element_courant).suivant;
               }
   
               if (l_element_courant == NULL)
             {              {
                   (*s_etat_processus).erreur_execution = d_ex_type_externe_dup;
                 return(NULL);                  return(NULL);
             }              }
   
Line 2943  copie_etat_processus(struct_processus *s Line 3074  copie_etat_processus(struct_processus *s
         return(NULL);          return(NULL);
     }      }
   
   
       if (pthread_mutex_lock(&((*s_etat_processus).mutex_interruptions)) != 0)
       {
           (*s_etat_processus).erreur_systeme = d_es_processus;
           return(NULL);
       }
   
       if (pthread_mutex_lock(&((*s_etat_processus).mutex_signaux)) != 0)
       {
           (*s_etat_processus).erreur_systeme = d_es_processus;
           return(NULL);
       }
   
     (*s_nouvel_etat_processus) = (*s_etat_processus);      (*s_nouvel_etat_processus) = (*s_etat_processus);
   
       if (pthread_mutex_unlock(&((*s_etat_processus).mutex_signaux)) != 0)
       {
           (*s_etat_processus).erreur_systeme = d_es_processus;
           return(NULL);
       }
   
       if (pthread_mutex_unlock(&((*s_etat_processus).mutex_interruptions)) != 0)
       {
           (*s_etat_processus).erreur_systeme = d_es_processus;
           return(NULL);
       }
   
     // On réinitialise les allocateurs.      // On réinitialise les allocateurs.
   
     pthread_mutexattr_init(&attributs_mutex);      pthread_mutexattr_init(&attributs_mutex);
Line 3810  debug_memoire_ajout(size_t taille, const Line 3966  debug_memoire_ajout(size_t taille, const
             sizeof(unsigned char))) == NULL)              sizeof(unsigned char))) == NULL)
     {      {
         pthread_mutex_unlock(&mutex_allocation);          pthread_mutex_unlock(&mutex_allocation);
   
           uprintf("[%d-%llu] ILLEGAL POINTER (malloc) $%016X\n",
                   getpid(), (unsigned long long) pthread_self(), NULL);
   #       ifdef __BACKTRACE
               BACKTRACE(PROFONDEUR_PILE);
   #       endif
   
         return(NULL);          return(NULL);
     }      }
   
Line 3870  debug_memoire_modification(void *pointeu Line 4033  debug_memoire_modification(void *pointeu
             {              {
                 pthread_mutex_unlock(&mutex_allocation);                  pthread_mutex_unlock(&mutex_allocation);
   
                 uprintf("[%d-%llu] ILLEGAL POINTER (realloc)\n",                  uprintf("[%d-%llu] ILLEGAL POINTER (realloc) $%016X\n",
                         getpid(), (unsigned long long) pthread_self());                          getpid(), (unsigned long long) pthread_self(),
                           pointeur);
 #               ifdef __BACKTRACE  #               ifdef __BACKTRACE
                     BACKTRACE(PROFONDEUR_PILE);                      BACKTRACE(PROFONDEUR_PILE);
 #               endif  #               endif
Line 3967  debug_memoire_retrait(void *pointeur) Line 4131  debug_memoire_retrait(void *pointeur)
   
     if (element_courant == NULL)      if (element_courant == NULL)
     {      {
         uprintf("[%d-%llu] ILLEGAL POINTER (free)\n",          uprintf("[%d-%llu] ILLEGAL POINTER (free) $%016X\n",
                 getpid(), (unsigned long long) pthread_self());                  getpid(), (unsigned long long) pthread_self(), pointeur);
 #       ifdef __BACKTRACE  #       ifdef __BACKTRACE
             BACKTRACE(PROFONDEUR_PILE);              BACKTRACE(PROFONDEUR_PILE);
 #       endif  #       endif
Line 4085  debug_memoire_verification() Line 4249  debug_memoire_verification()
 }  }
   
 pid_t  pid_t
 debug_fork()  debug_fork(struct_processus *s_etat_processus)
 {  {
     pid_t   pid;      pid_t   pid;
   
Removed from v.1.134  
changed lines
  Added in v.1.148

CVSweb interface <joel.bertrand@systella.fr>