rpl/src/analyse_notation_rpn.c - diff

Return to analyse_notation_rpn.c CVS log

Up to [local] / rpl / src

version 1.45, 2013/04/01 15:29:33	version 1.78, 2025/04/15 10:17:49
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.14	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 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);