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

Diff for /rpl/src/bibliotheques_externes.c between versions 1.14 and 1.35

version 1.14, 2010/07/14 14:19:33 version 1.35, 2011/09/20 08:56:23
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.18    RPL/2 (R) version 4.1.3
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 20 Line 20
 */  */
   
   
 #include "rpl.conv.h"  #include "rpl-conv.h"
   
 static pthread_mutex_t          mutex = PTHREAD_MUTEX_INITIALIZER;  static pthread_mutex_t          mutex = PTHREAD_MUTEX_INITIALIZER;
   
Line 161  chargement_bibliotheque(struct_processus Line 161  chargement_bibliotheque(struct_processus
             }              }
         }          }
   
 #       ifndef SEMAPHORES_NOMMES  
         if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)          if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              (*s_etat_processus).erreur_systeme = d_es_processus;
             return(NULL);              return(NULL);
         }          }
 #       else  
         if (sem_post((*s_etat_processus).semaphore_fork) != 0)  
         {  
             (*s_etat_processus).erreur_systeme = d_es_processus;  
             return(NULL);  
         }  
 #       endif  
   
         (*onloading)(&rpl_arguments);          (*onloading)(&rpl_arguments);
   
 #       ifndef SEMAPHORES_NOMMES          if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
         while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)  
         {  
             if (errno != EINTR)  
             {  
                 (*s_etat_processus).erreur_systeme = d_es_processus;  
                 return(NULL);  
             }  
         }  
 #       else  
         while(sem_wait((*s_etat_processus).semaphore_fork) == -1)  
         {          {
             if (errno != EINTR)              (*s_etat_processus).erreur_systeme = d_es_processus;
             {              return(NULL);
                 (*s_etat_processus).erreur_systeme = d_es_processus;  
                 return(NULL);  
             }  
         }          }
 #       endif  
   
         if ((*s_etat_processus).profilage == d_vrai)          if ((*s_etat_processus).profilage == d_vrai)
         {          {
Line 591  retrait_bibliotheque(struct_processus *s Line 569  retrait_bibliotheque(struct_processus *s
                 }                  }
             }              }
   
 #           ifndef SEMAPHORES_NOMMES  
             if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)              if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
             {              {
                 (*s_etat_processus).erreur_systeme = d_es_processus;                  (*s_etat_processus).erreur_systeme = d_es_processus;
                 return(d_erreur);                  return(d_erreur);
             }              }
 #           else  
             if (sem_post((*s_etat_processus).semaphore_fork) != 0)  
             {  
                 (*s_etat_processus).erreur_systeme = d_es_processus;  
                 return(d_erreur);  
             }  
 #           endif  
   
             (*onclosing)(&rpl_arguments);              (*onclosing)(&rpl_arguments);
   
 #           ifndef SEMAPHORES_NOMMES              if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
             while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)  
             {              {
                 if (errno != EINTR)                  (*s_etat_processus).erreur_systeme = d_es_processus;
                 {                  return(d_erreur);
                     (*s_etat_processus).erreur_systeme = d_es_processus;  
                     return(d_erreur);  
                 }  
             }  
 #           else  
             while(sem_wait((*s_etat_processus).semaphore_fork) == -1)  
             {  
                 if (errno != EINTR)  
                 {  
                     (*s_etat_processus).erreur_systeme = d_es_processus;  
                     return(d_erreur);  
                 }  
             }              }
 #           endif  
   
             if ((*s_etat_processus).profilage == d_vrai)              if ((*s_etat_processus).profilage == d_vrai)
             {              {
Line 1177  execution_fonction_de_bibliotheque(struc Line 1133  execution_fonction_de_bibliotheque(struc
         }          }
     }      }
   
 #   ifndef SEMAPHORES_NOMMES  
     if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)      if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_processus;          (*s_etat_processus).erreur_systeme = d_es_processus;
         return(d_faux);          return(d_faux);
     }      }
 #   else  
     if (sem_post((*s_etat_processus).semaphore_fork) != 0)  
     {  
         (*s_etat_processus).erreur_systeme = d_es_processus;  
         return(d_faux);  
     }  
 #   endif  
   
     (*fonction)(&rpl_arguments);      (*fonction)(&rpl_arguments);
   
 #   ifndef SEMAPHORES_NOMMES      if (sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
     while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)  
     {      {
         if (errno != EINTR)          (*s_etat_processus).erreur_systeme = d_es_processus;
         {          return(d_faux);
             (*s_etat_processus).erreur_systeme = d_es_processus;  
             return(d_faux);  
         }  
     }  
 #   else  
     while(sem_wait((*s_etat_processus).semaphore_fork) == -1)  
     {  
         if (errno != EINTR)  
         {  
             (*s_etat_processus).erreur_systeme = d_es_processus;  
             return(d_faux);  
         }  
     }      }
 #   endif  
   
     if ((*s_etat_processus).profilage == d_vrai)      if ((*s_etat_processus).profilage == d_vrai)
     {      {
Line 1667  tri_base_symboles_externes(struct_proces Line 1601  tri_base_symboles_externes(struct_proces
             do              do
             {              {
                 indice_i = indice_j;                  indice_i = indice_j;
   
                 terminaison_boucle_3 = d_faux;                  terminaison_boucle_3 = d_faux;
   
                 do                  do
Line 1761  tri_base_symboles_externes(struct_proces Line 1694  tri_base_symboles_externes(struct_proces
   
         indice_i++;          indice_i++;
     } while((unsigned long) (indice_i + 1) <      } while((unsigned long) (indice_i + 1) <
             (*s_etat_processus).nombre_variables);              (*s_etat_processus).nombre_instructions_externes);
   
     return;      return;
 }  }
Removed from v.1.14  
changed lines
  Added in v.1.35

CVSweb interface <joel.bertrand@systella.fr>