rpl/src/sequenceur.c - diff

Return to sequenceur.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/sequenceur.c between versions 1.9 and 1.18

version 1.9, 2010/04/07 13:33:23	version 1.18, 2010/06/24 10:10:47
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.13	RPL/2 (R) version 4.0.17
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 814 sequenceur(struct_processus *s_etat_proc	Line 814 sequenceur(struct_processus *s_etat_proc
{	{
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_manque_argument;	d_ex_manque_argument;
return(d_erreur);
}	}
	else if ((((*s_etat_processus).l_base_pile).donnee)
if ((((*s_etat_processus).l_base_pile).donnee).type	.type == NOM)
== NOM)
{	{
if ((((struct_nom ) (((*s_etat_processus)	if ((((struct_nom ) (((*s_etat_processus)
.l_base_pile).donnee).objet)).symbole	.l_base_pile).donnee).objet)).symbole
== d_faux)	== d_faux)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_execution =
d_es_nom_implicite;	d_ex_nom_implicite;

	// Si le niveau de récursivité est non nul, on
	// arrive ici depuis la fonction
	// recherche_type(). On retourne à cette
	// dernière en indiquant une erreur.

	if ((*s_etat_processus).niveau_recursivite != 0)
	{
	free((*s_etat_processus)
	.instruction_courante);
	return(d_erreur);
	}
}	}
}	}
}	}
Line 876 sequenceur(struct_processus *s_etat_proc	Line 886 sequenceur(struct_processus *s_etat_proc
!= 0) && (strcmp((*s_etat_processus)	!= 0) && (strcmp((*s_etat_processus)
.instruction_courante, ">>") != 0))	.instruction_courante, ">>") != 0))
{	{
if ((s_objet = (struct_objet *) malloc(	if ((s_objet = allocation(s_etat_processus, FCT)) == NULL)
sizeof(struct_objet))) == NULL)
{
(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;
return(d_erreur);
}

initialisation_objet(s_objet);
(*s_objet).type = FCT;

if (((*s_objet).objet = allocation(s_etat_processus, FCT))
== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_allocation_memoire;	d_es_allocation_memoire;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.9
changed lines
	Added in v.1.18