Diff for /rpl/src/instructions_s8.c between versions 1.76 and 1.92

version 1.76, 2016/09/27 15:29:38 version 1.92, 2024/01/09 07:33:54
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.26    RPL/2 (R) version 4.1.35
   Copyright (C) 1989-2016 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 386  instruction_send(struct_processus *s_eta Line 386  instruction_send(struct_processus *s_eta
         }          }
   
 #       ifndef SEMAPHORES_NOMMES  #       ifndef SEMAPHORES_NOMMES
             if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)              while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
 #       else  #       else
             if (sem_post((*s_etat_processus).semaphore_fork) != 0)              while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
 #       endif  #       endif
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              if (errno != EINTR)
             return;              {
                   (*s_etat_processus).erreur_systeme = d_es_processus;
                   return;
               }
         }          }
     }      }
   
Line 1183  instruction_sqlquery(struct_processus *s Line 1186  instruction_sqlquery(struct_processus *s
             int                         ios;              int                         ios;
             int                         nombre_colonnes;              int                         nombre_colonnes;
   
             logical1                    presence_resultat;  
   
             sqlite3_stmt                *ppStmt;              sqlite3_stmt                *ppStmt;
   
             struct_liste_chainee        *l_element_courant;              struct_liste_chainee        *l_element_courant;
Line 1213  instruction_sqlquery(struct_processus *s Line 1214  instruction_sqlquery(struct_processus *s
                 return;                  return;
             }              }
   
             presence_resultat = d_faux;  
             s_objet_resultat = NULL;              s_objet_resultat = NULL;
             l_element_courant = NULL;              l_element_courant = NULL;
   
Line 1565  instruction_stop(struct_processus *s_eta Line 1565  instruction_stop(struct_processus *s_eta
                     if ((*(*((struct_processus_fils *)                      if ((*(*((struct_processus_fils *)
                             (*s_objet).objet)).thread).thread_actif == d_vrai)                              (*s_objet).objet)).thread).thread_actif == d_vrai)
                     {                      {
                         envoi_signal_thread((*(*((struct_processus_fils *)                          envoi_signal_thread(s_etat_processus,
                                   (*(*((struct_processus_fils *)
                                 (*s_objet).objet)).thread).tid, rpl_sigstop);                                  (*s_objet).objet)).thread).tid, rpl_sigstop);
                     }                      }
   

Removed from v.1.76  
changed lines
  Added in v.1.92


CVSweb interface <joel.bertrand@systella.fr>