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

Diff for /rpl/src/instructions_s10.c between versions 1.80 and 1.111

version 1.80, 2013/06/21 14:15:55 version 1.111, 2025/04/15 10:17:55
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.15    RPL/2 (R) version 4.1.36
   Copyright (C) 1989-2013 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 38 Line 38
 void  void
 instruction_spawn(struct_processus *s_etat_processus)  instruction_spawn(struct_processus *s_etat_processus)
 {  {
       int                         ios;
   
     logical1                    drapeau;      logical1                    drapeau;
     logical1                    variable_partagee;      logical1                    variable_partagee;
   
Line 415  instruction_spawn(struct_processus *s_et Line 417  instruction_spawn(struct_processus *s_et
             return;              return;
         }          }
   
   #       ifndef SEMAPHORES_NOMMES
               if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
   #       else
               if (sem_post((*s_etat_processus).semaphore_fork) != 0)
   #       endif
           {
               (*s_etat_processus).erreur_systeme = d_es_processus;
               return;
           }
   
         nanosleep(&attente, NULL);          nanosleep(&attente, NULL);
   
   #       ifndef SEMAPHORES_NOMMES
               while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
   #       else
               while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
   #       endif
           {
               if (errno != EINTR)
               {
                   (*s_etat_processus).erreur_systeme = d_es_processus;
                   return;
               }
           }
   
         if (pthread_mutex_lock(&((*s_argument_thread).mutex)) != 0)          if (pthread_mutex_lock(&((*s_argument_thread).mutex)) != 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              (*s_etat_processus).erreur_systeme = d_es_processus;
Line 489  instruction_spawn(struct_processus *s_et Line 514  instruction_spawn(struct_processus *s_et
         return;          return;
     }      }
   
     if (pthread_mutex_lock(&((*s_etat_processus).mutex_pile_processus)) != 0)      attente.tv_sec = 0;
       attente.tv_nsec = GRANULARITE_us * 1000;
   
       while((ios = pthread_mutex_trylock(&((*s_etat_processus)
               .mutex_pile_processus))) != 0)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_processus;          if (ios != EBUSY)
         return;          {
               (*s_etat_processus).erreur_systeme = d_es_processus;
           }
   
           if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
           {
               (*s_etat_processus).erreur_systeme = d_es_processus;
               return;
           }
   
           nanosleep(&attente, NULL);
           INCR_GRANULARITE(attente.tv_nsec);
   
           while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
           {
               if (errno != EINTR)
               {
                   (*s_etat_processus).erreur_systeme = d_es_processus;
                   return;
               }
           }
     }      }
   
     // Si le tid existe déjà  dans la pile des processus, il s'agit forcement      // Si le tid existe déjà  dans la pile des processus, il s'agit forcement
Line 636  instruction_spawn(struct_processus *s_et Line 685  instruction_spawn(struct_processus *s_et
   
     // Le fils peut être présent sans être en attente du signal de départ.      // Le fils peut être présent sans être en attente du signal de départ.
   
     if (envoi_signal_thread((*s_argument_thread).tid, rpl_sigstart) != 0)      if (envoi_signal_thread(s_etat_processus,
               (*s_argument_thread).tid, rpl_sigstart) != 0)
     {      {
         (*s_etat_processus).erreur_systeme = d_es_processus;          (*s_etat_processus).erreur_systeme = d_es_processus;
         return;          return;
Removed from v.1.80  
changed lines
  Added in v.1.111

CVSweb interface <joel.bertrand@systella.fr>