--- rpl/src/instructions_r4.c 2012/09/10 15:53:20 1.62 +++ rpl/src/instructions_r4.c 2012/12/20 15:32:52 1.67 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.10 + RPL/2 (R) version 4.1.12 Copyright (C) 1989-2012 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1789,7 +1789,6 @@ instruction_read(struct_processus *s_eta return; } } - } while(ios != SQLITE_DONE); if (sqlite3_finalize(ppStmt) != SQLITE_OK) @@ -2580,7 +2579,7 @@ printf("L=%d\n", longueur_enregistrement (*s_objet_argument_1).objet)).socket; poll_fd.events = POLLIN; - while((ios = poll(&poll_fd, 1, 60000)) <= 0) + while((ios = poll(&poll_fd, 1, 10000)) <= 0) { // La fin de la trame n'est pas atteinte // et il reste quelque chose à lire.