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

Diff for /rpl/src/instructions_s8.c between versions 1.72 and 1.80

version 1.72, 2015/11/26 11:44:40 version 1.80, 2017/08/04 09:20:04
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.24    RPL/2 (R) version 4.1.28
   Copyright (C) 1989-2015 Dr. BERTRAND Joël    Copyright (C) 1989-2017 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
   
Line 887  instruction_sqlquery(struct_processus *s Line 887  instruction_sqlquery(struct_processus *s
                         .descripteur.mysql);                          .descripteur.mysql);
             }              }
   
             if (presence_resultat == d_vrai)              if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
                       s_objet_resultat) == d_erreur)
             {              {
                 if (empilement(s_etat_processus,                  return;
                         &((*s_etat_processus).l_base_pile),  
                         s_objet_resultat) == d_erreur)  
                 {  
                     return;  
                 }  
             }              }
   
 #           else  #           else
Line 1187  instruction_sqlquery(struct_processus *s Line 1183  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 1217  instruction_sqlquery(struct_processus *s Line 1211  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;
   
             attente.tv_sec = 0;              attente.tv_sec = 0;
             attente.tv_nsec = GRANULARITE_us * 1000;              attente.tv_nsec = GRANULARITE_us * 1000;
   
               if ((s_objet_resultat =
                       allocation(s_etat_processus, LST)) == NULL)
               {
                   (*s_etat_processus).erreur_systeme =
                           d_es_allocation_memoire;
                   return;
               }
   
               // Création d'une liste vide
   
               (*s_objet_resultat).objet = NULL;
               l_element_courant = (*s_objet_resultat).objet;
   
             do              do
             {              {
                 switch(ios = sqlite3_step(ppStmt))                  switch(ios = sqlite3_step(ppStmt))
                 {                  {
                     case SQLITE_ROW:                      case SQLITE_ROW:
                     {                      {
                         if (s_objet_resultat == NULL)  
                         {  
                             if ((s_objet_resultat =  
                                     allocation(s_etat_processus, LST)) == NULL)  
                             {  
                                 (*s_etat_processus).erreur_systeme =  
                                         d_es_allocation_memoire;  
                                 return;  
                             }  
   
                             presence_resultat = d_vrai;  
   
                             // Création d'une liste vide  
   
                             (*s_objet_resultat).objet = NULL;  
                             l_element_courant = (*s_objet_resultat).objet;  
                         }  
   
                         // Ajout d'une liste au bout de la liste                          // Ajout d'une liste au bout de la liste
                         // contenant les lignes                          // contenant les lignes
   
Line 1417  instruction_sqlquery(struct_processus *s Line 1405  instruction_sqlquery(struct_processus *s
                         .descripteur.sqlite);                          .descripteur.sqlite);
             }              }
   
             if (presence_resultat == d_vrai)              if (empilement(s_etat_processus, &((*s_etat_processus)
                       .l_base_pile), s_objet_resultat) == d_erreur)
             {              {
                 if (empilement(s_etat_processus, &((*s_etat_processus)                  return;
                         .l_base_pile), s_objet_resultat) == d_erreur)  
                 {  
                     return;  
                 }  
             }              }
         }          }
         else          else
Line 1516  instruction_stop(struct_processus *s_eta Line 1501  instruction_stop(struct_processus *s_eta
                 .processus_detache == d_vrai)                  .processus_detache == d_vrai)
         {          {
             envoi_signal_processus((*(*((struct_processus_fils *)              envoi_signal_processus((*(*((struct_processus_fils *)
                     (*s_objet).objet)).thread).pid, rpl_sigstop);                      (*s_objet).objet)).thread).pid, rpl_sigstop, d_faux);
         }          }
         else          else
         {          {
Removed from v.1.72  
changed lines
  Added in v.1.80

CVSweb interface <joel.bertrand@systella.fr>