Diff for /rpl/src/rpl.c between versions 1.169 and 1.179

version 1.169, 2015/02/19 11:01:29 version 1.179, 2016/03/16 11:11:10
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.21    RPL/2 (R) version 4.1.25
   Copyright (C) 1989-2015 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 299  rplinit(int argc, char *argv[], char *en Line 299  rplinit(int argc, char *argv[], char *en
     pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);      pthread_mutex_init(&mutex_liste_variables_partagees, &attributs_mutex);
     pthread_mutexattr_destroy(&attributs_mutex);      pthread_mutexattr_destroy(&attributs_mutex);
   
       pthread_mutexattr_init(&attributs_mutex);
       pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_RECURSIVE);
       pthread_mutex_init(&mutex_liste_threads, &attributs_mutex);
       pthread_mutexattr_destroy(&attributs_mutex);
   
 #   ifndef SEMAPHORES_NOMMES  #   ifndef SEMAPHORES_NOMMES
         sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);          sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
 #   else  #   else
Line 435  rplinit(int argc, char *argv[], char *en Line 440  rplinit(int argc, char *argv[], char *en
   
         if ((*s_etat_processus).langue == 'F')          if ((*s_etat_processus).langue == 'F')
         {          {
             printf("+++Copyright (C) 1989 à 2014, 2015 BERTRAND Joël\n");              printf("+++Copyright (C) 1989 à 2015, 2016 BERTRAND Joël\n");
         }          }
         else          else
         {          {
             printf("+++Copyright (C) 1989 to 2014, 2015 BERTRAND Joel\n");              printf("+++Copyright (C) 1989 to 2015, 2016 BERTRAND Joel\n");
         }          }
     }      }
   
Line 5401  rplinit(int argc, char *argv[], char *en Line 5406  rplinit(int argc, char *argv[], char *en
                     {                      {
                         if ((*resultats) != NULL)                          if ((*resultats) != NULL)
                         {                          {
                             free((*resultats));                              sys_free((*resultats));
   
                             if (((*resultats) = malloc(((size_t)                              if (((*resultats) = sys_malloc(((size_t)
                                     ((*s_etat_processus)                                      ((*s_etat_processus)
                                     .hauteur_pile_operationnelle + 1))                                      .hauteur_pile_operationnelle + 1))
                                     * sizeof(unsigned char **))) != NULL)                                      * sizeof(unsigned char **))) != NULL)
Line 5758  rplinit(int argc, char *argv[], char *en Line 5763  rplinit(int argc, char *argv[], char *en
     }      }
   
     sys_free(arg_exec);      sys_free(arg_exec);
     arret_thread_signaux(s_etat_processus);  
     liberation_etat_processus_readline();      liberation_etat_processus_readline();
     liberation_allocateur_buffer(s_etat_processus);      liberation_allocateur_buffer(s_etat_processus);
     pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));      pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation_buffer));

Removed from v.1.169  
changed lines
  Added in v.1.179


CVSweb interface <joel.bertrand@systella.fr>