Diff for /rpl/src/instructions_s1.c between versions 1.108 and 1.109

version 1.108, 2019/06/17 13:27:35 version 1.109, 2019/07/16 08:31:22
Line 19 Line 19
 ================================================================================  ================================================================================
 */  */
   
   #define DEBUG_ERREURS
 #include "rpl-conv.h"  #include "rpl-conv.h"
   
   
Line 3459  instruction_syseval(struct_processus *s_ Line 3459  instruction_syseval(struct_processus *s_
     int                         pipes_entree[2];      int                         pipes_entree[2];
     int                         pipes_erreur[2];      int                         pipes_erreur[2];
     int                         pipes_sortie[2];      int                         pipes_sortie[2];
       int                         registre_ios;
     int                         status;      int                         status;
   
     file                        *fpipe;      file                        *fpipe;
Line 3932  instruction_syseval(struct_processus *s_ Line 3933  instruction_syseval(struct_processus *s_
   
             if ((*s_etat_processus).langue == 'F')              if ((*s_etat_processus).langue == 'F')
             {              {
                 printf("+++Système : erreurinterne dans SYSEVAL [%d]\n",                  printf("+++Système : erreur interne dans SYSEVAL [%d]\n",
                         (int) getpid());                          (int) getpid());
             }              }
             else              else
Line 4047  instruction_syseval(struct_processus *s_ Line 4048  instruction_syseval(struct_processus *s_
   
             while((ios = (int) read_atomic_signal(s_etat_processus,              while((ios = (int) read_atomic_signal(s_etat_processus,
                     pipes_sortie[0], &(tampon[pointeur]),                      pipes_sortie[0], &(tampon[pointeur]),
                     (size_t) longueur_lecture)) > 0)                      (size_t) longueur_lecture)) >= 0)
             {              {
   uprintf("lecture\n");
 #               ifndef SEMAPHORES_NOMMES  #               ifndef SEMAPHORES_NOMMES
                     while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)                      while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #               else  #               else
Line 4103  instruction_syseval(struct_processus *s_ Line 4105  instruction_syseval(struct_processus *s_
                     }                      }
   
                     etape = 1;                      etape = 1;
                       registre_ios = ios;
   
                     while((ios = getc(fpipe)) != EOF)                      while((ios = getc(fpipe)) != EOF)
                     {                      {
Line 4125  instruction_syseval(struct_processus *s_ Line 4128  instruction_syseval(struct_processus *s_
                         }                          }
                     }                      }
   
                     fclose(fpipe);                      ios = registre_ios;
                     break;                      break;
                 }                  }
             }              }

Removed from v.1.108  
changed lines
  Added in v.1.109


CVSweb interface <joel.bertrand@systella.fr>