Diff for /rpl/src/rpl.c between versions 1.94 and 1.99

version 1.94, 2011/09/21 09:09:01 version 1.99, 2011/11/26 13:05:03
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.3    RPL/2 (R) version 4.1.5
   Copyright (C) 1989-2011 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 36  rplinit(int argc, char *argv[], unsigned Line 36  rplinit(int argc, char *argv[], unsigned
 #   include                             "copyright-conv.h"  #   include                             "copyright-conv.h"
 #   include                             "licence-conv.h"  #   include                             "licence-conv.h"
   
   #   ifdef HAVE_STACK_OVERFLOW_RECOVERY
     char                                pile_signaux[SIGSTKSZ];      char                                pile_signaux[SIGSTKSZ];
   #   endif
   
     file                                *f_source;      file                                *f_source;
   
Line 2755  rplinit(int argc, char *argv[], unsigned Line 2757  rplinit(int argc, char *argv[], unsigned
                     l_element_courant = (*s_etat_processus).liste_mutexes;                      l_element_courant = (*s_etat_processus).liste_mutexes;
                     while(l_element_courant != NULL)                      while(l_element_courant != NULL)
                     {                      {
                         pthread_mutex_trylock(&((*((struct_mutex *)  
                                 (*(*((struct_liste_chainee *)  
                                 l_element_courant)).donnee).objet)).mutex));  
                         pthread_mutex_unlock(&((*((struct_mutex *)  
                                 (*(*((struct_liste_chainee *)  
                                 l_element_courant)).donnee).objet)).mutex));  
                         pthread_mutex_destroy(&((*((struct_mutex *)  
                                 (*(*((struct_liste_chainee *)  
                                 l_element_courant)).donnee).objet)).mutex));  
   
                         liberation(s_etat_processus,                          liberation(s_etat_processus,
                                 (*((struct_liste_chainee *)                                  (*((struct_liste_chainee *)
                                 l_element_courant)).donnee);                                  l_element_courant)).donnee);
Line 3647  informations(struct_processus *s_etat_pr Line 3639  informations(struct_processus *s_etat_pr
     return;      return;
 }  }
   
   
   unsigned char *
   date_compilation()
   {
       unsigned char       *date;
   
       if ((date = malloc((strlen(d_date_en_rpl) + 1) * sizeof(unsigned char)))
               == NULL)
       {
           return(NULL);
       }
   
       strcpy(date, d_date_en_rpl);
   
       return(date);
   }
   
 // vim: ts=4  // vim: ts=4

Removed from v.1.94  
changed lines
  Added in v.1.99


CVSweb interface <joel.bertrand@systella.fr>