rpl/src/instructions_c5.c - diff

Return to instructions_c5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_c5.c between versions 1.22 and 1.75

version 1.22, 2011/06/21 15:26:30	version 1.75, 2025/04/15 10:17:52
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.0.prerelease.2	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 48 instruction_col_plus(struct_processus *s	Line 48 instruction_col_plus(struct_processus *s
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_argument_3;	struct_objet *s_objet_argument_3;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long l;	integer8 l;

void *tampon;	void *tampon;

Line 186 instruction_col_plus(struct_processus *s	Line 186 instruction_col_plus(struct_processus *s

if (((s_etat_processus).pointeur_variable_courante).objet == NULL)	if (((s_etat_processus).pointeur_variable_courante).objet == 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)
{	{
(*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;

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

liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
liberation(s_etat_processus, s_objet_argument_2);	liberation(s_etat_processus, s_objet_argument_2);
return;	return;
Line 217 instruction_col_plus(struct_processus *s	Line 203 instruction_col_plus(struct_processus *s

variable_partagee = d_vrai;	variable_partagee = d_vrai;
s_objet_argument_3 = ((s_etat_processus)	s_objet_argument_3 = ((s_etat_processus)
.s_liste_variables_partagees).table[((s_etat_processus)	.pointeur_variable_partagee_courante).objet;
.s_liste_variables_partagees).position_variable].objet;
}	}
else	else
{	{
Line 241 instruction_col_plus(struct_processus *s	Line 226 instruction_col_plus(struct_processus *s
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 263 instruction_col_plus(struct_processus *s	Line 248 instruction_col_plus(struct_processus *s
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 287 instruction_col_plus(struct_processus *s	Line 272 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).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)) != 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 334 instruction_col_plus(struct_processus *s	Line 320 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 380 instruction_col_plus(struct_processus *s	Line 367 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((struct_matrice )	.tableau[i] = malloc(((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes	(s_copie_argument_3).objet)).nombre_colonnes)
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 428 instruction_col_plus(struct_processus *s	Line 416 instruction_col_plus(struct_processus *s
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 448 instruction_col_plus(struct_processus *s	Line 436 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long) (((struct_matrice )	if ((position < 1) \|\| (position > (((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
{	{
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 482 instruction_col_plus(struct_processus *s	Line 470 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet)).tableau[i]	if (((((struct_matrice ) (*s_copie_argument_3).objet)).tableau[i]
= malloc((((((struct_matrice ) (*s_copie_argument_3)	= malloc((((size_t) (((struct_matrice )
.objet)).nombre_colonnes) + 1) * sizeof(integer8))) == NULL)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
	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 502 instruction_col_plus(struct_processus *s	Line 491 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((integer8 *) (((struct_matrice ) (s_copie_argument_3)	((integer8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((integer8 **)	.objet)).tableau)[i][j] = ((integer8 **)
Line 540 instruction_col_plus(struct_processus *s	Line 529 instruction_col_plus(struct_processus *s
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 561 instruction_col_plus(struct_processus *s	Line 550 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position >
(((struct_matrice ) (*s_copie_argument_3).objet))	(((struct_matrice ) (*s_copie_argument_3).objet))
.nombre_colonnes + 1)))	.nombre_colonnes + 1))
{	{
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 596 instruction_col_plus(struct_processus *s	Line 585 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
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 618 instruction_col_plus(struct_processus *s	Line 608 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((integer8 **)	.objet)).tableau)[i][j] = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1)	(((struct_matrice ) (*s_objet_argument_1)
.objet)).tableau)[i][0];	.objet)).tableau)[i][0];
l = 1;	l = 1;
Line 636 instruction_col_plus(struct_processus *s	Line 626 instruction_col_plus(struct_processus *s
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][(((struct_matrice )	.objet)).tableau)[i][(((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes] =	(*s_copie_argument_3).objet)).nombre_colonnes] =
((integer8 *) (((struct_matrice *)	(real8) ((integer8 *) (((struct_matrice *)
(*s_objet_argument_1).objet)).tableau)[i][0];	(*s_objet_argument_1).objet)).tableau)[i][0];
}	}

Line 655 instruction_col_plus(struct_processus *s	Line 645 instruction_col_plus(struct_processus *s
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 676 instruction_col_plus(struct_processus *s	Line 666 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position >
(((struct_matrice ) (*s_copie_argument_3).objet))	(((struct_matrice ) (*s_copie_argument_3).objet))
.nombre_colonnes + 1)))	.nombre_colonnes + 1))
{	{
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 711 instruction_col_plus(struct_processus *s	Line 701 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
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 733 instruction_col_plus(struct_processus *s	Line 724 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((real8 *) (((struct_matrice ) (s_copie_argument_3)	((real8 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][j] = ((real8 **)	.objet)).tableau)[i][j] = ((real8 **)
Line 773 instruction_col_plus(struct_processus *s	Line 764 instruction_col_plus(struct_processus *s
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 794 instruction_col_plus(struct_processus *s	Line 785 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
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 829 instruction_col_plus(struct_processus *s	Line 819 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 851 instruction_col_plus(struct_processus *s	Line 842 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
.partie_reelle = ((integer8 **)	.partie_reelle = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1)	(((struct_matrice ) (*s_objet_argument_1)
.objet)).tableau)[i][0];	.objet)).tableau)[i][0];
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
Line 877 instruction_col_plus(struct_processus *s	Line 868 instruction_col_plus(struct_processus *s
((complex16 *) (((struct_matrice ) (s_copie_argument_3)	((complex16 *) (((struct_matrice ) (s_copie_argument_3)
.objet)).tableau)[i][(((struct_matrice )	.objet)).tableau)[i][(((struct_matrice )
(*s_copie_argument_3).objet)).nombre_colonnes]	(*s_copie_argument_3).objet)).nombre_colonnes]
.partie_reelle = ((integer8 **)	.partie_reelle = (real8) ((integer8 **)
(((struct_matrice ) (*s_objet_argument_1).objet))	(((struct_matrice ) (*s_objet_argument_1).objet))
.tableau)[i][0];	.tableau)[i][0];
((complex16 *) (((struct_matrice ) (s_copie_argument_3)	((complex16 *) (((struct_matrice ) (s_copie_argument_3)
Line 901 instruction_col_plus(struct_processus *s	Line 892 instruction_col_plus(struct_processus *s
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 922 instruction_col_plus(struct_processus *s	Line 913 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
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 957 instruction_col_plus(struct_processus *s	Line 947 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 979 instruction_col_plus(struct_processus *s	Line 970 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
Line 1029 instruction_col_plus(struct_processus *s	Line 1020 instruction_col_plus(struct_processus *s
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 1050 instruction_col_plus(struct_processus *s	Line 1041 instruction_col_plus(struct_processus *s
return;	return;
}	}

if ((position < 1) \|\| (position > ((signed long)	if ((position < 1) \|\| (position > (((struct_matrice )
(((struct_matrice )	(*s_copie_argument_3).objet)).nombre_colonnes + 1))
(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
{	{
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 1085 instruction_col_plus(struct_processus *s	Line 1075 instruction_col_plus(struct_processus *s
.tableau[i];	.tableau[i];

if (((((struct_matrice ) (*s_copie_argument_3).objet))	if (((((struct_matrice ) (*s_copie_argument_3).objet))
.tableau[i] = malloc((((((struct_matrice )	.tableau[i] = malloc((((size_t) (((struct_matrice )
(s_copie_argument_3).objet)).nombre_colonnes) + 1)	(s_copie_argument_3).objet)).nombre_colonnes) + 1)
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 1107 instruction_col_plus(struct_processus *s	Line 1098 instruction_col_plus(struct_processus *s
for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)	for(l = j = 0; j < (((struct_matrice ) (*s_copie_argument_3)
.objet)).nombre_colonnes; j++)	.objet)).nombre_colonnes; j++)
{	{
if ((signed long) j == (position - 1))	if (j == (position - 1))
{	{
((complex16 *) (((struct_matrice *)	((complex16 *) (((struct_matrice *)
(*s_copie_argument_3).objet)).tableau)[i][j]	(*s_copie_argument_3).objet)).tableau)[i][j]
Line 1185 instruction_col_plus(struct_processus *s	Line 1176 instruction_col_plus(struct_processus *s
}	}
else	else
{	{
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante).objet =
[((s_etat_processus).s_liste_variables_partagees)	s_copie_argument_3;
.position_variable].objet = s_copie_argument_3;
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = 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 1232 instruction_col_moins(struct_processus *	Line 1222 instruction_col_moins(struct_processus *
struct_objet *s_objet_argument_2;	struct_objet *s_objet_argument_2;
struct_objet *s_objet_resultat;	struct_objet *s_objet_resultat;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
unsigned long k;	integer8 k;
unsigned long colonne;	integer8 colonne;

void *tampon;	void *tampon;

Line 1324 instruction_col_moins(struct_processus *	Line 1314 instruction_col_moins(struct_processus *

if (((s_etat_processus).pointeur_variable_courante).objet == NULL)	if (((s_etat_processus).pointeur_variable_courante).objet == 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)
{	{
(*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;

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

liberation(s_etat_processus, s_objet_argument_1);	liberation(s_etat_processus, s_objet_argument_1);
return;	return;
}	}

variable_partagee = d_vrai;	variable_partagee = d_vrai;
s_objet_argument_2 = ((s_etat_processus)	s_objet_argument_2 = ((s_etat_processus)
.s_liste_variables_partagees).table[((s_etat_processus)	.pointeur_variable_partagee_courante).objet;
.s_liste_variables_partagees).position_variable].objet;
}	}
else	else
{	{
Line 1376 instruction_col_moins(struct_processus *	Line 1351 instruction_col_moins(struct_processus *
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 1395 instruction_col_moins(struct_processus *	Line 1370 instruction_col_moins(struct_processus *
{	{
position = (((integer8 ) (*s_objet_argument_1).objet));	position = (((integer8 ) (*s_objet_argument_1).objet));

if ((position <= 0) \|\| (position > (signed long)	if ((position <= 0) \|\| (position > (((struct_matrice )
(((struct_matrice )
(*s_copie_argument_2).objet)).nombre_colonnes))	(*s_copie_argument_2).objet)).nombre_colonnes))
{	{
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 1428 instruction_col_moins(struct_processus *	Line 1402 instruction_col_moins(struct_processus *
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 1445 instruction_col_moins(struct_processus *	Line 1419 instruction_col_moins(struct_processus *
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 1471 instruction_col_moins(struct_processus *	Line 1445 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MIN;	(*s_objet_resultat).type = MIN;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
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 =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1500 instruction_col_moins(struct_processus *	Line 1475 instruction_col_moins(struct_processus *
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 1531 instruction_col_moins(struct_processus *	Line 1506 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
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))	.pointeur_variable_partagee_courante)
!= 0)	.mutex)) != 0)
{	{
(*s_etat_processus).erreur_systeme =	(*s_etat_processus).erreur_systeme =
d_es_processus;	d_es_processus;
Line 1580 instruction_col_moins(struct_processus *	Line 1555 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MRL;	(*s_objet_resultat).type = MRL;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).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 1609 instruction_col_moins(struct_processus *	Line 1585 instruction_col_moins(struct_processus *
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 1640 instruction_col_moins(struct_processus *	Line 1616 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
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 1689 instruction_col_moins(struct_processus *	Line 1665 instruction_col_moins(struct_processus *
(*s_objet_resultat).type = MCX;	(*s_objet_resultat).type = MCX;

if (((((struct_matrice ) (*s_objet_resultat).objet))	if (((((struct_matrice ) (*s_objet_resultat).objet))
.tableau = malloc((((struct_matrice )	.tableau = malloc(((size_t) (((struct_matrice )
(s_objet_resultat).objet)).nombre_lignes	(s_objet_resultat).objet)).nombre_lignes)
sizeof(complex16 *))) == NULL)	sizeof(complex16 *))) == 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 1720 instruction_col_moins(struct_processus *	Line 1696 instruction_col_moins(struct_processus *
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 1758 instruction_col_moins(struct_processus *	Line 1734 instruction_col_moins(struct_processus *
(*s_copie_argument_2).objet)).tableau)[i];	(*s_copie_argument_2).objet)).tableau)[i];

if ((((((struct_matrice ) (*s_copie_argument_2)	if ((((((struct_matrice ) (*s_copie_argument_2)
.objet)).tableau)[i] = malloc(	.objet)).tableau)[i] = malloc(((size_t)
((((struct_matrice ) (*s_copie_argument_2)	((((struct_matrice ) (*s_copie_argument_2)
.objet)).nombre_colonnes - 1) *	.objet)).nombre_colonnes) - 1) *
sizeof(complex16))) == NULL)	sizeof(complex16))) == 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 1856 instruction_col_moins(struct_processus *	Line 1832 instruction_col_moins(struct_processus *
}	}
else	else
{	{
((s_etat_processus).s_liste_variables_partagees).table	((s_etat_processus).pointeur_variable_partagee_courante).objet =
[((s_etat_processus).s_liste_variables_partagees)	s_copie_argument_2;
.position_variable].objet = s_copie_argument_2;
((s_etat_processus).pointeur_variable_courante).objet = NULL;	((s_etat_processus).pointeur_variable_courante).objet = 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;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.22
changed lines
	Added in v.1.75