Diff for /rpl/src/instructions_d5.c between versions 1.74 and 1.77

version 1.74, 2011/09/21 09:09:22 version 1.77, 2011/11/18 09:51:33
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.1.3    RPL/2 (R) version 4.1.4
   Copyright (C) 1989-2011 Dr. BERTRAND Joël    Copyright (C) 1989-2011 Dr. BERTRAND Joël
   
   This file is part of RPL/2.    This file is part of RPL/2.
Line 817  instruction_detach(struct_processus *s_e Line 817  instruction_detach(struct_processus *s_e
     int                         pipe_initialisation_segment_signaux[2];      int                         pipe_initialisation_segment_signaux[2];
   
     logical1                    drapeau;      logical1                    drapeau;
     logical1                    variable_partagee;  
   
     pid_t                       ppid;      pid_t                       ppid;
     pid_t                       pid_final;      pid_t                       pid_final;
Line 839  instruction_detach(struct_processus *s_e Line 838  instruction_detach(struct_processus *s_e
     struct_liste_chainee        *l_element_precedent;      struct_liste_chainee        *l_element_precedent;
     struct_liste_chainee        *l_element_suivant;      struct_liste_chainee        *l_element_suivant;
   
     struct_objet                *s_copie;  
     struct_objet                *s_objet;      struct_objet                *s_objet;
     struct_objet                *s_objet_systeme;      struct_objet                *s_objet_systeme;
     struct_objet                *s_objet_temporaire;      struct_objet                *s_objet_temporaire;
Line 856  instruction_detach(struct_processus *s_e Line 854  instruction_detach(struct_processus *s_e
   
     unsigned long               i;      unsigned long               i;
   
       volatile logical1           variable_partagee;
   
       volatile struct_objet       *s_copie;
   
     (*s_etat_processus).erreur_execution = d_ex;      (*s_etat_processus).erreur_execution = d_ex;
   
     attente.tv_sec = 0;      attente.tv_sec = 0;
Line 1231  instruction_detach(struct_processus *s_e Line 1233  instruction_detach(struct_processus *s_e
             return;              return;
         }          }
   
 #       ifndef OS2  #       ifdef SCHED_OTHER
 #       ifndef Cygwin  
         if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0)          if (pthread_attr_setschedpolicy(&attributs, SCHED_OTHER) != 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              (*s_etat_processus).erreur_systeme = d_es_processus;
             return;              return;
         }          }
   #       endif
   
   #       ifdef PTHREAD_EXPLICIT_SCHED
         if (pthread_attr_setinheritsched(&attributs,          if (pthread_attr_setinheritsched(&attributs,
                 PTHREAD_EXPLICIT_SCHED) != 0)                  PTHREAD_EXPLICIT_SCHED) != 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              (*s_etat_processus).erreur_systeme = d_es_processus;
             return;              return;
         }          }
   #       endif
   
   #       ifdef PTHREAD_SCOPE_SYSTEM
         if (pthread_attr_setscope(&attributs, PTHREAD_SCOPE_SYSTEM) != 0)          if (pthread_attr_setscope(&attributs, PTHREAD_SCOPE_SYSTEM) != 0)
         {          {
             (*s_etat_processus).erreur_systeme = d_es_processus;              (*s_etat_processus).erreur_systeme = d_es_processus;
             return;              return;
         }          }
 #       endif  #       endif
 #       endif  
   
         (*s_argument_thread).s_etat_processus = s_etat_processus;          (*s_argument_thread).s_etat_processus = s_etat_processus;
   

Removed from v.1.74  
changed lines
  Added in v.1.77


CVSweb interface <joel.bertrand@systella.fr>