rpl/src/instructions_r2.c - diff

Return to instructions_r2.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_r2.c between versions 1.39 and 1.60

version 1.39, 2012/09/29 17:53:02	version 1.60, 2015/02/19 11:01:26
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.10	RPL/2 (R) version 4.1.21
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2015 Dr. BERTRAND Joël

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

Line 350 instruction_return(struct_processus *s_e	Line 350 instruction_return(struct_processus *s_e
unsigned char *instruction_majuscule;	unsigned char *instruction_majuscule;
unsigned char *tampon;	unsigned char *tampon;

unsigned long registre_position_courante;	integer8 registre_position_courante;

struct_liste_chainee *tampon_expression;	struct_liste_chainee *tampon_expression;

Line 416 instruction_return(struct_processus *s_e	Line 416 instruction_return(struct_processus *s_e
(*s_etat_processus).instruction_courante) == d_faux)	(*s_etat_processus).instruction_courante) == d_faux)
{	{
(*s_etat_processus).erreur_systeme = d_es;	(*s_etat_processus).erreur_systeme = d_es;
instruction_majuscule = conversion_majuscule(	instruction_majuscule = conversion_majuscule(s_etat_processus,
(*s_etat_processus).instruction_courante);	(*s_etat_processus).instruction_courante);

if (instruction_majuscule == NULL)	if (instruction_majuscule == NULL)
Line 446 instruction_return(struct_processus *s_e	Line 446 instruction_return(struct_processus *s_e
analyse(s_etat_processus, NULL);	analyse(s_etat_processus, NULL);
}	}
else if ((strcmp(instruction_majuscule, "FOR") == 0) \|\|	else if ((strcmp(instruction_majuscule, "FOR") == 0) \|\|
	(strcmp(instruction_majuscule, "FORALL") == 0) \|\|
(strcmp(instruction_majuscule, "START") == 0))	(strcmp(instruction_majuscule, "START") == 0))
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);
Line 511 instruction_return(struct_processus *s_e	Line 512 instruction_return(struct_processus *s_e
* Libération des compteurs de boucle.	* Libération des compteurs de boucle.
*/	*/

presence_compteur = (((s_etat_processus)	presence_compteur = ((((s_etat_processus)
.l_base_pile_systeme).type_cloture == 'F')	.l_base_pile_systeme).type_cloture == 'F') \|\|
? d_vrai : d_faux;	(((s_etat_processus).l_base_pile_systeme)
	.type_cloture == 'A')) ? d_vrai : d_faux;

if ((((s_etat_processus).l_base_pile_systeme)	if ((((s_etat_processus).l_base_pile_systeme)
.type_cloture != 'S') &&	.type_cloture != 'S') &&
Line 547 instruction_return(struct_processus *s_e	Line 549 instruction_return(struct_processus *s_e

(*s_etat_processus).niveau_courant--;	(*s_etat_processus).niveau_courant--;

if (retrait_variable_par_niveau(	if (retrait_variables_par_niveau(
s_etat_processus) == d_erreur)	s_etat_processus) == d_erreur)
{	{
return;	return;
Line 695 instruction_return(struct_processus *s_e	Line 697 instruction_return(struct_processus *s_e
instruction_vers_niveau_superieur);	instruction_vers_niveau_superieur);
}	}
else if ((fonction == instruction_for) \|\|	else if ((fonction == instruction_for) \|\|
	(fonction == instruction_forall) \|\|
(fonction == instruction_start))	(fonction == instruction_start))
{	{
empilement_pile_systeme(s_etat_processus);	empilement_pile_systeme(s_etat_processus);
Line 756 instruction_return(struct_processus *s_e	Line 759 instruction_return(struct_processus *s_e
* Libération des compteurs de boucle.	* Libération des compteurs de boucle.
*/	*/

presence_compteur = (((s_etat_processus)	presence_compteur = ((((s_etat_processus)
.l_base_pile_systeme).type_cloture == 'F')	.l_base_pile_systeme).type_cloture == 'F') \|\|
? d_vrai : d_faux;	(((s_etat_processus).l_base_pile_systeme)
	.type_cloture == 'A')) ? d_vrai : d_faux;

if ((((s_etat_processus).l_base_pile_systeme)	if ((((s_etat_processus).l_base_pile_systeme)
.type_cloture != 'S') &&	.type_cloture != 'S') &&
Line 792 instruction_return(struct_processus *s_e	Line 796 instruction_return(struct_processus *s_e

(*s_etat_processus).niveau_courant--;	(*s_etat_processus).niveau_courant--;

if (retrait_variable_par_niveau(s_etat_processus)	if (retrait_variables_par_niveau(s_etat_processus)
== d_erreur)	== d_erreur)
{	{
return;	return;
Line 882 instruction_rdm(struct_processus *s_etat	Line 886 instruction_rdm(struct_processus *s_etat
logical1 drapeau_fin_objet_originel;	logical1 drapeau_fin_objet_originel;
logical1 variable_partagee;	logical1 variable_partagee;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long k;	integer8 k;
unsigned long l;	integer8 l;
unsigned long nombre_colonnes;	integer8 nombre_colonnes;
unsigned long nombre_dimensions;	integer8 nombre_dimensions;
unsigned long nombre_lignes;	integer8 nombre_lignes;

(*s_etat_processus).erreur_execution = d_ex;	(*s_etat_processus).erreur_execution = d_ex;

Line 976 instruction_rdm(struct_processus *s_etat	Line 980 instruction_rdm(struct_processus *s_etat

if (s_objet_initial == NULL)	if (s_objet_initial == 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)	.pointeur_variable_courante).origine) == NULL)
== 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 1019 instruction_rdm(struct_processus *s_etat	Line 1008 instruction_rdm(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 1051 instruction_rdm(struct_processus *s_etat	Line 1040 instruction_rdm(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 1081 instruction_rdm(struct_processus *s_etat	Line 1070 instruction_rdm(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 1104 instruction_rdm(struct_processus *s_etat	Line 1093 instruction_rdm(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 1141 instruction_rdm(struct_processus *s_etat	Line 1130 instruction_rdm(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 1170 instruction_rdm(struct_processus *s_etat	Line 1159 instruction_rdm(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 1186 instruction_rdm(struct_processus *s_etat	Line 1175 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(integer8))) == NULL)	= malloc(((size_t) nombre_lignes) * sizeof(integer8)))
	== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1228 instruction_rdm(struct_processus *s_etat	Line 1218 instruction_rdm(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 1244 instruction_rdm(struct_processus *s_etat	Line 1234 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(real8))) == NULL)	= malloc(((size_t) nombre_lignes) * 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1287 instruction_rdm(struct_processus *s_etat	Line 1277 instruction_rdm(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 1303 instruction_rdm(struct_processus *s_etat	Line 1293 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(struct_complexe16)))	= malloc(((size_t) nombre_lignes) *
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1356 instruction_rdm(struct_processus *s_etat	Line 1346 instruction_rdm(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 1372 instruction_rdm(struct_processus *s_etat	Line 1362 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(integer8))) == NULL)	= malloc(((size_t) nombre_lignes) * sizeof(integer8)))
	== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1427 instruction_rdm(struct_processus *s_etat	Line 1418 instruction_rdm(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 1443 instruction_rdm(struct_processus *s_etat	Line 1434 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(real8))) == NULL)	= malloc(((size_t) nombre_lignes) * 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1499 instruction_rdm(struct_processus *s_etat	Line 1490 instruction_rdm(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 1515 instruction_rdm(struct_processus *s_etat	Line 1506 instruction_rdm(struct_processus *s_etat
nombre_lignes;	nombre_lignes;

if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_vecteur ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(struct_complexe16)))	= malloc(((size_t) nombre_lignes) *
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1576 instruction_rdm(struct_processus *s_etat	Line 1567 instruction_rdm(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 1614 instruction_rdm(struct_processus *s_etat	Line 1605 instruction_rdm(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 1632 instruction_rdm(struct_processus *s_etat	Line 1623 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(integer8 *)))	= malloc(((size_t) nombre_lignes) * sizeof(integer8 *)))
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1653 instruction_rdm(struct_processus *s_etat	Line 1644 instruction_rdm(struct_processus *s_etat
{	{
if ((((integer8 *) (((struct_matrice *)	if ((((integer8 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes * sizeof(integer8))) == NULL)	malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
	== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1699 instruction_rdm(struct_processus *s_etat	Line 1692 instruction_rdm(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 1717 instruction_rdm(struct_processus *s_etat	Line 1710 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(real8 *)))	= malloc(((size_t) nombre_lignes) * 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1738 instruction_rdm(struct_processus *s_etat	Line 1731 instruction_rdm(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes * sizeof(real8))) == NULL)	malloc(((size_t) nombre_colonnes) * 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1784 instruction_rdm(struct_processus *s_etat	Line 1779 instruction_rdm(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 1802 instruction_rdm(struct_processus *s_etat	Line 1797 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(struct_complexe16 *)))	= malloc(((size_t) nombre_lignes) *
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1823 instruction_rdm(struct_processus *s_etat	Line 1818 instruction_rdm(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes *	malloc(((size_t) 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)) != 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 1881 instruction_rdm(struct_processus *s_etat	Line 1877 instruction_rdm(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 1899 instruction_rdm(struct_processus *s_etat	Line 1895 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(integer8 *)))	= malloc(((size_t) nombre_lignes) * sizeof(integer8 *)))
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1922 instruction_rdm(struct_processus *s_etat	Line 1918 instruction_rdm(struct_processus *s_etat
{	{
if ((((integer8 *) (((struct_matrice *)	if ((((integer8 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes *	malloc(((size_t) nombre_colonnes) *
sizeof(integer8))) == NULL)	sizeof(integer8))) == 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 1980 instruction_rdm(struct_processus *s_etat	Line 1977 instruction_rdm(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 1998 instruction_rdm(struct_processus *s_etat	Line 1995 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(real8 *)))	= malloc(((size_t) nombre_lignes) * 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2021 instruction_rdm(struct_processus *s_etat	Line 2018 instruction_rdm(struct_processus *s_etat
{	{
if ((((real8 *) (((struct_matrice *)	if ((((real8 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes *	malloc(((size_t) 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)) != 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 2079 instruction_rdm(struct_processus *s_etat	Line 2077 instruction_rdm(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 2097 instruction_rdm(struct_processus *s_etat	Line 2095 instruction_rdm(struct_processus *s_etat
.nombre_colonnes = nombre_colonnes;	.nombre_colonnes = nombre_colonnes;

if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau	if (((((struct_matrice ) (*s_objet_redimensionne).objet)).tableau
= malloc(nombre_lignes * sizeof(struct_complexe16 *)))	= malloc(((size_t) nombre_lignes)
== 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 = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return;	return;
Line 2120 instruction_rdm(struct_processus *s_etat	Line 2118 instruction_rdm(struct_processus *s_etat
{	{
if ((((struct_complexe16 *) (((struct_matrice *)	if ((((struct_complexe16 *) (((struct_matrice *)
(*s_objet_redimensionne).objet)).tableau)[i] =	(*s_objet_redimensionne).objet)).tableau)[i] =
malloc(nombre_colonnes *	malloc(((size_t) 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)) != 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 2184 instruction_rdm(struct_processus *s_etat	Line 2183 instruction_rdm(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 2219 instruction_rdm(struct_processus *s_etat	Line 2218 instruction_rdm(struct_processus *s_etat
{	{
if (variable_partagee == d_vrai)	if (variable_partagee == d_vrai)
{	{
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante).objet =
[((s_etat_processus).s_liste_variables_partagees)	s_objet_redimensionne;
.position_variable].objet = s_objet_redimensionne;

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;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.39
changed lines
	Added in v.1.60