--- rpl/src/instructions_i2.c 2011/09/26 15:57:13 1.32 +++ rpl/src/instructions_i2.c 2011/11/26 10:01:29 1.34 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.4 + RPL/2 (R) version 4.1.5 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1160,11 +1160,11 @@ instruction_int(struct_processus *s_etat return; } - if (((*s_objet_argument_3).type == NOM) || - ((*s_objet_argument_3).type == ALG) || - ((*s_objet_argument_3).type == RPN) || - ((*s_objet_argument_3).type == REL) || - ((*s_objet_argument_3).type == INT)) + if (((*s_objet_argument_3).type != NOM) && + ((*s_objet_argument_3).type != ALG) && + ((*s_objet_argument_3).type != RPN) && + ((*s_objet_argument_3).type != REL) && + ((*s_objet_argument_3).type != INT)) { liberation(s_etat_processus, s_objet_argument_1); liberation(s_etat_processus, s_objet_argument_2);