rpl/src/simplification.c - diff

Return to simplification.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/simplification.c between versions 1.72 and 1.73

version 1.72, 2019/11/06 17:52:46	version 1.73, 2019/11/11 13:16:25
Line 57 affichage_arbre(struct_processus *s_etat	Line 57 affichage_arbre(struct_processus *s_etat

l_element_courant = (*s_arbre).feuille;	l_element_courant = (*s_arbre).feuille;

	for(i = 0; i < niveau; i++)
	{
	printf(" ");
	}

while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
if ((chaine = formateur(s_etat_processus, 0,	if ((chaine = formateur(s_etat_processus, 0,
Line 66 affichage_arbre(struct_processus *s_etat	Line 71 affichage_arbre(struct_processus *s_etat
return;	return;
}	}

for(i = 0; i < niveau; i++)	printf("%s ", chaine);
{
printf(" ");
}

printf("%s\n", chaine);
free(chaine);	free(chaine);

l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}

	printf("\n");

// Affichage des branches (arguments de la fonction dans la feuille)	// Affichage des branches (arguments de la fonction dans la feuille)

for(branche = 0; branche < (*s_arbre).nombre_branches; branche++)	for(branche = 0; branche < (*s_arbre).nombre_branches; branche++)
Line 138 transcription_arbre(struct_processus *s_	Line 140 transcription_arbre(struct_processus *s_
}	}

// Ajout des fonctions	// Ajout des fonctions
// Arbre q-aire => si q branches, q-1 fonctions

l_liste = (*s_arbre).feuille;	l_liste = (*s_arbre).feuille;
	uprintf("avant free %p\n", s_arbre->branches);
for(i = 0; i < (*s_arbre).nombre_branches - 2; i++)
{
if ((l_element_courant = allocation_maillon(s_etat_processus))
== NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);
}

(*l_element_courant).suivant = l_liste;

if (((*l_element_courant).donnee = copie_objet(s_etat_processus,
(*l_liste).donnee, 'P')) == NULL)
{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);
}

l_liste = l_element_courant;
}

free((*s_arbre).branches);	free((*s_arbre).branches);
	uprintf("aprčs free %p\n", s_arbre->branches);
free(s_arbre);	free(s_arbre);

// Chaînage des arguments	// Chaînage des arguments
Line 254 simplification_arbre(struct_processus *s	Line 235 simplification_arbre(struct_processus *s

struct_arbre *s_branche;	struct_arbre *s_branche;

	struct_liste_chainee *l_element_courant;
	struct_liste_chainee *l_element_suivant;

struct_objet *s_objet;	struct_objet *s_objet;

if ((((*s_arbre).feuille).donnee).type != FCT)	if ((((*s_arbre).feuille).donnee).type != FCT)
Line 407 simplification_arbre(struct_processus *s	Line 391 simplification_arbre(struct_processus *s
((s_arbre).branches[i]).branches[j];	((s_arbre).branches[i]).branches[j];
}	}

	l_element_courant = (*s_arbre).feuille;
	(s_arbre).feuille = ((*s_arbre).branches[i]).feuille;

	l_element_suivant = (*s_arbre).feuille;
	while((*l_element_suivant).suivant != NULL)
	{
	l_element_suivant = (*l_element_suivant).suivant;
	}

	(*l_element_suivant).suivant = l_element_courant;
	free(((s_arbre).branches[i]).branches);
free((*s_arbre).branches[i]);	free((*s_arbre).branches[i]);

// Retrait de la branche	// Retrait de la branche

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.72
changed lines
	Added in v.1.73