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

Diff for /rpl/src/instructions_c4.c between versions 1.78 and 1.85

version 1.78, 2020/01/10 11:15:44 version 1.85, 2024/01/17 16:57:12
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.32    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2020 Dr. BERTRAND Joël    Copyright (C) 1989-2024 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 664  instruction_close(struct_processus *s_et Line 664  instruction_close(struct_processus *s_et
   
     struct_objet                *s_objet_argument;      struct_objet                *s_objet_argument;
   
       unsigned char               socket_en_ecoute;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     if ((*s_etat_processus).affichage_arguments == 'Y')      if ((*s_etat_processus).affichage_arguments == 'Y')
Line 852  instruction_close(struct_processus *s_et Line 854  instruction_close(struct_processus *s_et
   
         socket = -1;          socket = -1;
         socket_connectee = d_faux;          socket_connectee = d_faux;
           socket_en_ecoute = 'Y';
   
         while(l_element_courant != NULL)          while(l_element_courant != NULL)
         {          {
Line 863  instruction_close(struct_processus *s_et Line 866  instruction_close(struct_processus *s_et
                         (*(*l_element_courant).donnee).objet)).socket;                          (*(*l_element_courant).donnee).objet)).socket;
                 socket_connectee = (*((struct_socket *)                  socket_connectee = (*((struct_socket *)
                         (*(*l_element_courant).donnee).objet)).socket_connectee;                          (*(*l_element_courant).donnee).objet)).socket_connectee;
                   socket_en_ecoute = (*((struct_socket *)
                           (*(*l_element_courant).donnee).objet)).socket_en_ecoute;
   
                 if (l_element_precedent == NULL)                  if (l_element_precedent == NULL)
                 {                  {
Line 903  instruction_close(struct_processus *s_et Line 908  instruction_close(struct_processus *s_et
   
         if (socket_connectee == d_vrai)          if (socket_connectee == d_vrai)
         {          {
             shutdown(socket, SHUT_RDWR);              if (socket_en_ecoute == 'N')
               {
                   shutdown(socket, SHUT_RDWR);
               }
         }          }
   
         if (close(socket) != 0)          if (close(socket) != 0)
Removed from v.1.78  
changed lines
  Added in v.1.85

CVSweb interface <joel.bertrand@systella.fr>