rpl/src/bibliotheques_externes.c - diff

Return to bibliotheques_externes.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/bibliotheques_externes.c between versions 1.10 and 1.45

version 1.10, 2010/05/25 18:09:44	version 1.45, 2012/08/22 10:47:13
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.16	RPL/2 (R) version 4.1.10
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

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

Line 20	Line 20
*/	*/


#include "rpl.conv.h"	#include "rpl-conv.h"

static pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER;	static pthread_mutex_t mutex = PTHREAD_MUTEX_INITIALIZER;

Line 162 chargement_bibliotheque(struct_processus	Line 162 chargement_bibliotheque(struct_processus
}	}

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)	if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);
}
# else	# else
if (sem_post((*s_etat_processus).semaphore_fork) != 0)	if (sem_post((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);	return(NULL);
}	}
# endif

(*onloading)(&rpl_arguments);	(*onloading)(&rpl_arguments);

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
{
if (errno != EINTR)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(NULL);
}
}
# else	# else
while(sem_wait((*s_etat_processus).semaphore_fork) == -1)	while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
if (errno != EINTR)	if (errno != EINTR)
{	{
Line 195 chargement_bibliotheque(struct_processus	Line 185 chargement_bibliotheque(struct_processus
return(NULL);	return(NULL);
}	}
}	}
# endif

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
Line 334 chargement_bibliotheque(struct_processus	Line 323 chargement_bibliotheque(struct_processus
}	}
}	}

	dlerror();

if (pthread_mutex_unlock(&mutex) != 0)	if (pthread_mutex_unlock(&mutex) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 590 retrait_bibliotheque(struct_processus *s	Line 581 retrait_bibliotheque(struct_processus *s
}	}

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)	if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_erreur);
}
# else	# else
if (sem_post((*s_etat_processus).semaphore_fork) != 0)	if (sem_post((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_erreur);	return(d_erreur);
}	}
# endif

(*onclosing)(&rpl_arguments);	(*onclosing)(&rpl_arguments);

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
{
if (errno != EINTR)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_erreur);
}
}
# else	# else
while(sem_wait((*s_etat_processus).semaphore_fork) == -1)	while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
if (errno != EINTR)	if (errno != EINTR)
{	{
Line 623 retrait_bibliotheque(struct_processus *s	Line 604 retrait_bibliotheque(struct_processus *s
return(d_erreur);	return(d_erreur);
}	}
}	}
# endif

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
Line 1118 execution_fonction_de_bibliotheque(struc	Line 1098 execution_fonction_de_bibliotheque(struc
}	}
}	}

	dlerror();

if (pthread_mutex_unlock(&mutex) != 0)	if (pthread_mutex_unlock(&mutex) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 1174 execution_fonction_de_bibliotheque(struc	Line 1156 execution_fonction_de_bibliotheque(struc
}	}

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)	if (sem_post(&((*s_etat_processus).semaphore_fork)) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_faux);
}
# else	# else
if (sem_post((*s_etat_processus).semaphore_fork) != 0)	if (sem_post((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_faux);	return(d_faux);
}	}
# endif

(*fonction)(&rpl_arguments);	(*fonction)(&rpl_arguments);

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus).semaphore_fork)) == -1)	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
{
if (errno != EINTR)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
return(d_faux);
}
}
# else	# else
while(sem_wait((*s_etat_processus).semaphore_fork) == -1)	while(sem_wait((*s_etat_processus).semaphore_fork) != 0)
	# endif
{	{
if (errno != EINTR)	if (errno != EINTR)
{	{
Line 1207 execution_fonction_de_bibliotheque(struc	Line 1179 execution_fonction_de_bibliotheque(struc
return(d_faux);	return(d_faux);
}	}
}	}
# endif

if ((*s_etat_processus).profilage == d_vrai)	if ((*s_etat_processus).profilage == d_vrai)
{	{
Line 1663 tri_base_symboles_externes(struct_proces	Line 1634 tri_base_symboles_externes(struct_proces
do	do
{	{
indice_i = indice_j;	indice_i = indice_j;

terminaison_boucle_3 = d_faux;	terminaison_boucle_3 = d_faux;

do	do
Line 1757 tri_base_symboles_externes(struct_proces	Line 1727 tri_base_symboles_externes(struct_proces

indice_i++;	indice_i++;
} while((unsigned long) (indice_i + 1) <	} while((unsigned long) (indice_i + 1) <
(*s_etat_processus).nombre_variables);	(*s_etat_processus).nombre_instructions_externes);

return;	return;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.10
changed lines
	Added in v.1.45