rpl/src/analyse_notation_rpn.c - diff

Return to analyse_notation_rpn.c CVS log

Up to [local] / rpl / src

version 1.51, 2014/07/17 08:07:15	version 1.60, 2015/09/18 13:41:07
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.23
Copyright (C) 1989-2014 Dr. BERTRAND Joël	Copyright (C) 1989-2015 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);