--- rpl/src/instructions_s8.c 2012/01/17 14:44:11 1.43 +++ rpl/src/instructions_s8.c 2012/08/22 10:47:17 1.49 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.6 + RPL/2 (R) version 4.1.10 Copyright (C) 1989-2012 Dr. BERTRAND Joël This file is part of RPL/2. @@ -375,7 +375,7 @@ instruction_send(struct_processus *s_eta } } - tid = -3; + tid = (pthread_t) -3; attente.tv_sec = 0; attente.tv_nsec = GRANULARITE_us * 1000; @@ -627,7 +627,7 @@ instruction_send(struct_processus *s_eta } else { - tid = -1; + tid = (pthread_t) -1; attente.tv_sec = 0; attente.tv_nsec = GRANULARITE_us * 1000; @@ -885,6 +885,16 @@ instruction_sqlquery(struct_processus *s return; } + if ((*s_etat_processus).erreur_execution == + d_ex_instruction_indisponible) + { + liberation(s_etat_processus, s_objet_1); + liberation(s_etat_processus, s_objet_2); + liberation(s_etat_processus, s_copie_1); + + return; + } + liberation(s_etat_processus, s_copie_1); } else