--- rpl/src/instructions_s8.c 2011/11/26 10:01:31 1.41 +++ rpl/src/instructions_s8.c 2012/08/22 10:47:17 1.49 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.5 - Copyright (C) 1989-2011 Dr. BERTRAND Joël + 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