rpl/src/instructions_d1.c - diff

Return to instructions_d1.c CVS log

Up to [local] / rpl / src

version 1.28, 2011/08/09 11:31:31	version 1.29, 2011/09/01 12:14:56
Line 420 instruction_drop2(struct_processus *s_et	Line 420 instruction_drop2(struct_processus *s_et
{	{
struct_objet *s_objet;	struct_objet *s_objet;

logical1 erreur;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

if ((*s_etat_processus).affichage_arguments == 'Y')	if ((*s_etat_processus).affichage_arguments == 'Y')
Line 488 instruction_drop2(struct_processus *s_et	Line 486 instruction_drop2(struct_processus *s_et
}	}
}	}

if ((*s_etat_processus).hauteur_pile_operationnelle < 2)	if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	&s_objet) == d_erreur)
{	{
(*s_etat_processus).erreur_execution = d_ex_manque_argument;	(*s_etat_processus).erreur_execution = d_ex_manque_argument;
return;	return;
}	}

erreur = depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
&s_objet);
liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);

erreur = depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),	if (depilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
&s_objet);	&s_objet) == d_erreur)
	{
	(*s_etat_processus).erreur_execution = d_ex_manque_argument;
	return;
	}

liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);

return;	return;