--- rpl/src/instructions_u2.c 2013/03/21 14:13:55 1.1 +++ rpl/src/instructions_u2.c 2013/03/23 16:14:39 1.3 @@ -19,7 +19,7 @@ ================================================================================ */ -#define DEBUG_ERREURS + #include "rpl-conv.h" @@ -92,6 +92,14 @@ instruction_uncompress(struct_processus { l_element_courant = (*s_objet_argument).objet; + if (l_element_courant == NULL) + { + liberation(s_etat_processus, s_objet_argument); + + (*s_etat_processus).erreur_execution = d_ex_argument_invalide; + return; + } + if ((*(*l_element_courant).donnee).type != INT) { liberation(s_etat_processus, s_objet_argument);