[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.118 and 1.138

version 1.118, 2015/02/01 22:50:00 version 1.138, 2018/05/30 09:27:32
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.20    RPL/2 (R) version 4.1.29
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2018 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 343  allocation(struct_processus *s_etat_proc Line 343  allocation(struct_processus *s_etat_proc
     }      }
   
     (*s_objet).type = type;      (*s_objet).type = type;
       (*s_objet).extension_type = 0;
       (*s_objet).descripteur_bibliotheque = NULL;
   
     switch(type)      switch(type)
     {      {
Line 434  allocation(struct_processus *s_etat_proc Line 436  allocation(struct_processus *s_etat_proc
             break;              break;
         }          }
   
           case EXT :
           {
               // Aucune allocation
               break;
           }
   
         case FCT :          case FCT :
         {          {
             if ((*s_etat_processus).pointeur_fct > 0)              if ((*s_etat_processus).pointeur_fct > 0)
Line 821  liberation(struct_processus *s_etat_proc Line 829  liberation(struct_processus *s_etat_proc
     struct_liste_chainee                *l_element_suivant;      struct_liste_chainee                *l_element_suivant;
   
     integer8                            i;      integer8                            i;
       integer8                            (*__type_drop)(struct_processus *,
                                                   void **);
   
     if (s_objet == NULL)      if (s_objet == NULL)
     {      {
Line 1493  liberation(struct_processus *s_etat_proc Line 1503  liberation(struct_processus *s_etat_proc
             break;              break;
         }          }
   
           case EXT:
           {
               if (decrementation_atomique(s_objet) > 0)
               {
                   return;
               }
   
               // Appel de la fonction de liberation associée à l'objet
               // externe. Le descripteur de bibliothèque est directement
               // associé à la structure objet.
   
               l_element_courant = (*s_etat_processus).s_bibliotheques;
   
               while(l_element_courant != NULL)
               {
                   if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
                           .descripteur == (*s_objet).descripteur_bibliotheque)
                   {
                       if ((__type_drop = dlsym((*s_objet)
                               .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;
           }
   
         default :          default :
         {          {
             if (pthread_mutex_unlock(&((*s_objet).mutex)) != 0)              if (pthread_mutex_unlock(&((*s_objet).mutex)) != 0)
Line 1591  copie_objet(struct_processus *s_etat_pro Line 1652  copie_objet(struct_processus *s_etat_pro
   
     integer8                    i;      integer8                    i;
     integer8                    j;      integer8                    j;
       integer8                    (*__type_dup)(struct_processus *, void **);
   
     if (pthread_mutex_lock(&((*s_objet).mutex)) != 0)      if (pthread_mutex_lock(&((*s_objet).mutex)) != 0)
     {      {
Line 2434  copie_objet(struct_processus *s_etat_pro Line 2496  copie_objet(struct_processus *s_etat_pro
                     (*((struct_socket *) ((*s_objet).objet))).pid;                      (*((struct_socket *) ((*s_objet).objet))).pid;
             (*((struct_socket *) ((*s_nouvel_objet).objet))).tid =              (*((struct_socket *) ((*s_nouvel_objet).objet))).tid =
                     (*((struct_socket *) ((*s_objet).objet))).tid;                      (*((struct_socket *) ((*s_objet).objet))).tid;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).options =
                       (*((struct_socket *) ((*s_objet).objet))).options;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).priorite =
                       (*((struct_socket *) ((*s_objet).objet))).priorite;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).buffer_reception =
                       (*((struct_socket *) ((*s_objet).objet))).buffer_reception;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).buffer_emission =
                       (*((struct_socket *) ((*s_objet).objet))).buffer_emission;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).timeout_reception =
                       (*((struct_socket *) ((*s_objet).objet))).timeout_reception;
               (*((struct_socket *) ((*s_nouvel_objet).objet))).timeout_emission =
                       (*((struct_socket *) ((*s_objet).objet))).timeout_emission;
   
             if (((*((struct_socket *) ((*s_nouvel_objet).objet))).format =              if (((*((struct_socket *) ((*s_nouvel_objet).objet))).format =
                     copie_objet(s_etat_processus, (*((struct_socket *)                      copie_objet(s_etat_processus, (*((struct_socket *)
Line 2800  copie_objet(struct_processus *s_etat_pro Line 2874  copie_objet(struct_processus *s_etat_pro
             break;              break;
         }          }
   
           case EXT:
           {
               if (type != 'O')
               {
                   incrementation_atomique(s_objet);
                   return(s_objet);
               }
   
               // Appel de la fonction de duplication associée à l'objet
               // externe. Le descripteur de bibliothèque est directement
               // associé à la structure objet.
   
               l_element_courant = (*s_etat_processus).s_bibliotheques;
   
               while(l_element_courant != NULL)
               {
                   if ((*((struct_bibliotheque *) (*l_element_courant).donnee))
                           .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;
                           return(NULL);
                       }
   
                       s_nouvel_objet = s_objet;
   
                       if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet)
                               == 0)
                       {
                           return(NULL);
                       }
   
                       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);
               }
   
               break;
           }
   
         default :          default :
         {          {
             return(NULL);              return(NULL);
Line 2846  copie_etat_processus(struct_processus *s Line 2973  copie_etat_processus(struct_processus *s
     if ((s_nouvel_etat_processus = sys_malloc(sizeof(struct_processus)))      if ((s_nouvel_etat_processus = sys_malloc(sizeof(struct_processus)))
             == NULL)              == NULL)
     {      {
           if (pthread_mutex_unlock(&((*s_etat_processus)
                   .mutex_pile_processus)) != 0)
           {
               (*s_etat_processus).erreur_systeme = d_es_processus;
               return(NULL);
           }
   
         (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;          (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
         return(NULL);          return(NULL);
     }      }
Line 3593  copie_etat_processus(struct_processus *s Line 3727  copie_etat_processus(struct_processus *s
             &attributs_mutex);              &attributs_mutex);
     pthread_mutexattr_destroy(&attributs_mutex);      pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
       pthread_mutex_init(&((*s_nouvel_etat_processus).protection_liste_mutexes),
               &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
     if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus)) != 0)      if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus)) != 0)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_processus;          (*s_etat_processus).erreur_systeme = d_es_processus;
Removed from v.1.118  
changed lines
  Added in v.1.138

CVSweb interface <joel.bertrand@systella.fr>