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.24 and 1.50

version 1.24, 2011/06/22 13:27:01	version 1.50, 2014/01/26 18:21:33
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.3	RPL/2 (R) version 4.1.17
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2014 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 1454 instruction_put(struct_processus *s_etat	Line 1454 instruction_put(struct_processus *s_etat

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).pointeur_variable_courante).nom,	((s_etat_processus).pointeur_variable_courante).nom,
((s_etat_processus).pointeur_variable_courante)	((s_etat_processus).pointeur_variable_courante)
.variable_partagee, ((s_etat_processus)	.variable_partagee, ((s_etat_processus)
.pointeur_variable_courante).origine) == d_faux)	.pointeur_variable_courante).origine) == NULL)
{	{
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 1485 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 1500 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 1530 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 1553 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 1574 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 1595 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 1618 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 1661 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 1708 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 1755 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 1811 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 1858 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 1928 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 1954 instruction_put(struct_processus *s_etat	Line 1945 instruction_put(struct_processus *s_etat
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 1979 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 2009 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 2037 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 2059 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 2096 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 2117 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 2160 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 2185 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 2236 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 2261 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 2315 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 2371 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 2397 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 2451 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 2524 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 2550 instruction_put(struct_processus *s_etat	Line 2547 instruction_put(struct_processus *s_etat
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 2575 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 2604 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 2640 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 2664 instruction_put(struct_processus *s_etat	Line 2658 instruction_put(struct_processus *s_etat
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 2687 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 2712 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 2740 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 2762 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 2788 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 2824 instruction_put(struct_processus *s_etat
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 2847 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 2911 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 3122 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 3157 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 3238 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 3490 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 3504 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 3543 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 3557 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 3643 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 3657 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 3918 instruction_puti(struct_processus *s_eta	Line 3914 instruction_puti(struct_processus *s_eta

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).pointeur_variable_courante).nom,	((s_etat_processus).pointeur_variable_courante).nom,
((s_etat_processus).pointeur_variable_courante)	((s_etat_processus).pointeur_variable_courante)
.variable_partagee, ((s_etat_processus)	.variable_partagee, ((s_etat_processus)
.pointeur_variable_courante).origine) == d_faux)	.pointeur_variable_courante).origine) == NULL)
{	{
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 3949 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 3964 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 3994 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 4017 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 4038 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 4059 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 4082 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 4125 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 4172 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 4219 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 4275 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 4322 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 4392 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 4422 instruction_puti(struct_processus *s_eta	Line 4416 instruction_puti(struct_processus *s_eta
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees)	((s_etat_processus)
.table[((s_etat_processus)	.pointeur_variable_partagee_courante).objet = s_objet_4;
.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 4449 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 4479 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 4507 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 4529 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 4566 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 4587 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 4630 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 4655 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 4706 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 4731 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 4785 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 4841 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 4866 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 4920 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 4994 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 5038 instruction_puti(struct_processus *s_eta	Line 5036 instruction_puti(struct_processus *s_eta
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 5063 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 5091 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 5135 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 5162 instruction_puti(struct_processus *s_eta	Line 5160 instruction_puti(struct_processus *s_eta
else	else
{	{
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = NULL;
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante)
[((s_etat_processus).s_liste_variables_partagees)	.objet = s_objet_4;
.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 5183 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.24
changed lines
	Added in v.1.50