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.60 and 1.86

version 1.60, 2015/01/05 13:12:29	version 1.86, 2022/09/07 13:40:29
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.19	RPL/2 (R) version 4.1.34
Copyright (C) 1989-2015 Dr. BERTRAND Joël	Copyright (C) 1989-2021 Dr. BERTRAND Joël

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

Line 53 chargement_bibliotheque(struct_processus	Line 53 chargement_bibliotheque(struct_processus
struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_nouvel_element;	struct_liste_chainee *l_nouvel_element;

	unsigned char *fleche;
unsigned char **tableau;	unsigned char **tableau;
unsigned char *tampon;	unsigned char *tampon;

void *descripteur_bibliotheque;	void *descripteur_bibliotheque;
int (onloading)(struct_rpl_arguments );	int (onloading)(struct_rpl_arguments , void *);

/*	/*
* On vérifie que la bibliothèque n'est pas déjà chargée.	* On vérifie que la bibliothèque n'est pas déjà chargée.
Line 172 chargement_bibliotheque(struct_processus	Line 173 chargement_bibliotheque(struct_processus
return(NULL);	return(NULL);
}	}

(*onloading)(&rpl_arguments);	(*onloading)(&rpl_arguments, descripteur_bibliotheque);

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
Line 305 chargement_bibliotheque(struct_processus	Line 306 chargement_bibliotheque(struct_processus
}	}

dlerror();	dlerror();
fonction = dlsym(descripteur_bibliotheque, "__external_symbols");	fonction = dlsym(descripteur_bibliotheque, "___external_symbols");

if (fonction == NULL)	if (fonction == NULL)
{	{
Line 373 chargement_bibliotheque(struct_processus	Line 374 chargement_bibliotheque(struct_processus

for(i = 0; i < nombre_symboles; i++)	for(i = 0; i < nombre_symboles; i++)
{	{
	if ((fleche = strstr(tableau[i], "->")) != NULL)
	{
	memcpy(fleche, "to", 2);
	(s_etat_processus).s_instructions_externes[(s_etat_processus)
	.nombre_instructions_externes].position_fleche =
	fleche - tableau[i];
	}
	else
	{
	(s_etat_processus).s_instructions_externes[(s_etat_processus)
	.nombre_instructions_externes].position_fleche = -1;
	}

(s_etat_processus).s_instructions_externes[(s_etat_processus)	(s_etat_processus).s_instructions_externes[(s_etat_processus)
.nombre_instructions_externes].descripteur_bibliotheque =	.nombre_instructions_externes].descripteur_bibliotheque =
descripteur_bibliotheque;	descripteur_bibliotheque;
Line 446 chargement_bibliotheque(struct_processus	Line 460 chargement_bibliotheque(struct_processus
[(*s_etat_processus).nombre_instructions_externes - 1]	[(*s_etat_processus).nombre_instructions_externes - 1]
.nom_bibliotheque);	.nom_bibliotheque);

	// La nouvelle bibliothèque est mise en tête de la liste pour que
	// les bibliothèques soient implicitement déchargées dans l'ordre
	// inverse de leur chargement.

(l_nouvel_element).suivant = (s_etat_processus).s_bibliotheques;	(l_nouvel_element).suivant = (s_etat_processus).s_bibliotheques;
(*s_etat_processus).s_bibliotheques = l_nouvel_element;	(*s_etat_processus).s_bibliotheques = l_nouvel_element;

Line 490 retrait_bibliotheque(struct_processus *s	Line 508 retrait_bibliotheque(struct_processus *s
integer8 j;	integer8 j;
integer8 nombre_symboles_residuels;	integer8 nombre_symboles_residuels;

int (onclosing)(struct_rpl_arguments );	int (onclosing)(struct_rpl_arguments , void *);

l_element_courant = (*s_etat_processus).s_bibliotheques;	l_element_courant = (*s_etat_processus).s_bibliotheques;
presence_bibliotheque = d_faux;	presence_bibliotheque = d_faux;
Line 591 retrait_bibliotheque(struct_processus *s	Line 609 retrait_bibliotheque(struct_processus *s
return(d_erreur);	return(d_erreur);
}	}

(*onclosing)(&rpl_arguments);	(onclosing)(&rpl_arguments, (descripteur).descripteur);

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)	while(sem_wait(&((*s_etat_processus).semaphore_fork)) != 0)
Line 861 execution_fonction_de_bibliotheque(struc	Line 879 execution_fonction_de_bibliotheque(struc

struct_rpl_arguments rpl_arguments;	struct_rpl_arguments rpl_arguments;

	unsigned char *fleche;
unsigned char *nom_fonction_externe;	unsigned char *nom_fonction_externe;
unsigned char *tampon;	unsigned char *tampon;

Line 905 execution_fonction_de_bibliotheque(struc	Line 924 execution_fonction_de_bibliotheque(struc
}	}
}	}

	if ((fleche = strstr(nom_fonction, "->")) != NULL)
	{
	memcpy(fleche, "to", 2);
	}

ordre_iteration = 0;	ordre_iteration = 0;
nombre_iterations_maximal = ((integer8)	nombre_iterations_maximal = ((integer8)
(log((real8) (*s_etat_processus).nombre_instructions_externes) /	(log((real8) (*s_etat_processus).nombre_instructions_externes) /
Line 1403 struct_liste_chainee *	Line 1427 struct_liste_chainee *
empilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,	empilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,
struct_objet *s_objet)	struct_objet *s_objet)
{	{
	# pragma GCC diagnostic push
	# pragma GCC diagnostic ignored "-Wunused-but-set-variable"
struct_liste_chainee *l_ancienne_base_liste;	struct_liste_chainee *l_ancienne_base_liste;
struct_liste_chainee *l_nouvelle_base_liste;	struct_liste_chainee *l_nouvelle_base_liste;

	struct_processus *s_etat_processus;

l_ancienne_base_liste = (*s_rpl_arguments).l_base_pile;	l_ancienne_base_liste = (*s_rpl_arguments).l_base_pile;
	s_etat_processus = (*s_rpl_arguments).s_etat_processus;

l_nouvelle_base_liste = (struct_liste_chainee *) malloc(	l_nouvelle_base_liste = (struct_liste_chainee *) malloc(
sizeof(struct_liste_chainee));	sizeof(struct_liste_chainee));
Line 1420 empilement_pile_operationnelle(struct_rp	Line 1449 empilement_pile_operationnelle(struct_rp
(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;	(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;

return l_nouvelle_base_liste;	return l_nouvelle_base_liste;
	# pragma GCC diagnostic pop
}	}


Line 1439 struct_liste_chainee *	Line 1469 struct_liste_chainee *
depilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,	depilement_pile_operationnelle(struct_rpl_arguments *s_rpl_arguments,
struct_objet **s_objet)	struct_objet **s_objet)
{	{
	# pragma GCC diagnostic push
	# pragma GCC diagnostic ignored "-Wunused-but-set-variable"
struct_liste_chainee *l_ancienne_base_liste;	struct_liste_chainee *l_ancienne_base_liste;
struct_liste_chainee *l_nouvelle_base_liste;	struct_liste_chainee *l_nouvelle_base_liste;

	struct_processus *s_etat_processus;

if ((*s_rpl_arguments).l_base_pile == NULL)	if ((*s_rpl_arguments).l_base_pile == NULL)
{	{
*s_objet = NULL;	*s_objet = NULL;
return(NULL);	return NULL ;
}	}
else	else
{	{
l_ancienne_base_liste = (*s_rpl_arguments).l_base_pile;	l_ancienne_base_liste = (*s_rpl_arguments).l_base_pile;
l_nouvelle_base_liste = (*l_ancienne_base_liste).suivant;	l_nouvelle_base_liste = (*l_ancienne_base_liste).suivant;
	s_etat_processus = (*s_rpl_arguments).s_etat_processus;

s_objet = (l_ancienne_base_liste).donnee;	s_objet = (l_ancienne_base_liste).donnee;
free(l_ancienne_base_liste);	free(l_ancienne_base_liste);

(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;	(*s_rpl_arguments).l_base_pile = l_nouvelle_base_liste;

return(l_nouvelle_base_liste);	return l_nouvelle_base_liste ;
}	}
	# pragma GCC diagnostic pop
}	}

CVSweb interface <joel.bertrand@systella.fr>

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