rpl/src/instructions_p2.c - diff

Return to instructions_p2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_p2.c between versions 1.1.1.1 and 1.69

version 1.1.1.1, 2010/01/26 15:22:45	version 1.69, 2019/10/31 15:40:17
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.9	RPL/2 (R) version 4.1.32
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2019 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"


/*	/*
Line 38	Line 38
void	void
instruction_p_vers_r(struct_processus *s_etat_processus)	instruction_p_vers_r(struct_processus *s_etat_processus)
{	{
	double angle;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_precedent;	struct_liste_chainee *l_element_precedent;

Line 110 instruction_p_vers_r(struct_processus *s	Line 112 instruction_p_vers_r(struct_processus *s
if ((*s_objet_argument).type == INT)	if ((*s_objet_argument).type == INT)
{	{
(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle
= (((integer8 ) (*s_objet_argument).objet));	= (real8) (((integer8 ) (*s_objet_argument).objet));
}	}
else	else
{	{
Line 136 instruction_p_vers_r(struct_processus *s	Line 138 instruction_p_vers_r(struct_processus *s
return;	return;
}	}

	angle = (((struct_complexe16 ) (*s_objet_argument).objet))
	.partie_imaginaire;

if (test_cfsf(s_etat_processus, 60) == d_faux)	if (test_cfsf(s_etat_processus, 60) == d_faux)
{	{
conversion_degres_vers_radians(&((((struct_complexe16 )	conversion_degres_vers_radians(&angle);
(*s_objet_argument).objet)).partie_imaginaire));
}	}

(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_reelle =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * cos((((struct_complexe16 )	.partie_reelle * cos(angle);
(*s_objet_argument).objet)).partie_imaginaire);
(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =	(((struct_complexe16 ) (*s_objet_resultat).objet)).partie_imaginaire =
(((struct_complexe16 ) (*s_objet_argument).objet))	(((struct_complexe16 ) (*s_objet_argument).objet))
.partie_reelle * sin((((struct_complexe16 )	.partie_reelle * sin(angle);
(*s_objet_argument).objet)).partie_imaginaire);
}	}

/*	/*
Line 372 instruction_p_vers_r(struct_processus *s	Line 374 instruction_p_vers_r(struct_processus *s
================================================================================	================================================================================
*/	*/

	static int
	fonction_comparaison(const void argument_1, const void argument_2)
	{
	return(strcmp((unsigned char *) argument_1,
	(unsigned char ) (((struct_objet *) argument_2)).objet));
	}


void	void
instruction_put(struct_processus *s_etat_processus)	instruction_put(struct_processus *s_etat_processus)
{	{
Line 381 instruction_put(struct_processus *s_etat	Line 391 instruction_put(struct_processus *s_etat

struct_objet *s_copie_3;	struct_objet *s_copie_3;
struct_objet *s_copie_4;	struct_objet *s_copie_4;
	struct_objet **s_enregistrement;
struct_objet *s_objet_1;	struct_objet *s_objet_1;
struct_objet *s_objet_2;	struct_objet *s_objet_2;
struct_objet *s_objet_3;	struct_objet *s_objet_3;
struct_objet *s_objet_4;	struct_objet *s_objet_4;
struct_objet *s_objet_element;	struct_objet *s_objet_element;

unsigned long i;	integer8 i;
unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long j;	integer8 j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;

void *tampon;	void *tampon;

Line 426 instruction_put(struct_processus *s_etat	Line 437 instruction_put(struct_processus *s_etat
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf("-> 1: %s\n\n", d_LST);	printf("-> 1: %s\n\n", d_LST);

printf(" 3: %s\n", d_TAB);	printf(" 3: %s\n", d_TAB);
Line 438 instruction_put(struct_processus *s_etat	Line 449 instruction_put(struct_processus *s_etat
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf("-> 1: %s\n\n", d_TAB);	printf("-> 1: %s\n\n", d_TAB);

	printf(" 3: %s\n", d_REC);
	printf(" 2: %s\n", d_CHN);
	printf(" 1: %s, %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s, %s,\n"
	" %s, %s, %s, %s,\n"
	" %s, %s, %s\n",
	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
	printf("-> 1: %s\n\n", d_REC);

printf(" 3: %s\n", d_NOM);	printf(" 3: %s\n", d_NOM);
printf(" 2: %s, %s\n", d_LST, d_INT);	printf(" 2: %s, %s\n", d_LST, d_INT);
printf(" 1: %s, %s, %s, %s, %s, %s,\n"	printf(" 1: %s, %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);

return;	return;
}	}
Line 608 instruction_put(struct_processus *s_etat	Line 631 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VRL;	(*s_objet_3).type = VRL;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille sizeof(real8)))	(s_objet_3).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 643 instruction_put(struct_processus *s_etat	Line 666 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 724 instruction_put(struct_processus *s_etat	Line 747 instruction_put(struct_processus *s_etat
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 967 instruction_put(struct_processus *s_etat	Line 990 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MRL;	(*s_objet_3).type = MRL;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes sizeof(real8 *)))	(s_objet_3).objet)).nombre_lignes) sizeof(real8 *)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 981 instruction_put(struct_processus *s_etat	Line 1004 instruction_put(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1020 instruction_put(struct_processus *s_etat	Line 1043 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1034 instruction_put(struct_processus *s_etat	Line 1057 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1120 instruction_put(struct_processus *s_etat	Line 1143 instruction_put(struct_processus *s_etat
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1134 instruction_put(struct_processus *s_etat	Line 1157 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 1415 instruction_put(struct_processus *s_etat	Line 1438 instruction_put(struct_processus *s_etat

/*	/*
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
	Traitement des enregistrements
	--------------------------------------------------------------------------------
	*/

	else if ((*s_objet_3).type == REC)
	{
	if ((*s_objet_2).type != CHN)
	{
	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);
	liberation(s_etat_processus, s_objet_3);

	(*s_etat_processus).erreur_execution = d_ex_erreur_type_argument;
	return;
	}

	if ((*s_objet_3).nombre_occurrences > 1)
	{
	if ((s_copie_3 = copie_objet(s_etat_processus, s_objet_3, 'N'))
	== NULL)
	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
	return;
	}

	liberation(s_etat_processus, s_objet_3);
	s_objet_3 = s_copie_3;
	}

	if ((s_enregistrement = bsearch((unsigned char ) (s_objet_2).objet,
	(((struct_tableau ) ((((struct_record *)
	(*s_objet_3).objet)).noms).objet)).elements,
	(size_t) (((struct_tableau ) ((((struct_record *)
	(*s_objet_3).objet)).noms).objet)).nombre_elements,
	sizeof(struct_objet *), fonction_comparaison)) == NULL)
	{
	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);
	liberation(s_etat_processus, s_objet_3);

	(*s_etat_processus).erreur_execution = d_ex_element_inexistant;
	return;
	}

	indice_i = s_enregistrement - (((struct_tableau )
	((((struct_record ) (s_objet_3).objet)).noms).objet))
	.elements;

	liberation(s_etat_processus, (((struct_tableau )
	((((struct_record ) (s_objet_3).objet)).donnees).objet))
	.elements[indice_i]);
	(((struct_tableau ) ((((struct_record ) (s_objet_3).objet))
	.donnees).objet)).elements[indice_i] = s_objet_1;

	liberation(s_etat_processus, s_objet_2);

	if (empilement(s_etat_processus, &((*s_etat_processus).l_base_pile),
	s_objet_3) == d_erreur)
	{
	return;
	}
	}

	/*
	--------------------------------------------------------------------------------
Traitement des noms	Traitement des noms
--------------------------------------------------------------------------------	--------------------------------------------------------------------------------
*/	*/
Line 1436 instruction_put(struct_processus *s_etat	Line 1524 instruction_put(struct_processus *s_etat
return;	return;
}	}

if ((s_etat_processus).s_liste_variables[(s_etat_processus)	if (((s_etat_processus).pointeur_variable_courante)
.position_variable_courante].variable_verrouillee == d_vrai)	.variable_verrouillee == d_vrai)
{	{
(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;	(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;

Line 1448 instruction_put(struct_processus *s_etat	Line 1536 instruction_put(struct_processus *s_etat
return;	return;
}	}

s_objet_4 = (*s_etat_processus).s_liste_variables	s_objet_4 = ((s_etat_processus).pointeur_variable_courante).objet;
[(*s_etat_processus).position_variable_courante].objet;

if (s_objet_4 == NULL)	if (s_objet_4 == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).nom,
.position_variable_courante].nom,	((s_etat_processus).pointeur_variable_courante)
(s_etat_processus).s_liste_variables[(s_etat_processus)	.variable_partagee, ((s_etat_processus)
.position_variable_courante].variable_partagee,	.pointeur_variable_courante).origine) == NULL)
(s_etat_processus).s_liste_variables[(s_etat_processus)
.position_variable_courante].origine) == d_faux)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
(*s_etat_processus).erreur_execution =	(*s_etat_processus).erreur_execution =
d_ex_variable_non_definie;	d_ex_variable_non_definie;
Line 1486 instruction_put(struct_processus *s_etat	Line 1557 instruction_put(struct_processus *s_etat
return;	return;
}	}

s_objet_4 = ((s_etat_processus).s_liste_variables_partagees)	s_objet_4 = ((s_etat_processus)
.table[((s_etat_processus).s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet;
.position_variable].objet;
variable_partagee = d_vrai;	variable_partagee = d_vrai;
}	}

Line 1501 instruction_put(struct_processus *s_etat	Line 1571 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1531 instruction_put(struct_processus *s_etat	Line 1601 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1554 instruction_put(struct_processus *s_etat	Line 1624 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1575 instruction_put(struct_processus *s_etat	Line 1645 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1596 instruction_put(struct_processus *s_etat	Line 1666 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1619 instruction_put(struct_processus *s_etat	Line 1689 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1662 instruction_put(struct_processus *s_etat	Line 1732 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VRL;	(*s_objet_4).type = VRL;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille sizeof(real8)))	(s_objet_4).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1709 instruction_put(struct_processus *s_etat	Line 1780 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1756 instruction_put(struct_processus *s_etat	Line 1828 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1812 instruction_put(struct_processus *s_etat	Line 1885 instruction_put(struct_processus *s_etat
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1859 instruction_put(struct_processus *s_etat	Line 1933 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1929 instruction_put(struct_processus *s_etat	Line 2004 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1949 instruction_put(struct_processus *s_etat	Line 2025 instruction_put(struct_processus *s_etat

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1981 instruction_put(struct_processus *s_etat	Line 2055 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2011 instruction_put(struct_processus *s_etat	Line 2085 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2039 instruction_put(struct_processus *s_etat	Line 2113 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2061 instruction_put(struct_processus *s_etat	Line 2136 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2098 instruction_put(struct_processus *s_etat	Line 2174 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2119 instruction_put(struct_processus *s_etat	Line 2195 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2162 instruction_put(struct_processus *s_etat	Line 2238 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MRL;	(*s_objet_4).type = MRL;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2187 instruction_put(struct_processus *s_etat	Line 2264 instruction_put(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2238 instruction_put(struct_processus *s_etat	Line 2315 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2263 instruction_put(struct_processus *s_etat	Line 2341 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2317 instruction_put(struct_processus *s_etat	Line 2395 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2373 instruction_put(struct_processus *s_etat	Line 2452 instruction_put(struct_processus *s_etat
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2399 instruction_put(struct_processus *s_etat	Line 2478 instruction_put(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2453 instruction_put(struct_processus *s_etat	Line 2532 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2526 instruction_put(struct_processus *s_etat	Line 2606 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2546 instruction_put(struct_processus *s_etat	Line 2627 instruction_put(struct_processus *s_etat

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante).mutex)) != 0)
!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2578 instruction_put(struct_processus *s_etat	Line 2656 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante).mutex)) != 0)
!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2607 instruction_put(struct_processus *s_etat	Line 2684 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante).mutex))
!= 0)	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 2643 instruction_put(struct_processus *s_etat	Line 2720 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2661 instruction_put(struct_processus *s_etat	Line 2738 instruction_put(struct_processus *s_etat

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2691 instruction_put(struct_processus *s_etat	Line 2766 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2716 instruction_put(struct_processus *s_etat	Line 2791 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2744 instruction_put(struct_processus *s_etat	Line 2820 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2766 instruction_put(struct_processus *s_etat	Line 2843 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2792 instruction_put(struct_processus *s_etat	Line 2870 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2825 instruction_put(struct_processus *s_etat	Line 2904 instruction_put(struct_processus *s_etat

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_processus;
	return;
	}
	}

	liberation(s_etat_processus, s_objet_2);
	}
	else if ((*s_objet_4).type == REC)
	{
	if ((*s_objet_2).type != CHN)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_processus;
	return;
	}
	}

	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);
	liberation(s_etat_processus, s_objet_3);

	(*s_etat_processus).erreur_execution =
	d_ex_erreur_type_argument;
	return;
	}

	if ((*s_objet_4).nombre_occurrences > 1)
	{
	if ((s_copie_4 = copie_objet(s_etat_processus, s_objet_3, 'N'))
	== NULL)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex))
	!= 0)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_processus;
	return;
	}
	}

	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
	return;
	}

	liberation(s_etat_processus, s_objet_4);
	s_objet_4 = s_copie_4;
	}

	if ((s_enregistrement = bsearch(
	(unsigned char ) (s_objet_2).objet,
	(((struct_tableau ) ((((struct_record *)
	(*s_objet_4).objet)).noms).objet)).elements,
	(size_t) (((struct_tableau ) ((((struct_record *)
	(*s_objet_4).objet)).noms).objet)).nombre_elements,
	sizeof(struct_objet *), fonction_comparaison)) == NULL)
	{
	if (variable_partagee == d_vrai)
	{
	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex))
	!= 0)
	{
	(*s_etat_processus).erreur_systeme =
	d_es_processus;
	return;
	}
	}

	liberation(s_etat_processus, s_objet_1);
	liberation(s_etat_processus, s_objet_2);
	liberation(s_etat_processus, s_objet_3);

	(*s_etat_processus).erreur_execution = d_ex_element_inexistant;
	return;
	}

	indice_i = s_enregistrement - (((struct_tableau )
	((((struct_record ) (s_objet_4).objet)).noms).objet))
	.elements;

	liberation(s_etat_processus, (((struct_tableau )
	((((struct_record ) (s_objet_4).objet)).donnees).objet))
	.elements[indice_i]);
	(((struct_tableau ) ((((struct_record ) (s_objet_4).objet))
	.donnees).objet)).elements[indice_i] = s_objet_1;

	if (variable_partagee == d_faux)
	{
	((s_etat_processus).pointeur_variable_courante).objet =
	s_objet_4;
	}
	else
	{
	((s_etat_processus).pointeur_variable_courante).objet = NULL;
	((s_etat_processus).pointeur_variable_partagee_courante)
	.objet = s_objet_4;

	if (pthread_mutex_unlock(&(((s_etat_processus)
	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2852 instruction_put(struct_processus *s_etat	Line 3039 instruction_put(struct_processus *s_etat
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 2916 instruction_puti(struct_processus *s_eta	Line 3103 instruction_puti(struct_processus *s_eta
struct_objet *s_objet_3;	struct_objet *s_objet_3;
struct_objet *s_objet_4;	struct_objet *s_objet_4;

unsigned long i;	integer8 i;
unsigned long indice_i;	integer8 indice_i;
unsigned long indice_j;	integer8 indice_j;
unsigned long j;	integer8 j;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;
unsigned long nombre_elements;	integer8 nombre_elements;

void *tampon;	void *tampon;

Line 2958 instruction_puti(struct_processus *s_eta	Line 3145 instruction_puti(struct_processus *s_eta
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s, %s,\n"	" %s, %s, %s, %s, %s,\n"
" %s, %s, %s, %s,\n"	" %s, %s, %s, %s,\n"
" %s, %s\n",	" %s, %s, %s\n",
d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,	d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,	d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
d_SQL, d_SLB, d_PRC, d_MTX);	d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
printf("-> 2: %s, %s\n", d_LST, d_NOM);	printf("-> 2: %s, %s\n", d_LST, d_NOM);
printf(" 1: %s\n", d_INT);	printf(" 1: %s\n", d_INT);

Line 3127 instruction_puti(struct_processus *s_eta	Line 3314 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VRL;	(*s_objet_3).type = VRL;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille sizeof(real8)))	(s_objet_3).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3162 instruction_puti(struct_processus *s_eta	Line 3349 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3243 instruction_puti(struct_processus *s_eta	Line 3430 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = VCX;	(*s_objet_3).type = VCX;

if (((((struct_vecteur ) (*s_objet_3).objet)).tableau	if (((((struct_vecteur ) (*s_objet_3).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_3).objet)).taille	(s_objet_3).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3495 instruction_puti(struct_processus *s_eta	Line 3682 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MRL;	(*s_objet_3).type = MRL;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes sizeof(real8 *)))	(s_objet_3).objet)).nombre_lignes) sizeof(real8 *)))
== NULL)	== NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3509 instruction_puti(struct_processus *s_eta	Line 3696 instruction_puti(struct_processus *s_eta
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3548 instruction_puti(struct_processus *s_eta	Line 3735 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3562 instruction_puti(struct_processus *s_eta	Line 3749 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3648 instruction_puti(struct_processus *s_eta	Line 3835 instruction_puti(struct_processus *s_eta
(*s_objet_3).type = MCX;	(*s_objet_3).type = MCX;

if (((((struct_matrice ) (*s_objet_3).objet)).tableau	if (((((struct_matrice ) (*s_objet_3).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_lignes	(s_objet_3).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3662 instruction_puti(struct_processus *s_eta	Line 3849 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_3).objet)).tableau)[i]	(*s_objet_3).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_3).objet)).nombre_colonnes	(s_objet_3).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 3907 instruction_puti(struct_processus *s_eta	Line 4094 instruction_puti(struct_processus *s_eta
return;	return;
}	}

if ((s_etat_processus).s_liste_variables[(s_etat_processus)	if (((s_etat_processus).pointeur_variable_courante)
.position_variable_courante].variable_verrouillee == d_vrai)	.variable_verrouillee == d_vrai)
{	{
(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;	(*s_etat_processus).erreur_execution = d_ex_variable_verrouillee;

Line 3919 instruction_puti(struct_processus *s_eta	Line 4106 instruction_puti(struct_processus *s_eta
return;	return;
}	}

s_objet_4 = (s_etat_processus).s_liste_variables[(s_etat_processus)	s_objet_4 = ((s_etat_processus).pointeur_variable_courante).objet;
.position_variable_courante].objet;

if (s_objet_4 == NULL)	if (s_objet_4 == NULL)
{	{
if (pthread_mutex_lock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return;
}

if (recherche_variable_partagee(s_etat_processus,	if (recherche_variable_partagee(s_etat_processus,
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).nom,
.position_variable_courante].nom,	((s_etat_processus).pointeur_variable_courante)
(s_etat_processus).s_liste_variables[(s_etat_processus)	.variable_partagee, ((s_etat_processus)
.position_variable_courante].variable_partagee,	.pointeur_variable_courante).origine) == NULL)
(s_etat_processus).s_liste_variables[(s_etat_processus)
.position_variable_courante].origine) == d_faux)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 3957 instruction_puti(struct_processus *s_eta	Line 4134 instruction_puti(struct_processus *s_eta
return;	return;
}	}

s_objet_4 = ((s_etat_processus).s_liste_variables_partagees)	s_objet_4 = ((s_etat_processus)
.table[((s_etat_processus).s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet;
.position_variable].objet;
variable_partagee = d_vrai;	variable_partagee = d_vrai;
}	}

Line 3972 instruction_puti(struct_processus *s_eta	Line 4148 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4002 instruction_puti(struct_processus *s_eta	Line 4178 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4025 instruction_puti(struct_processus *s_eta	Line 4201 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4046 instruction_puti(struct_processus *s_eta	Line 4222 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4067 instruction_puti(struct_processus *s_eta	Line 4243 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4090 instruction_puti(struct_processus *s_eta	Line 4266 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4133 instruction_puti(struct_processus *s_eta	Line 4309 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VRL;	(*s_objet_4).type = VRL;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille sizeof(real8)))	(s_objet_4).objet)).taille) sizeof(real8)))
== NULL)	== NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4180 instruction_puti(struct_processus *s_eta	Line 4357 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4227 instruction_puti(struct_processus *s_eta	Line 4405 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4283 instruction_puti(struct_processus *s_eta	Line 4462 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = VCX;	(*s_objet_4).type = VCX;

if (((((struct_vecteur ) (*s_objet_4).objet)).tableau	if (((((struct_vecteur ) (*s_objet_4).objet)).tableau
= malloc((((struct_vecteur )	= malloc(((size_t) (((struct_vecteur )
(s_objet_4).objet)).taille	(s_objet_4).objet)).taille)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4330 instruction_puti(struct_processus *s_eta	Line 4510 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4400 instruction_puti(struct_processus *s_eta	Line 4581 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4424 instruction_puti(struct_processus *s_eta	Line 4606 instruction_puti(struct_processus *s_eta

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus)
((s_etat_processus).s_liste_variables_partagees)	.pointeur_variable_partagee_courante).objet = s_objet_4;
.table[((s_etat_processus)
.s_liste_variables_partagees).position_variable].objet
= s_objet_4;

if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4458 instruction_puti(struct_processus *s_eta	Line 4637 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4488 instruction_puti(struct_processus *s_eta	Line 4667 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4516 instruction_puti(struct_processus *s_eta	Line 4695 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4538 instruction_puti(struct_processus *s_eta	Line 4718 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4575 instruction_puti(struct_processus *s_eta	Line 4756 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4596 instruction_puti(struct_processus *s_eta	Line 4777 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4639 instruction_puti(struct_processus *s_eta	Line 4820 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MRL;	(*s_objet_4).type = MRL;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(real8 *))) == NULL)	sizeof(real8 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4664 instruction_puti(struct_processus *s_eta	Line 4846 instruction_puti(struct_processus *s_eta
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(real8))) == NULL)	sizeof(real8))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4715 instruction_puti(struct_processus *s_eta	Line 4897 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4740 instruction_puti(struct_processus *s_eta	Line 4923 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4794 instruction_puti(struct_processus *s_eta	Line 4977 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4850 instruction_puti(struct_processus *s_eta	Line 5034 instruction_puti(struct_processus *s_eta
(*s_objet_4).type = MCX;	(*s_objet_4).type = MCX;

if (((((struct_matrice ) (*s_objet_4).objet)).tableau	if (((((struct_matrice ) (*s_objet_4).objet)).tableau
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_lignes	(s_objet_4).objet)).nombre_lignes)
sizeof(struct_complexe16 *))) == NULL)	sizeof(struct_complexe16 *))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante)
	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4875 instruction_puti(struct_processus *s_eta	Line 5060 instruction_puti(struct_processus *s_eta
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_4).objet)).tableau)[i]	(*s_objet_4).objet)).tableau)[i]
= malloc((((struct_matrice )	= malloc(((size_t) (((struct_matrice )
(s_objet_4).objet)).nombre_colonnes	(s_objet_4).objet)).nombre_colonnes)
sizeof(struct_complexe16))) == NULL)	sizeof(struct_complexe16))) == NULL)
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 4929 instruction_puti(struct_processus *s_eta	Line 5114 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante).mutex))
!= 0)	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5003 instruction_puti(struct_processus *s_eta	Line 5188 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex))	.pointeur_variable_partagee_courante).mutex))
!= 0)	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
Line 5041 instruction_puti(struct_processus *s_eta	Line 5226 instruction_puti(struct_processus *s_eta

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 5073 instruction_puti(struct_processus *s_eta	Line 5256 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 5101 instruction_puti(struct_processus *s_eta	Line 5284 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 5145 instruction_puti(struct_processus *s_eta	Line 5329 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 5166 instruction_puti(struct_processus *s_eta	Line 5350 instruction_puti(struct_processus *s_eta

if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet =
.position_variable_courante].objet = s_objet_4;	s_objet_4;
}	}
else	else
{	{
(s_etat_processus).s_liste_variables[(s_etat_processus)	((s_etat_processus).pointeur_variable_courante).objet = NULL;
.position_variable_courante].objet = NULL;	((s_etat_processus).pointeur_variable_partagee_courante)
((s_etat_processus).s_liste_variables_partagees).table	.objet = s_objet_4;
[((s_etat_processus).s_liste_variables_partagees)
.position_variable].objet = s_objet_4;

if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 5194 instruction_puti(struct_processus *s_eta	Line 5376 instruction_puti(struct_processus *s_eta
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
if (pthread_mutex_unlock(&(((s_etat_processus)	if (pthread_mutex_unlock(&(((s_etat_processus)
.s_liste_variables_partagees).mutex)) != 0)	.pointeur_variable_partagee_courante).mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.1.1.1
changed lines
	Added in v.1.69