--- rpl/src/instructions_c4.c 2011/06/09 14:48:36 1.22 +++ rpl/src/instructions_c4.c 2011/06/21 07:45:23 1.25 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.1.0.prerelease.0 + RPL/2 (R) version 4.1.0.prerelease.1 Copyright (C) 1989-2011 Dr. BERTRAND Joël This file is part of RPL/2. @@ -95,13 +95,6 @@ instruction_cov(struct_processus *s_etat } else { - if ((*(*s_etat_processus).pointeur_variable_courante).objet - == NULL) - { - (*s_etat_processus).erreur_execution = d_ex_variable_partagee; - return; - } - if (((*(*(*s_etat_processus).pointeur_variable_courante).objet) .type != MIN) && ((*(*(*s_etat_processus) .pointeur_variable_courante).objet).type != MRL)) @@ -237,12 +230,6 @@ instruction_corr(struct_processus *s_eta } else { - if ((*(*s_etat_processus).pointeur_variable_courante).objet == NULL) - { - (*s_etat_processus).erreur_execution = d_ex_variable_partagee; - return; - } - if (((*(*(*s_etat_processus).pointeur_variable_courante).objet) .type != MIN) && ((*(*(*s_etat_processus) .pointeur_variable_courante).objet).type != MRL))