Diff for /rpl/src/instructions_w1.c between versions 1.20 and 1.30

version 1.20, 2010/08/06 15:26:50 version 1.30, 2010/12/12 14:13:39
Line 1 Line 1
 /*  /*
 ================================================================================  ================================================================================
   RPL/2 (R) version 4.0.18    RPL/2 (R) version 4.0.20
   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 226  instruction_wait(struct_processus *s_eta Line 226  instruction_wait(struct_processus *s_eta
         return;          return;
     }      }
           
     if (((*s_objet).type == INT) ||      if (((*s_objet).type == INT) || ((*s_objet).type == REL))
             ((*s_objet).type == REL))  
     {      {
         if ((*s_objet).type == INT)          if ((*s_objet).type == INT)
         {          {
Line 1482  instruction_write(struct_processus *s_et Line 1481  instruction_write(struct_processus *s_et
                     adresse_unix.sun_family = AF_UNIX;                      adresse_unix.sun_family = AF_UNIX;
                     strncpy(adresse_unix.sun_path, (*((struct_socket *)                      strncpy(adresse_unix.sun_path, (*((struct_socket *)
                             (*s_objet_argument_1).objet)).adresse_distante,                              (*s_objet_argument_1).objet)).adresse_distante,
                             108);                              UNIX_PATH_MAX);
                     adresse_unix.sun_path[108 - 1] = d_code_fin_chaine;                      adresse_unix.sun_path[UNIX_PATH_MAX - 1] =
                               d_code_fin_chaine;
   
 #                   ifndef SEMAPHORES_NOMMES  #                   ifndef SEMAPHORES_NOMMES
                     if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)                      if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
Line 1702  instruction_write(struct_processus *s_et Line 1702  instruction_write(struct_processus *s_et
                             }                              }
                         }                          }
 #                       else  #                       else
                           if ((*s_etat_processus).langue == 'F')
                           {
                               printf("+++Attention : Support du protocole"
                                       " IPv6 indisponible\n");
                           }
                           else
                           {
                               printf("+++Warning : IPv6 support "
                                       "unavailable\n");
                           }
 #                       endif  #                       endif
                     }                      }
                     else                      else
Line 2901  instruction_wfsock(struct_processus *s_e Line 2911  instruction_wfsock(struct_processus *s_e
                     (*((struct_socket *) (*s_objet_resultat)                      (*((struct_socket *) (*s_objet_resultat)
                     .objet)).adresse_distante, ntohs(adresse_ipv6.sin6_port));                      .objet)).adresse_distante, ntohs(adresse_ipv6.sin6_port));
 #           else  #           else
               if ((*s_etat_processus).langue == 'F')
               {
                   printf("+++Attention : Support du protocole"
                           " IPv6 indisponible\n");
               }
               else
               {
                   printf("+++Warning : IPv6 support "
                           "unavailable\n");
               }
 #           endif  #           endif
         }          }
         else          else

Removed from v.1.20  
changed lines
  Added in v.1.30


CVSweb interface <joel.bertrand@systella.fr>