rpl/src/analyse_notation_rpn.c - diff

Return to analyse_notation_rpn.c CVS log

Up to [local] / rpl / src

version 1.54, 2014/08/04 06:59:17	version 1.70, 2019/02/03 14:40:28
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.31
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 75 analyse_rpn(struct_processus *s_etat_pro	Line 75 analyse_rpn(struct_processus *s_etat_pro
{	{
if (recherche_instruction_suivante(s_etat_processus) == d_erreur)	if (recherche_instruction_suivante(s_etat_processus) == d_erreur)
{	{
	while((*s_etat_processus).l_base_pile != l_ancienne_base_pile)
	{
	if (depilement(s_etat_processus, &((*s_etat_processus)
	.l_base_pile), &s_objet) == d_erreur)
	{
	return NULL;
	}

	liberation(s_etat_processus, s_objet);
	}

	(*s_etat_processus).position_courante = registre_compteur_programme;
	(*s_etat_processus).definitions_chainees = registre_programme;
	(*s_etat_processus).instruction_courante = registre_instruction;
	(*s_etat_processus).autorisation_empilement_programme =
	registre_autorisation_empilement;

return NULL;	return NULL;
}	}