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.18 and 1.47

version 1.18, 2011/04/11 12:10:09	version 1.47, 2013/06/21 14:15:55
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.0	RPL/2 (R) version 4.1.15
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 112 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 389 instruction_put(struct_processus *s_etat	Line 389 instruction_put(struct_processus *s_etat
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 610 instruction_put(struct_processus *s_etat	Line 610 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 645 instruction_put(struct_processus *s_etat	Line 645 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 726 instruction_put(struct_processus *s_etat	Line 726 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 969 instruction_put(struct_processus *s_etat	Line 969 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 983 instruction_put(struct_processus *s_etat	Line 983 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 1022 instruction_put(struct_processus *s_etat	Line 1022 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 1036 instruction_put(struct_processus *s_etat	Line 1036 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 1122 instruction_put(struct_processus *s_etat	Line 1122 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 1136 instruction_put(struct_processus *s_etat	Line 1136 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 1438 instruction_put(struct_processus *s_etat	Line 1438 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 1450 instruction_put(struct_processus *s_etat	Line 1450 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 1488 instruction_put(struct_processus *s_etat	Line 1471 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 1503 instruction_put(struct_processus *s_etat	Line 1485 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 1533 instruction_put(struct_processus *s_etat	Line 1515 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 1556 instruction_put(struct_processus *s_etat	Line 1538 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 1577 instruction_put(struct_processus *s_etat	Line 1559 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 1598 instruction_put(struct_processus *s_etat	Line 1580 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 1621 instruction_put(struct_processus *s_etat	Line 1603 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 1664 instruction_put(struct_processus *s_etat	Line 1646 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 1711 instruction_put(struct_processus *s_etat	Line 1694 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 1758 instruction_put(struct_processus *s_etat	Line 1742 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 1814 instruction_put(struct_processus *s_etat	Line 1799 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 1861 instruction_put(struct_processus *s_etat	Line 1847 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 1931 instruction_put(struct_processus *s_etat	Line 1918 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 1951 instruction_put(struct_processus *s_etat	Line 1939 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 1983 instruction_put(struct_processus *s_etat	Line 1969 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 2013 instruction_put(struct_processus *s_etat	Line 1999 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 2041 instruction_put(struct_processus *s_etat	Line 2027 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 2063 instruction_put(struct_processus *s_etat	Line 2050 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 2100 instruction_put(struct_processus *s_etat	Line 2088 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 2121 instruction_put(struct_processus *s_etat	Line 2109 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 2164 instruction_put(struct_processus *s_etat	Line 2152 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 2189 instruction_put(struct_processus *s_etat	Line 2178 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 2240 instruction_put(struct_processus *s_etat	Line 2229 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 2265 instruction_put(struct_processus *s_etat	Line 2255 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 2319 instruction_put(struct_processus *s_etat	Line 2309 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 2375 instruction_put(struct_processus *s_etat	Line 2366 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 2401 instruction_put(struct_processus *s_etat	Line 2392 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 2455 instruction_put(struct_processus *s_etat	Line 2446 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 2528 instruction_put(struct_processus *s_etat	Line 2520 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 2548 instruction_put(struct_processus *s_etat	Line 2541 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 2580 instruction_put(struct_processus *s_etat	Line 2570 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 2609 instruction_put(struct_processus *s_etat	Line 2598 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 2645 instruction_put(struct_processus *s_etat	Line 2634 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 2663 instruction_put(struct_processus *s_etat	Line 2652 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 2693 instruction_put(struct_processus *s_etat	Line 2680 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 2718 instruction_put(struct_processus *s_etat	Line 2705 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 2746 instruction_put(struct_processus *s_etat	Line 2734 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 2768 instruction_put(struct_processus *s_etat	Line 2757 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 2794 instruction_put(struct_processus *s_etat	Line 2784 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 2827 instruction_put(struct_processus *s_etat	Line 2818 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 2854 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 2918 instruction_puti(struct_processus *s_eta	Line 2907 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 3129 instruction_puti(struct_processus *s_eta	Line 3118 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 3164 instruction_puti(struct_processus *s_eta	Line 3153 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 3245 instruction_puti(struct_processus *s_eta	Line 3234 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 3497 instruction_puti(struct_processus *s_eta	Line 3486 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 3511 instruction_puti(struct_processus *s_eta	Line 3500 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 3550 instruction_puti(struct_processus *s_eta	Line 3539 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 3564 instruction_puti(struct_processus *s_eta	Line 3553 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 3650 instruction_puti(struct_processus *s_eta	Line 3639 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 3664 instruction_puti(struct_processus *s_eta	Line 3653 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 3909 instruction_puti(struct_processus *s_eta	Line 3898 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 3921 instruction_puti(struct_processus *s_eta	Line 3910 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 3959 instruction_puti(struct_processus *s_eta	Line 3938 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 3974 instruction_puti(struct_processus *s_eta	Line 3952 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 4004 instruction_puti(struct_processus *s_eta	Line 3982 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 4027 instruction_puti(struct_processus *s_eta	Line 4005 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 4048 instruction_puti(struct_processus *s_eta	Line 4026 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 4069 instruction_puti(struct_processus *s_eta	Line 4047 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 4092 instruction_puti(struct_processus *s_eta	Line 4070 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 4135 instruction_puti(struct_processus *s_eta	Line 4113 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 4182 instruction_puti(struct_processus *s_eta	Line 4161 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 4229 instruction_puti(struct_processus *s_eta	Line 4209 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 4285 instruction_puti(struct_processus *s_eta	Line 4266 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 4332 instruction_puti(struct_processus *s_eta	Line 4314 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 4402 instruction_puti(struct_processus *s_eta	Line 4385 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 4426 instruction_puti(struct_processus *s_eta	Line 4410 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 4460 instruction_puti(struct_processus *s_eta	Line 4441 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 4490 instruction_puti(struct_processus *s_eta	Line 4471 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 4518 instruction_puti(struct_processus *s_eta	Line 4499 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 4540 instruction_puti(struct_processus *s_eta	Line 4522 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 4577 instruction_puti(struct_processus *s_eta	Line 4560 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 4598 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 4641 instruction_puti(struct_processus *s_eta	Line 4624 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 4666 instruction_puti(struct_processus *s_eta	Line 4650 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 4717 instruction_puti(struct_processus *s_eta	Line 4701 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 4742 instruction_puti(struct_processus *s_eta	Line 4727 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 4796 instruction_puti(struct_processus *s_eta	Line 4781 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 4852 instruction_puti(struct_processus *s_eta	Line 4838 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 4877 instruction_puti(struct_processus *s_eta	Line 4864 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 4931 instruction_puti(struct_processus *s_eta	Line 4918 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 5005 instruction_puti(struct_processus *s_eta	Line 4992 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 5043 instruction_puti(struct_processus *s_eta	Line 5030 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 5075 instruction_puti(struct_processus *s_eta	Line 5060 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 5103 instruction_puti(struct_processus *s_eta	Line 5088 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 5147 instruction_puti(struct_processus *s_eta	Line 5133 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 5168 instruction_puti(struct_processus *s_eta	Line 5154 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 5196 instruction_puti(struct_processus *s_eta	Line 5180 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.18
changed lines
	Added in v.1.47