--- rpl/src/instructions_r4.c 2011/04/17 14:27:59 1.28.2.4 +++ rpl/src/instructions_r4.c 2011/06/22 13:27:02 1.35 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.23 + RPL/2 (R) version 4.1.0.prerelease.3 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -2097,6 +2097,7 @@ instruction_read(struct_processus *s_eta tampon_lecture, longueur_questure, MSG_PEEK | MSG_DONTWAIT, (struct sockaddr *) &adresse_ipv6, &longueur_adresse); + # else if ((*s_etat_processus).langue == 'F') { @@ -2136,15 +2137,17 @@ instruction_read(struct_processus *s_eta return; } - if (longueur_effective <= 0) + if (longueur_effective < 0) { nanosleep(&attente, NULL); INCR_GRANULARITE(attente.tv_nsec); scrutation_injection(s_etat_processus); } + // Une donnée a été reçue. + if (((*s_etat_processus).var_volatile_requete_arret == -1) - || (longueur_effective > 0)) + || (longueur_effective >= 0)) { break; }