rpl/src/gestion_variables_statiques.c - diff

Return to gestion_variables_statiques.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_variables_statiques.c between versions 1.42 and 1.73

version 1.42, 2012/12/13 16:59:41	version 1.73, 2022/09/07 13:40:32
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.11	RPL/2 (R) version 4.1.34
Copyright (C) 1989-2012 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 144 creation_variable_statique(struct_proces	Line 144 creation_variable_statique(struct_proces

((s_etat_processus).s_arbre_variables).feuille = NULL;	((s_etat_processus).s_arbre_variables).feuille = NULL;
((s_etat_processus).s_arbre_variables).feuille_statique = NULL;	((s_etat_processus).s_arbre_variables).feuille_statique = NULL;
((s_etat_processus).s_arbre_variables).feuille_partagee = NULL;
((s_etat_processus).s_arbre_variables).noeuds_utilises = 0;	((s_etat_processus).s_arbre_variables).noeuds_utilises = 0;
((s_etat_processus).s_arbre_variables).indice_tableau_pere = -1;	((s_etat_processus).s_arbre_variables).indice_tableau_pere = -1;
((s_etat_processus).s_arbre_variables).noeud_pere = NULL;	((s_etat_processus).s_arbre_variables).noeud_pere = NULL;
INITIALISATION_MUTEX(((s_etat_processus).s_arbre_variables)
.mutex_feuille_partagee);

if ((((s_etat_processus).s_arbre_variables).noeuds =	if ((((s_etat_processus).s_arbre_variables).noeuds =
allocation_tableau_noeuds(s_etat_processus)) == NULL)	allocation_tableau_noeuds(s_etat_processus)) == NULL)
Line 199 creation_variable_statique(struct_proces	Line 196 creation_variable_statique(struct_proces
.pointeurs_caracteres_variables[*ptr]]).feuille_statique	.pointeurs_caracteres_variables[*ptr]]).feuille_statique
= NULL;	= NULL;
((l_variable_courante).noeuds[(*s_etat_processus)	((l_variable_courante).noeuds[(*s_etat_processus)
.pointeurs_caracteres_variables[*ptr]]).feuille_partagee
= NULL;
((l_variable_courante).noeuds[(*s_etat_processus)
.pointeurs_caracteres_variables[*ptr]]).noeuds_utilises = 0;	.pointeurs_caracteres_variables[*ptr]]).noeuds_utilises = 0;
INITIALISATION_MUTEX(((l_variable_courante).noeuds
[(s_etat_processus).pointeurs_caracteres_variables[ptr]])
.mutex_feuille_partagee);

// Le champ noeud_pere de la structure créée pointe sur	// Le champ noeud_pere de la structure créée pointe sur
// la structure parente et l'indice tableau_pere correspond à la	// la structure parente et l'indice tableau_pere correspond à la
Line 387 retrait_variable_statique(struct_process	Line 378 retrait_variable_statique(struct_process
(*s_etat_processus).erreur_systeme = d_es_variable_introuvable;	(*s_etat_processus).erreur_systeme = d_es_variable_introuvable;
}	}

return erreur;	return(erreur);
}	}

CVSweb interface <joel.bertrand@systella.fr>

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