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

Diff for /rpl/src/instructions_r4.c between versions 1.8 and 1.16

version 1.8, 2010/03/08 16:44:10 version 1.16, 2010/06/24 10:10:45
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.12    RPL/2 (R) version 4.0.17
   Copyright (C) 1989-2010 Dr. BERTRAND Joël    Copyright (C) 1989-2010 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 1301  instruction_read(struct_processus *s_eta Line 1301  instruction_read(struct_processus *s_eta
                     (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;                      (*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
                     return;                      return;
                 }                  }
   
                                   
                 switch(sqlite3_step(ppStmt))                  switch(sqlite3_step(ppStmt))
                 {                  {
Line 1801  instruction_read(struct_processus *s_eta Line 1800  instruction_read(struct_processus *s_eta
                 }                  }
   
                 l_element_courant = NULL;                  l_element_courant = NULL;
                   l_element_inclus = NULL;
   
                 for(element--; element > 0; element--)                  for(element--; element > 0; element--)
                 {                  {
Line 1913  instruction_read(struct_processus *s_eta Line 1913  instruction_read(struct_processus *s_eta
                     return;                      return;
                 }                  }
   
   #               ifndef SEMAPHORES_NOMMES
                 if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)                  if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
                 {                  {
                     (*s_etat_processus).erreur_systeme = d_es_processus;                      (*s_etat_processus).erreur_systeme = d_es_processus;
                     return;                      return;
                 }                  }
   #               else
                   if (sem_post((*s_etat_processus).semaphore_fork) != 0)
                   {
                       (*s_etat_processus).erreur_systeme = d_es_processus;
                       return;
                   }
   #               endif
   
                 for(;;)                  for(;;)
                 {                  {
Line 1956  instruction_read(struct_processus *s_eta Line 1964  instruction_read(struct_processus *s_eta
                         free(tampon_lecture);                          free(tampon_lecture);
                         liberation(s_etat_processus, s_objet_argument_1);                          liberation(s_etat_processus, s_objet_argument_1);
   
   #                       ifndef SEMAPHORES_NOMMES
                         while(sem_wait(&((*s_etat_processus)                          while(sem_wait(&((*s_etat_processus)
                                 .semaphore_fork)) == -1)                                  .semaphore_fork)) == -1)
   #                       else
                           while(sem_wait((*s_etat_processus)
                                   .semaphore_fork) == -1)
   #                       endif
                         {                          {
                             if (errno != EINTR)                              if (errno != EINTR)
                             {                              {
Line 1985  instruction_read(struct_processus *s_eta Line 1998  instruction_read(struct_processus *s_eta
                     }                      }
                 }                  }
   
                 while(sem_wait(&((*s_etat_processus).semaphore_fork))  #               ifndef SEMAPHORES_NOMMES
                         == -1)                  while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)
   #               else
                   while(sem_wait((*s_etat_processus).semaphore_fork) == -1)
   #               endif
                 {                  {
                     if (errno != EINTR)                      if (errno != EINTR)
                     {                      {
Removed from v.1.8  
changed lines
  Added in v.1.16

CVSweb interface <joel.bertrand@systella.fr>