rpl/src/gestion_objets.c - diff

Return to gestion_objets.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_objets.c between versions 1.94 and 1.137

version 1.94, 2013/02/26 19:56:13	version 1.137, 2017/08/03 17:17:43
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.12	RPL/2 (R) version 4.1.28
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

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

Line 245 allocation_maillon(struct_processus *s_e	Line 245 allocation_maillon(struct_processus *s_e
{	{
if ((s_maillon = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((s_maillon = malloc(sizeof(struct_liste_chainee))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}
}	}
Line 318 allocation(struct_processus *s_etat_proc	Line 319 allocation(struct_processus *s_etat_proc

if ((s_objet = malloc(sizeof(struct_objet))) == NULL)	if ((s_objet = malloc(sizeof(struct_objet))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}

Line 341 allocation(struct_processus *s_etat_proc	Line 343 allocation(struct_processus *s_etat_proc
}	}

(*s_objet).type = type;	(*s_objet).type = type;
	(*s_objet).extension_type = 0;
	(*s_objet).descripteur_bibliotheque = NULL;

switch(type)	switch(type)
{	{
Line 353 allocation(struct_processus *s_etat_proc	Line 357 allocation(struct_processus *s_etat_proc
}	}
else	else
{	{
if (((*s_objet).objet = malloc(sizeof(unsigned long))) == NULL)	if (((*s_objet).objet = malloc(sizeof(integer8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 380 allocation(struct_processus *s_etat_proc	Line 386 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(logical8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(logical8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 406 allocation(struct_processus *s_etat_proc	Line 414 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_complexe16)))	if (((*s_objet).objet = malloc(sizeof(struct_complexe16)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 418 allocation(struct_processus *s_etat_proc	Line 428 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_fichier))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_fichier))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 425 allocation(struct_processus *s_etat_proc	Line 436 allocation(struct_processus *s_etat_proc
break;	break;
}	}

	case EXT :
	{
	// Aucune allocation
	break;
	}

case FCT :	case FCT :
{	{
if ((*s_etat_processus).pointeur_fct > 0)	if ((*s_etat_processus).pointeur_fct > 0)
Line 437 allocation(struct_processus *s_etat_proc	Line 454 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_fonction)))	if (((*s_objet).objet = malloc(sizeof(struct_fonction)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 460 allocation(struct_processus *s_etat_proc	Line 479 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(integer8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(integer8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 485 allocation(struct_processus *s_etat_proc	Line 506 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 508 allocation(struct_processus *s_etat_proc	Line 531 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 531 allocation(struct_processus *s_etat_proc	Line 556 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 547 allocation(struct_processus *s_etat_proc	Line 574 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_mutex))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_mutex))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 566 allocation(struct_processus *s_etat_proc	Line 594 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_nom))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_nom))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 585 allocation(struct_processus *s_etat_proc	Line 615 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_processus_fils)))	if (((*s_objet).objet = malloc(sizeof(struct_processus_fils)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 603 allocation(struct_processus *s_etat_proc	Line 634 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(real8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(real8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 621 allocation(struct_processus *s_etat_proc	Line 654 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_socket))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_socket))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 633 allocation(struct_processus *s_etat_proc	Line 667 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_bibliotheque)))	if (((*s_objet).objet = malloc(sizeof(struct_bibliotheque)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 644 allocation(struct_processus *s_etat_proc	Line 679 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_semaphore))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_semaphore))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 656 allocation(struct_processus *s_etat_proc	Line 692 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_connecteur_sql)))	if (((*s_objet).objet = malloc(sizeof(struct_connecteur_sql)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 674 allocation(struct_processus *s_etat_proc	Line 711 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_tableau))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_tableau))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 695 allocation(struct_processus *s_etat_proc	Line 734 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 717 allocation(struct_processus *s_etat_proc	Line 758 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 739 allocation(struct_processus *s_etat_proc	Line 782 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 783 liberation(struct_processus *s_etat_proc	Line 828 liberation(struct_processus *s_etat_proc
struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_suivant;	struct_liste_chainee *l_element_suivant;

unsigned long i;	integer8 i;
	integer8 (__type_drop)(struct_processus ,
	void **);

if (s_objet == NULL)	if (s_objet == NULL)
{	{
Line 822 liberation(struct_processus *s_etat_proc	Line 869 liberation(struct_processus *s_etat_proc
}	}
else	else
{	{
free((unsigned long ) ((s_objet).objet));	free((*s_objet).objet);
}	}

break;	break;
Line 889 liberation(struct_processus *s_etat_proc	Line 936 liberation(struct_processus *s_etat_proc
return;	return;
}	}

free((unsigned char ) ((s_objet).objet));	free((unsigned char ) (s_objet).objet);
break;	break;
}	}

Line 1357 liberation(struct_processus *s_etat_proc	Line 1404 liberation(struct_processus *s_etat_proc
.nombre_occurrences <= 1,	.nombre_occurrences <= 1,
pthread_mutex_unlock(&((*s_objet).mutex)),	pthread_mutex_unlock(&((*s_objet).mutex)),
printf("(((((struct_tableau ) (s_objet).objet))"	printf("(((((struct_tableau ) (s_objet).objet))"
".element[%lu])).nombre_occurrences=%ld\n", i,	".element[%lld])).nombre_occurrences=%ld\n", i,
(((((struct_tableau ) (s_objet).objet))	(((((struct_tableau ) (s_objet).objet))
.elements[i])).nombre_occurrences));	.elements[i])).nombre_occurrences));
liberation(s_etat_processus, (((struct_tableau )	liberation(s_etat_processus, (((struct_tableau )
Line 1456 liberation(struct_processus *s_etat_proc	Line 1503 liberation(struct_processus *s_etat_proc
break;	break;
}	}

	case EXT:
	{
	if (decrementation_atomique(s_objet) > 0)
	{
	return;
	}

	// Appel de la fonction de liberation associée à l'objet
	// externe. Le descripteur de bibliothèque est directement
	// associé à la structure objet.

	l_element_courant = (*s_etat_processus).s_bibliotheques;

	while(l_element_courant != NULL)
	{
	if ((((struct_bibliotheque ) (*l_element_courant).donnee))
	.descripteur == (*s_objet).descripteur_bibliotheque)
	{
	if ((__type_drop = dlsym((*s_objet)
	.descripteur_bibliotheque, "__type_drop")) == NULL)
	{
	// La fonction de libération n'existe pas dans la
	// bibliothèque.

	(*s_etat_processus).erreur_execution =
	d_ex_type_externe_drop;
	}
	else
	{
	if (__type_drop(s_etat_processus, (void **) &s_objet)
	== 0)
	{
	(*s_etat_processus).erreur_execution =
	d_ex_type_externe_drop;
	}
	}

	break;
	}

	l_element_courant = (*l_element_courant).suivant;
	}

	if (l_element_courant == NULL)
	{
	(*s_etat_processus).erreur_execution = d_ex_type_externe_drop;
	}

	break;
	}

default :	default :
{	{
if (pthread_mutex_unlock(&((*s_objet).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_objet).mutex)) != 0)
Line 1552 copie_objet(struct_processus *s_etat_pro	Line 1650 copie_objet(struct_processus *s_etat_pro
struct_objet *s_nouvel_objet;	struct_objet *s_nouvel_objet;
struct_objet *s_objet_tampon;	struct_objet *s_objet_tampon;

unsigned long i;	integer8 i;
unsigned long j;	integer8 j;
	integer8 (__type_dup)(struct_processus , void **);

if (pthread_mutex_lock(&((*s_objet).mutex)) != 0)	if (pthread_mutex_lock(&((*s_objet).mutex)) != 0)
{	{
Line 1604 copie_objet(struct_processus *s_etat_pro	Line 1703 copie_objet(struct_processus *s_etat_pro
return(NULL);	return(NULL);
}	}

(((unsigned long ) ((*s_nouvel_objet).objet))) =	(((integer8 ) ((*s_nouvel_objet).objet))) =
(((unsigned long ) ((*s_objet).objet)));	(((integer8 ) ((*s_objet).objet)));
break;	break;
}	}

Line 1670 copie_objet(struct_processus *s_etat_pro	Line 1769 copie_objet(struct_processus *s_etat_pro
(*l_element_courant_lecture).suivant;	(*l_element_courant_lecture).suivant;
}	}

(s_nouvel_objet).objet = (void ) ((struct_liste_chainee *)	(s_nouvel_objet).objet = ((struct_liste_chainee )
l_element_base);	l_element_base);
}	}
else // type == 'P'	else // type == 'P'
Line 1722 copie_objet(struct_processus *s_etat_pro	Line 1821 copie_objet(struct_processus *s_etat_pro
return(NULL);	return(NULL);
}	}

(s_nouvel_objet).objet = (void ) ((unsigned char *)	(s_nouvel_objet).objet = ((unsigned char )
malloc((strlen((unsigned char ) ((s_objet).objet)) + 1)	malloc((strlen((unsigned char ) ((s_objet).objet)) + 1)
* sizeof(unsigned char)));	* sizeof(unsigned char)));

Line 1816 copie_objet(struct_processus *s_etat_pro	Line 1915 copie_objet(struct_processus *s_etat_pro
(*l_element_courant_lecture).suivant;	(*l_element_courant_lecture).suivant;
}	}

(s_nouvel_objet).objet = (void ) ((struct_liste_chainee *)	(s_nouvel_objet).objet = ((struct_liste_chainee )
l_element_base);	l_element_base);
}	}
else // type == 'P'	else // type == 'P'
Line 2023 copie_objet(struct_processus *s_etat_pro	Line 2122 copie_objet(struct_processus *s_etat_pro
(*l_element_courant_lecture).suivant;	(*l_element_courant_lecture).suivant;
}	}

(s_nouvel_objet).objet = (void ) ((struct_liste_chainee *)	(s_nouvel_objet).objet = ((struct_liste_chainee )
l_element_base);	l_element_base);
}	}
else	else
Line 2058 copie_objet(struct_processus *s_etat_pro	Line 2157 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =	(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((integer8 ) malloc(	malloc(((size_t) ((((struct_matrice )
((((struct_matrice ) ((*s_objet).objet))).nombre_lignes)	((s_objet).objet))).nombre_lignes)) sizeof(integer8 *));
* sizeof(integer8 *)));

if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau
== NULL)	== NULL)
Line 2082 copie_objet(struct_processus *s_etat_pro	Line 2180 copie_objet(struct_processus *s_etat_pro
{	{
if ((((integer8 *) ((((struct_matrice *)	if ((((integer8 *) ((((struct_matrice *)
((*s_nouvel_objet).objet))).tableau))[i] =	((*s_nouvel_objet).objet))).tableau))[i] =
(void ) ((integer8 ) malloc(	((integer8 *) malloc(((size_t)
((((struct_matrice ) ((*s_objet).objet)))	((((struct_matrice ) ((*s_objet).objet)))
.nombre_colonnes) * sizeof(integer8)))) == NULL)	.nombre_colonnes)) * sizeof(integer8)))) == NULL)
{	{
for(j = 0; j < i; j++)	for(j = 0; j < i; j++)
{	{
Line 2125 copie_objet(struct_processus *s_etat_pro	Line 2223 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =	(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((struct_complexe16 ) malloc(	malloc(((size_t) ((((struct_matrice )
((((struct_matrice ) ((*s_objet).objet))).nombre_lignes)	((*s_objet).objet))).nombre_lignes))
* sizeof(struct_complexe16 *)));	* sizeof(struct_complexe16 *));

if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau
== NULL)	== NULL)
Line 2149 copie_objet(struct_processus *s_etat_pro	Line 2247 copie_objet(struct_processus *s_etat_pro
{	{
if ((((struct_complexe16 *) ((((struct_matrice *)	if ((((struct_complexe16 *) ((((struct_matrice *)
((*s_nouvel_objet).objet))).tableau))[i] =	((*s_nouvel_objet).objet))).tableau))[i] =
(void ) ((struct_complexe16 ) malloc(	((struct_complexe16 *) malloc(((size_t)
((((struct_matrice ) ((*s_objet).objet)))	((((struct_matrice ) ((*s_objet).objet)))
.nombre_colonnes) * sizeof(struct_complexe16))))	.nombre_colonnes)) * sizeof(struct_complexe16))))
== NULL)	== NULL)
{	{
for(j = 0; j < i; j++)	for(j = 0; j < i; j++)
Line 2192 copie_objet(struct_processus *s_etat_pro	Line 2290 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =	(((struct_matrice ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((real8 ) malloc(	malloc(((size_t) ((((struct_matrice )
((((struct_matrice ) ((*s_objet).objet))).nombre_lignes)	((s_objet).objet))).nombre_lignes)) sizeof(real8 *));
* sizeof(real8 *)));

if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_matrice ) ((*s_nouvel_objet).objet))).tableau
== NULL)	== NULL)
Line 2216 copie_objet(struct_processus *s_etat_pro	Line 2313 copie_objet(struct_processus *s_etat_pro
{	{
if ((((real8 *) ((((struct_matrice *)	if ((((real8 *) ((((struct_matrice *)
((*s_nouvel_objet).objet))).tableau))[i] =	((*s_nouvel_objet).objet))).tableau))[i] =
(void ) ((real8 ) malloc(	((real8 *) malloc(((size_t)
((((struct_matrice ) ((*s_objet).objet)))	((((struct_matrice ) ((*s_objet).objet)))
.nombre_colonnes) * sizeof(real8)))) == NULL)	.nombre_colonnes)) * sizeof(real8)))) == NULL)
{	{
for(j = 0; j < i; j++)	for(j = 0; j < i; j++)
{	{
Line 2399 copie_objet(struct_processus *s_etat_pro	Line 2496 copie_objet(struct_processus *s_etat_pro
(((struct_socket ) ((*s_objet).objet))).pid;	(((struct_socket ) ((*s_objet).objet))).pid;
(((struct_socket ) ((*s_nouvel_objet).objet))).tid =	(((struct_socket ) ((*s_nouvel_objet).objet))).tid =
(((struct_socket ) ((*s_objet).objet))).tid;	(((struct_socket ) ((*s_objet).objet))).tid;
	(((struct_socket ) ((*s_nouvel_objet).objet))).options =
	(((struct_socket ) ((*s_objet).objet))).options;
	(((struct_socket ) ((*s_nouvel_objet).objet))).priorite =
	(((struct_socket ) ((*s_objet).objet))).priorite;
	(((struct_socket ) ((*s_nouvel_objet).objet))).buffer_reception =
	(((struct_socket ) ((*s_objet).objet))).buffer_reception;
	(((struct_socket ) ((*s_nouvel_objet).objet))).buffer_emission =
	(((struct_socket ) ((*s_objet).objet))).buffer_emission;
	(((struct_socket ) ((*s_nouvel_objet).objet))).timeout_reception =
	(((struct_socket ) ((*s_objet).objet))).timeout_reception;
	(((struct_socket ) ((*s_nouvel_objet).objet))).timeout_emission =
	(((struct_socket ) ((*s_objet).objet))).timeout_emission;

if (((((struct_socket ) ((*s_nouvel_objet).objet))).format =	if (((((struct_socket ) ((*s_nouvel_objet).objet))).format =
copie_objet(s_etat_processus, (((struct_socket )	copie_objet(s_etat_processus, (((struct_socket )
Line 2588 copie_objet(struct_processus *s_etat_pro	Line 2697 copie_objet(struct_processus *s_etat_pro
(*s_objet).objet)).nombre_elements;	(*s_objet).objet)).nombre_elements;

if (((((struct_tableau ) (*s_nouvel_objet).objet)).elements =	if (((((struct_tableau ) (*s_nouvel_objet).objet)).elements =
malloc((((struct_tableau ) (*s_objet).objet))	malloc(((size_t) (((struct_tableau )
.nombre_elements * sizeof(struct_objet *))) == NULL)	(*s_objet).objet)).nombre_elements)
	* sizeof(struct_objet *))) == NULL)
{	{
return(NULL);	return(NULL);
}	}
Line 2649 copie_objet(struct_processus *s_etat_pro	Line 2759 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =	(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((integer8 ) malloc(	((integer8 *) malloc(((size_t)
((((struct_vecteur ) ((*s_objet).objet))).taille)	((((struct_vecteur ) ((*s_objet).objet))).taille))
* sizeof(integer8)));	* sizeof(integer8)));

if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau
Line 2692 copie_objet(struct_processus *s_etat_pro	Line 2802 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =	(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((struct_complexe16 ) malloc(	((struct_complexe16 *) malloc(((size_t)
((((struct_vecteur ) ((*s_objet).objet))).taille)	((((struct_vecteur ) ((*s_objet).objet))).taille))
* sizeof(struct_complexe16)));	* sizeof(struct_complexe16)));

if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau
Line 2735 copie_objet(struct_processus *s_etat_pro	Line 2845 copie_objet(struct_processus *s_etat_pro
}	}

(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =	(((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau =
(void ) ((real8 ) malloc(	((real8 *) malloc(((size_t)
((((struct_vecteur ) ((*s_objet).objet))).taille)	((((struct_vecteur ) ((*s_objet).objet))).taille))
* sizeof(real8)));	* sizeof(real8)));

if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau	if ((((struct_vecteur ) ((*s_nouvel_objet).objet))).tableau
Line 2764 copie_objet(struct_processus *s_etat_pro	Line 2874 copie_objet(struct_processus *s_etat_pro
break;	break;
}	}

	case EXT:
	{
	if (type != 'O')
	{
	incrementation_atomique(s_objet);
	return(s_objet);
	}

	// Appel de la fonction de duplication associée à l'objet
	// externe. Le descripteur de bibliothèque est directement
	// associé à la structure objet.

	l_element_courant = (*s_etat_processus).s_bibliotheques;

	while(l_element_courant != NULL)
	{
	if ((((struct_bibliotheque ) (*l_element_courant).donnee))
	.descripteur == (*s_objet).descripteur_bibliotheque)
	{
	if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque,
	"__type_dup")) == NULL)
	{
	// La fonction de duplication n'existe pas dans la
	// bibliothèque.

	(*s_etat_processus).erreur_execution =
	d_ex_type_externe_dup;
	return(NULL);
	}

	s_nouvel_objet = s_objet;

	if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet)
	== 0)
	{
	return(NULL);
	}

	break;
	}

	l_element_courant = (*l_element_courant).suivant;
	}

	if (l_element_courant == NULL)
	{
	(*s_etat_processus).erreur_execution = d_ex_type_externe_dup;
	return(NULL);
	}

	break;
	}

default :	default :
{	{
return(NULL);	return(NULL);
Line 2799 copie_etat_processus(struct_processus *s	Line 2962 copie_etat_processus(struct_processus *s

struct_processus *s_nouvel_etat_processus;	struct_processus *s_nouvel_etat_processus;

unsigned long i;	integer8 i;

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

if ((s_nouvel_etat_processus = malloc(sizeof(struct_processus))) == NULL)	if ((s_nouvel_etat_processus = sys_malloc(sizeof(struct_processus)))
	== NULL)
{	{
	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return(NULL);
	}

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

(s_nouvel_etat_processus) = (s_etat_processus);	(s_nouvel_etat_processus) = (s_etat_processus);

// On réinitialise l'allocateur.	// On réinitialise les allocateurs.

	pthread_mutexattr_init(&attributs_mutex);
	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation_buffer),
	&attributs_mutex);
	pthread_mutexattr_destroy(&attributs_mutex);

	pthread_mutexattr_init(&attributs_mutex);
	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation),
	&attributs_mutex);
	pthread_mutexattr_destroy(&attributs_mutex);

initialisation_allocateur(s_nouvel_etat_processus);	initialisation_allocateur(s_nouvel_etat_processus);
	initialisation_allocateur_buffer(s_nouvel_etat_processus);

/*	/*
* (*s_etat_processus).definition_chainee,	* (*s_etat_processus).definition_chainee,
Line 2827 copie_etat_processus(struct_processus *s	Line 3011 copie_etat_processus(struct_processus *s
* n'ont aucune raison de changer.	* n'ont aucune raison de changer.
*/	*/

pthread_mutexattr_init(&attributs_mutex);
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
(*s_nouvel_etat_processus).sections_critiques = 0;	(*s_nouvel_etat_processus).sections_critiques = 0;
	(*s_nouvel_etat_processus).initialisation_scheduler = d_faux;

// Les sémaphores sont initialisés dans le nouveau thread. Il	// Les sémaphores sont initialisés dans le nouveau thread. Il
// s'agit d'une limitation de l'implantation de l'émulation	// s'agit d'une limitation de l'implantation de l'émulation
Line 2896 copie_etat_processus(struct_processus *s	Line 3079 copie_etat_processus(struct_processus *s

// Copie de la localisation	// Copie de la localisation

if (((*s_nouvel_etat_processus).localisation = malloc((strlen(	if (((*s_nouvel_etat_processus).localisation = rpl_malloc(
(s_etat_processus).localisation) + 1) sizeof(unsigned char)))	s_nouvel_etat_processus, (strlen((*s_etat_processus).localisation)
== NULL)	+ 1) * sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
Line 2912 copie_etat_processus(struct_processus *s	Line 3095 copie_etat_processus(struct_processus *s
if (((*s_nouvel_etat_processus).indep = copie_objet(s_etat_processus,	if (((*s_nouvel_etat_processus).indep = copie_objet(s_etat_processus,
(*s_etat_processus).indep, 'P')) == NULL)	(*s_etat_processus).indep, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 2932 copie_etat_processus(struct_processus *s	Line 3116 copie_etat_processus(struct_processus *s
if (((*s_nouvel_etat_processus).depend = copie_objet(s_etat_processus,	if (((*s_nouvel_etat_processus).depend = copie_objet(s_etat_processus,
(*s_etat_processus).depend, 'P')) == NULL)	(*s_etat_processus).depend, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 2953 copie_etat_processus(struct_processus *s	Line 3138 copie_etat_processus(struct_processus *s
copie_objet(s_etat_processus, (*s_etat_processus)	copie_objet(s_etat_processus, (*s_etat_processus)
.parametres_courbes_de_niveau, 'P')) == NULL)	.parametres_courbes_de_niveau, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 2973 copie_etat_processus(struct_processus *s	Line 3159 copie_etat_processus(struct_processus *s
if (((*s_etat_processus).instruction_courante != NULL) &&	if (((*s_etat_processus).instruction_courante != NULL) &&
(*s_etat_processus).evaluation_expression_compilee == 'N')	(*s_etat_processus).evaluation_expression_compilee == 'N')
{	{
if (((*s_nouvel_etat_processus).instruction_courante = malloc((strlen(	if (((*s_nouvel_etat_processus).instruction_courante = rpl_malloc(
	s_nouvel_etat_processus, (strlen(
(s_etat_processus).instruction_courante) + 1)	(s_etat_processus).instruction_courante) + 1)
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 2997 copie_etat_processus(struct_processus *s	Line 3185 copie_etat_processus(struct_processus *s

if ((*s_etat_processus).label_x != NULL)	if ((*s_etat_processus).label_x != NULL)
{	{
if (((*s_nouvel_etat_processus).label_x = malloc((strlen(	if (((*s_nouvel_etat_processus).label_x = rpl_malloc(
	s_nouvel_etat_processus, (strlen(
(s_etat_processus).label_x) + 1)	(s_etat_processus).label_x) + 1)
sizeof(unsigned char))) == NULL)	sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3021 copie_etat_processus(struct_processus *s	Line 3211 copie_etat_processus(struct_processus *s

if ((*s_etat_processus).label_y != NULL)	if ((*s_etat_processus).label_y != NULL)
{	{
if (((*s_nouvel_etat_processus).label_y = malloc((strlen(	if (((*s_nouvel_etat_processus).label_y = rpl_malloc(
(s_etat_processus).label_y) + 1)	s_nouvel_etat_processus, (strlen((*s_etat_processus).label_y)
sizeof(unsigned char))) == NULL)	+ 1) * sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3045 copie_etat_processus(struct_processus *s	Line 3236 copie_etat_processus(struct_processus *s

if ((*s_etat_processus).label_z != NULL)	if ((*s_etat_processus).label_z != NULL)
{	{
if (((*s_nouvel_etat_processus).label_z = malloc((strlen(	if (((*s_nouvel_etat_processus).label_z = rpl_malloc(
(s_etat_processus).label_z) + 1)	s_nouvel_etat_processus, (strlen((*s_etat_processus).label_z)
sizeof(unsigned char))) == NULL)	+ 1) * sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3069 copie_etat_processus(struct_processus *s	Line 3261 copie_etat_processus(struct_processus *s

if ((*s_etat_processus).titre != NULL)	if ((*s_etat_processus).titre != NULL)
{	{
if (((*s_nouvel_etat_processus).titre = malloc((strlen(	if (((*s_nouvel_etat_processus).titre = rpl_malloc(
(s_etat_processus).titre) + 1)	s_nouvel_etat_processus, (strlen((*s_etat_processus).titre) + 1)
sizeof(unsigned char))) == NULL)	* sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3093 copie_etat_processus(struct_processus *s	Line 3286 copie_etat_processus(struct_processus *s

if ((*s_etat_processus).legende != NULL)	if ((*s_etat_processus).legende != NULL)
{	{
if (((*s_nouvel_etat_processus).legende = malloc((strlen(	if (((*s_nouvel_etat_processus).legende = rpl_malloc(
(s_etat_processus).legende) + 1)	s_nouvel_etat_processus, (strlen((*s_etat_processus).legende)
sizeof(unsigned char))) == NULL)	+ 1) * sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3142 copie_etat_processus(struct_processus *s	Line 3336 copie_etat_processus(struct_processus *s

while(l_element_lecture != NULL)	while(l_element_lecture != NULL)
{	{
if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
	sizeof(struct_liste_chainee))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3157 copie_etat_processus(struct_processus *s	Line 3353 copie_etat_processus(struct_processus *s
if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,	if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
(*l_element_lecture).donnee, 'P')) == NULL)	(*l_element_lecture).donnee, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3193 copie_etat_processus(struct_processus *s	Line 3390 copie_etat_processus(struct_processus *s

if ((*s_nouvel_etat_processus).erreur_systeme != d_es)	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3215 copie_etat_processus(struct_processus *s	Line 3413 copie_etat_processus(struct_processus *s

if ((*s_nouvel_etat_processus).erreur_systeme != d_es)	if ((*s_nouvel_etat_processus).erreur_systeme != d_es)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus).mutex_pile_processus))
	!= 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3247 copie_etat_processus(struct_processus *s	Line 3446 copie_etat_processus(struct_processus *s

while(l_element_lecture != NULL)	while(l_element_lecture != NULL)
{	{
if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
	sizeof(struct_liste_chainee))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3262 copie_etat_processus(struct_processus *s	Line 3463 copie_etat_processus(struct_processus *s
if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,	if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
(*l_element_lecture).donnee, 'P')) == NULL)	(*l_element_lecture).donnee, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3293 copie_etat_processus(struct_processus *s	Line 3495 copie_etat_processus(struct_processus *s

while(l_element_lecture != NULL)	while(l_element_lecture != NULL)
{	{
if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
	sizeof(struct_liste_chainee))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3308 copie_etat_processus(struct_processus *s	Line 3512 copie_etat_processus(struct_processus *s
if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,	if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
(*l_element_lecture).donnee, 'P')) == NULL)	(*l_element_lecture).donnee, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3344 copie_etat_processus(struct_processus *s	Line 3549 copie_etat_processus(struct_processus *s

while(l_element_lecture != NULL)	while(l_element_lecture != NULL)
{	{
if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
	sizeof(struct_liste_chainee))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3359 copie_etat_processus(struct_processus *s	Line 3566 copie_etat_processus(struct_processus *s
if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,	if (((*l_element_suivant).donnee = copie_objet(s_etat_processus,
(*l_element_lecture).donnee, 'P')) == NULL)	(*l_element_lecture).donnee, 'P')) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3390 copie_etat_processus(struct_processus *s	Line 3598 copie_etat_processus(struct_processus *s

while(l_element_lecture != NULL)	while(l_element_lecture != NULL)
{	{
if ((l_element_suivant = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((l_element_suivant = rpl_malloc(s_nouvel_etat_processus,
	sizeof(struct_liste_chainee))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3402 copie_etat_processus(struct_processus *s	Line 3612 copie_etat_processus(struct_processus *s
return(NULL);	return(NULL);
}	}

if (((*l_element_suivant).donnee = malloc(sizeof(struct_bibliotheque)))	if (((*l_element_suivant).donnee = rpl_malloc(s_nouvel_etat_processus,
== NULL)	sizeof(struct_bibliotheque))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
Line 3418 copie_etat_processus(struct_processus *s	Line 3628 copie_etat_processus(struct_processus *s
= (((struct_bibliotheque ) (*l_element_lecture).donnee)).tid;	= (((struct_bibliotheque ) (*l_element_lecture).donnee)).tid;

if (((((struct_bibliotheque ) (*l_element_suivant).donnee)).nom =	if (((((struct_bibliotheque ) (*l_element_suivant).donnee)).nom =
malloc((strlen((((struct_bibliotheque ) (*l_element_lecture)	rpl_malloc(s_nouvel_etat_processus,
	(strlen((((struct_bibliotheque ) (*l_element_lecture)
.donnee)).nom) + 1) * sizeof(unsigned char))) == NULL)	.donnee)).nom) + 1) * sizeof(unsigned char))) == NULL)
{	{
if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)	if (pthread_mutex_unlock(&((*s_etat_processus)
	.mutex_pile_processus)) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3452 copie_etat_processus(struct_processus *s	Line 3664 copie_etat_processus(struct_processus *s
if ((*s_etat_processus).nombre_instructions_externes != 0)	if ((*s_etat_processus).nombre_instructions_externes != 0)
{	{
if (((*s_nouvel_etat_processus).s_instructions_externes =	if (((*s_nouvel_etat_processus).s_instructions_externes =
malloc((s_etat_processus).nombre_instructions_externes	rpl_malloc(s_nouvel_etat_processus, ((size_t)
	(s_etat_processus).nombre_instructions_externes)
sizeof(struct_instruction_externe))) == NULL)	sizeof(struct_instruction_externe))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 3462 copie_etat_processus(struct_processus *s	Line 3675 copie_etat_processus(struct_processus *s
for(i = 0; i < (*s_etat_processus).nombre_instructions_externes; i++)	for(i = 0; i < (*s_etat_processus).nombre_instructions_externes; i++)
{	{
if (((*s_nouvel_etat_processus).s_instructions_externes[i].nom =	if (((*s_nouvel_etat_processus).s_instructions_externes[i].nom =
malloc((strlen((*s_etat_processus).s_instructions_externes	rpl_malloc(s_nouvel_etat_processus,
	(strlen((*s_etat_processus).s_instructions_externes
[i].nom) + 1) * sizeof(unsigned char))) == NULL)	[i].nom) + 1) * sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 3473 copie_etat_processus(struct_processus *s	Line 3687 copie_etat_processus(struct_processus *s
(*s_etat_processus).s_instructions_externes[i].nom);	(*s_etat_processus).s_instructions_externes[i].nom);

if (((*s_nouvel_etat_processus).s_instructions_externes[i]	if (((*s_nouvel_etat_processus).s_instructions_externes[i]
.nom_bibliotheque = malloc((strlen((*s_etat_processus)	.nom_bibliotheque = rpl_malloc(s_nouvel_etat_processus,
.s_instructions_externes[i].nom_bibliotheque) + 1) *	(strlen((*s_etat_processus).s_instructions_externes[i]
sizeof(unsigned char))) == NULL)	.nom_bibliotheque) + 1) * sizeof(unsigned char))) == NULL)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
Line 3497 copie_etat_processus(struct_processus *s	Line 3711 copie_etat_processus(struct_processus *s

pthread_mutexattr_init(&attributs_mutex);	pthread_mutexattr_init(&attributs_mutex);
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
pthread_mutex_init(&((*s_nouvel_etat_processus).mutex), &attributs_mutex);	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_pile_processus),
	&attributs_mutex);
pthread_mutexattr_destroy(&attributs_mutex);	pthread_mutexattr_destroy(&attributs_mutex);

pthread_mutexattr_init(&attributs_mutex);	pthread_mutexattr_init(&attributs_mutex);
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_allocation),	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_interruptions),
	&attributs_mutex);
	pthread_mutexattr_destroy(&attributs_mutex);

	pthread_mutexattr_init(&attributs_mutex);
	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
	pthread_mutex_init(&((*s_nouvel_etat_processus).mutex_signaux),
	&attributs_mutex);
	pthread_mutexattr_destroy(&attributs_mutex);

	pthread_mutexattr_init(&attributs_mutex);
	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
	pthread_mutex_init(&((*s_nouvel_etat_processus).protection_liste_mutexes),
&attributs_mutex);	&attributs_mutex);
pthread_mutexattr_destroy(&attributs_mutex);	pthread_mutexattr_destroy(&attributs_mutex);

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

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.94
changed lines
	Added in v.1.137