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

Diff for /rpl/src/instructions_p8.c between versions 1.13 and 1.49

version 1.13, 2012/12/18 13:19:37 version 1.49, 2025/04/15 10:17:55
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.12    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2012 Dr. BERTRAND Joël    Copyright (C) 1989-2025 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 42  instruction_poll(struct_processus *s_eta Line 42  instruction_poll(struct_processus *s_eta
     int                     i;      int                     i;
     int                     ios;      int                     ios;
     int                     nombre_descripteurs;      int                     nombre_descripteurs;
     int                     timeout;  
       integer8                timeout;
   
     logical1                drapeau;      logical1                drapeau;
   
Line 104  instruction_poll(struct_processus *s_eta Line 105  instruction_poll(struct_processus *s_eta
   
     if (test_cfsf(s_etat_processus, 31) == d_vrai)      if (test_cfsf(s_etat_processus, 31) == d_vrai)
     {      {
         if (empilement_pile_last(s_etat_processus, 3) == d_erreur)          if (empilement_pile_last(s_etat_processus, 2) == d_erreur)
         {          {
             return;              return;
         }          }
Line 138  instruction_poll(struct_processus *s_eta Line 139  instruction_poll(struct_processus *s_eta
             l_element_courant = (*l_element_courant).suivant;              l_element_courant = (*l_element_courant).suivant;
         }          }
   
         if ((s_poll = malloc(nombre_descripteurs * sizeof(struct pollfd)))          if ((s_poll = malloc(((size_t) nombre_descripteurs) *
                 == NULL)                  sizeof(struct pollfd))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
             return;              return;
         }          }
   
         if ((s_objet_tmp = malloc(nombre_descripteurs *          if ((s_objet_tmp = malloc(((size_t) nombre_descripteurs) *
                 sizeof(struct_objet *))) == NULL)                  sizeof(struct_objet *))) == NULL)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;              (*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
Line 223  instruction_poll(struct_processus *s_eta Line 224  instruction_poll(struct_processus *s_eta
   
                     case CHN:                      case CHN:
                     {                      {
                         if ((registre = conversion_majuscule((unsigned char *)                          if ((registre = conversion_majuscule(s_etat_processus,
                                 (*(*l_element_courant_2).donnee).objet))                                  (unsigned char *) (*(*l_element_courant_2)
                                 == NULL)                                  .donnee).objet)) == NULL)
                         {                          {
                             (*s_etat_processus).erreur_systeme =                              (*s_etat_processus).erreur_systeme =
                                     d_es_allocation_memoire;                                      d_es_allocation_memoire;
Line 317  instruction_poll(struct_processus *s_eta Line 318  instruction_poll(struct_processus *s_eta
                 return;                  return;
             }              }
   
             if ((ios = poll(s_poll, nombre_descripteurs, timeout)) < 0)              if ((ios = poll(s_poll, (nfds_t) nombre_descripteurs,
                       (int) timeout)) < 0)
             {              {
                 erreur = errno;                  erreur = errno;
   
Removed from v.1.13  
changed lines
  Added in v.1.49

CVSweb interface <joel.bertrand@systella.fr>