rpl/src/analyse_notation_rpn.c - diff

Return to analyse_notation_rpn.c CVS log

Up to [local] / rpl / src

version 1.50, 2014/04/25 07:37:28	version 1.73, 2021/03/13 12:50:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.18	RPL/2 (R) version 4.1.33
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2021 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;
}	}

	(*s_etat_processus).type_en_cours = NON;
recherche_type(s_etat_processus);	recherche_type(s_etat_processus);
free((*s_etat_processus).instruction_courante);	free((*s_etat_processus).instruction_courante);