rpl/src/gestion_threads.c - diff

Return to gestion_threads.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_threads.c between versions 1.47 and 1.75

version 1.47, 2011/08/30 14:19:28	version 1.75, 2013/03/24 22:06:10
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.3	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 38	Line 38
void *	void *
lancement_thread(void *argument)	lancement_thread(void *argument)
{	{
int status;	int status;

pid_t ppid;	pid_t ppid;

pthread_t tid_final;	pthread_t tid_final;

sig_atomic_t registre_stop;	sig_atomic_t registre_stop;

sigset_t set;	ssize_t longueur_ecriture;

ssize_t longueur_ecriture;	struct_descripteur_thread *s_argument_thread;

struct_descripteur_thread *s_argument_thread;	struct_liste_chainee *l_element_courant;
	struct_liste_chainee *l_element_suivant;

struct_liste_chainee *l_element_courant;	struct_liste_variables_statiques *l_element_statique_courant;
struct_liste_chainee *l_element_suivant;	struct_liste_variables_statiques *l_element_statique_suivant;

struct_objet *s_objet_temporaire;	struct_objet *s_objet_temporaire;

struct_processus *s_etat_processus;	struct_processus *s_etat_processus;

struct sigaction action;	struct sigaction action;
struct sigaction registre;	struct sigaction registre;

struct timespec attente;	struct timespec attente;

unsigned char *message;	unsigned char *message;

unsigned int erreur;	unsigned int erreur;

unsigned long i;	integer8 i;

attente.tv_sec = 0;	attente.tv_sec = 0;
attente.tv_nsec = GRANULARITE_us * 1000;	attente.tv_nsec = GRANULARITE_us * 1000;

s_argument_thread = (struct_descripteur_thread *) argument;	s_argument_thread = (struct_descripteur_thread *) argument;
s_etat_processus = (*s_argument_thread).s_nouvel_etat_processus;	s_etat_processus = (*s_argument_thread).s_nouvel_etat_processus;
(*s_argument_thread).tid = pthread_self();
(*s_argument_thread).thread_actif = d_vrai;

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
if (pthread_setspecific(semaphore_fork_processus_courant,	sem_init(&((*s_etat_processus).semaphore_fork), 0, 0);
&((*s_etat_processus).semaphore_fork)) != 0)
# else	# else
if (pthread_setspecific(semaphore_fork_processus_courant,	if (((*s_etat_processus).semaphore_fork = sem_init3(0, getpid(),
(*s_etat_processus).semaphore_fork) != 0)	pthread_self(), SEM_FORK)) == SEM_FAILED)
# endif
{
(*s_etat_processus).erreur_systeme = d_es_processus;

pthread_mutex_unlock(&((*s_etat_processus).mutex));

pthread_mutex_lock(&((*s_argument_thread).mutex));
pthread_mutex_unlock(&((*s_argument_thread).mutex));

(*s_argument_thread).thread_actif = d_faux;

tid_final = -2;

while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_interruptions_attente[1],
&tid_final, sizeof(tid_final))) != sizeof(tid_final))
{
if (longueur_ecriture == -1)
{
break;
}
}

while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_objets_attente[1],
&tid_final, sizeof(tid_final))) != sizeof(tid_final))
{
if (longueur_ecriture == -1)
{
break;
}
}

pthread_exit(NULL);
}

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

pthread_mutex_lock(&((*s_argument_thread).mutex));
pthread_mutex_unlock(&((*s_argument_thread).mutex));

(*s_argument_thread).thread_actif = d_faux;

tid_final = -2;

while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_interruptions_attente[1],
&tid_final, sizeof(tid_final))) != sizeof(tid_final))
{
if (longueur_ecriture == -1)
{
break;
}
}

while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_objets_attente[1],
&tid_final, sizeof(tid_final))) != sizeof(tid_final))
{	{
if (longueur_ecriture == -1)	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
{	return(NULL);
break;
}
}	}
	# endif

pthread_exit(NULL);	(*s_argument_thread).tid = pthread_self();
}

insertion_thread(s_etat_processus, d_faux);	insertion_thread(s_etat_processus, d_faux);
	(*s_argument_thread).thread_actif = d_vrai;

// Envoi d'une donnée pour signaler le démarrage du thread au thread	// Envoi d'une donnée pour signaler le démarrage du thread au thread
// de surveillance.	// de surveillance.
Line 163 lancement_thread(void *argument)	Line 99 lancement_thread(void *argument)
(*s_argument_thread).pipe_nombre_objets_attente[1],	(*s_argument_thread).pipe_nombre_objets_attente[1],
"-", sizeof(unsigned char)) != sizeof(unsigned char))	"-", sizeof(unsigned char)) != sizeof(unsigned char))
{	{
pthread_mutex_unlock(&((*s_etat_processus).mutex));
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;

pthread_mutex_lock(&((*s_argument_thread).mutex));	pthread_mutex_lock(&((*s_argument_thread).mutex));
Line 171 lancement_thread(void *argument)	Line 106 lancement_thread(void *argument)

(*s_argument_thread).thread_actif = d_faux;	(*s_argument_thread).thread_actif = d_faux;

tid_final = -2;	tid_final = (pthread_t) -2;

while((longueur_ecriture = write_atomic(s_etat_processus,	while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_interruptions_attente[1],	(*s_argument_thread).pipe_nombre_interruptions_attente[1],
Line 202 lancement_thread(void *argument)	Line 137 lancement_thread(void *argument)
(*s_etat_processus).instruction_courante = NULL;	(*s_etat_processus).instruction_courante = NULL;
}	}

set = (*s_argument_thread).set;	// Attente de la réception du signal rpl_sigstart.

if (sigpending(&set) != 0)	for((*s_etat_processus).demarrage_fils = d_faux;;)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
}
else if (sigismember(&set, SIGSTART) == 0)
{	{
while(sigismember(&set, SIGSTART) == 0)	scrutation_interruptions(s_etat_processus);
{
if (sigpending(&set) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
}

nanosleep(&attente, NULL);	if ((*s_etat_processus).demarrage_fils == d_vrai)
	{
	break;
}	}

	nanosleep(&attente, NULL);
}	}

if ((*s_etat_processus).debug == d_vrai)	if ((*s_etat_processus).debug == d_vrai)
Line 238 lancement_thread(void *argument)	Line 168 lancement_thread(void *argument)
fflush(stdout);	fflush(stdout);
}	}

if (pthread_sigmask(SIG_SETMASK, &((*s_argument_thread).oldset), NULL) != 0)
{
(*s_etat_processus).erreur_systeme = d_es_processus;
}

sigpending(&set);

(*s_etat_processus).pid_erreur_processus_fils = getpid();	(*s_etat_processus).pid_erreur_processus_fils = getpid();

// Évaluation de l'objet	// Évaluation de l'objet

if ((*s_etat_processus).erreur_systeme == d_es)	if ((*s_etat_processus).erreur_systeme == d_es)
{	{
if (evaluation(s_etat_processus, (*s_argument_thread).argument, 'E')	if (setjmp(contexte_thread) == 0)
== d_erreur)
{	{
if (((*s_etat_processus).erreur_execution == d_ex) &&	if (evaluation(s_etat_processus, (*s_argument_thread).argument, 'E')
((*s_etat_processus).erreur_systeme == d_es))	== d_erreur)
{	{
(*s_etat_processus).erreur_execution =	if (((*s_etat_processus).erreur_execution == d_ex) &&
d_ex_erreur_evaluation;	((*s_etat_processus).erreur_systeme == d_es))
	{
	(*s_etat_processus).erreur_execution =
	d_ex_erreur_evaluation;
	}
}	}
}	else
else
{
if (((*s_etat_processus).var_volatile_alarme == 0)
&& ((*s_etat_processus).arret_depuis_abort == 0)
&& ((*s_etat_processus).at_exit != NULL))
{	{
(*s_etat_processus).var_volatile_requete_arret = 0;	if (((*s_etat_processus).var_volatile_alarme == 0)
(*s_etat_processus).var_volatile_traitement_retarde_stop = -1;	&& ((*s_etat_processus).arret_depuis_abort == 0)
	&& ((*s_etat_processus).at_exit != NULL))
	{
	(*s_etat_processus).var_volatile_requete_arret = 0;
	(*s_etat_processus).var_volatile_traitement_retarde_stop =
	-1;

if (evaluation(s_etat_processus, (*s_etat_processus).at_exit,	if (evaluation(s_etat_processus,
'E') == d_erreur)	(*s_etat_processus).at_exit, 'E') == d_erreur)
{
if (((*s_etat_processus).erreur_execution == d_ex) &&
((*s_etat_processus).erreur_systeme == d_es))
{	{
(*s_etat_processus).erreur_execution =	if (((*s_etat_processus).erreur_execution == d_ex) &&
d_ex_erreur_evaluation;	((*s_etat_processus).erreur_systeme == d_es))
	{
	(*s_etat_processus).erreur_execution =
	d_ex_erreur_evaluation;
	}
}	}
}	}
}	}
Line 294 lancement_thread(void *argument)	Line 221 lancement_thread(void *argument)
pthread_cancel((*s_etat_processus).thread_fusible);	pthread_cancel((*s_etat_processus).thread_fusible);
}	}

tid_final = -2;	tid_final = (pthread_t) -2;

while((longueur_ecriture = write_atomic(s_etat_processus,	while((longueur_ecriture = write_atomic(s_etat_processus,
(*s_argument_thread).pipe_nombre_interruptions_attente[1],	(*s_argument_thread).pipe_nombre_interruptions_attente[1],
Line 488 lancement_thread(void *argument)	Line 415 lancement_thread(void *argument)

if ((*s_etat_processus).var_volatile_alarme != 0)	if ((*s_etat_processus).var_volatile_alarme != 0)
{	{
kill(((((struct_processus_fils ) ((*l_element_courant)	envoi_signal_processus(((((struct_processus_fils *)
.donnee).objet)).thread).pid, SIGURG);	((l_element_courant)
	.donnee).objet)).thread).pid, rpl_sigurg);
}	}
else	else
{	{
if ((*s_etat_processus).arret_depuis_abort == -1)	if ((*s_etat_processus).arret_depuis_abort == -1)
{	{
kill(((((struct_processus_fils ) ((*l_element_courant)	envoi_signal_processus(((((struct_processus_fils *)
.donnee).objet)).thread).pid, SIGFABORT);	((l_element_courant)
	.donnee).objet)).thread).pid, rpl_sigabort);
}	}
else	else
{	{
kill(((((struct_processus_fils ) ((*l_element_courant)	envoi_signal_processus(((((struct_processus_fils *)
.donnee).objet)).thread).pid, SIGFSTOP);	((l_element_courant)
	.donnee).objet)).thread).pid, rpl_sigstop);
}	}
}	}
}	}
Line 551 lancement_thread(void *argument)	Line 481 lancement_thread(void *argument)
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.thread_actif == d_vrai)	.thread_actif == d_vrai)
{	{
pthread_kill(((((struct_processus_fils *)	envoi_signal_thread(((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread).tid,	((l_element_courant).donnee).objet)).thread).tid,
SIGURG);	rpl_sigurg);
}	}

if (pthread_mutex_unlock(&(((((struct_processus_fils *)	if (pthread_mutex_unlock(&(((((struct_processus_fils *)
Line 594 lancement_thread(void *argument)	Line 524 lancement_thread(void *argument)
{	{
if ((*s_etat_processus).arret_depuis_abort == -1)	if ((*s_etat_processus).arret_depuis_abort == -1)
{	{
pthread_kill(((((struct_processus_fils *)	envoi_signal_thread(((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.tid, SIGFABORT);	.tid, rpl_sigabort);
}	}
else	else
{	{
pthread_kill(((((struct_processus_fils *)	envoi_signal_thread(((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.tid, SIGFSTOP);	.tid, rpl_sigstop);
}	}
}	}

Line 647 lancement_thread(void *argument)	Line 577 lancement_thread(void *argument)
.var_volatile_traitement_retarde_stop;	.var_volatile_traitement_retarde_stop;
(*s_etat_processus).var_volatile_traitement_retarde_stop = 1;	(*s_etat_processus).var_volatile_traitement_retarde_stop = 1;

for(i = 0; i < (unsigned long) ((((struct_processus_fils *)	for(i = 0; i < ((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.nombre_objets_dans_pipe; i++)	.nombre_objets_dans_pipe; i++)
{	{
Line 885 lancement_thread(void *argument)	Line 815 lancement_thread(void *argument)
liberation_arbre_variables(s_etat_processus,	liberation_arbre_variables(s_etat_processus,
(*s_etat_processus).s_arbre_variables, d_faux);	(*s_etat_processus).s_arbre_variables, d_faux);

for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)	l_element_statique_courant = (*s_etat_processus)
	.l_liste_variables_statiques;

	while(l_element_statique_courant != NULL)
{	{
liberation(s_etat_processus,	l_element_statique_suivant = (*l_element_statique_courant).suivant;
(*s_etat_processus).s_liste_variables_statiques[i].objet);	free(l_element_statique_courant);
free((*s_etat_processus).s_liste_variables_statiques[i].nom);	l_element_statique_courant = l_element_statique_suivant;
}	}

free((*s_etat_processus).s_liste_variables_statiques);

l_element_courant = (*s_etat_processus).l_base_pile;	l_element_courant = (*s_etat_processus).l_base_pile;
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
Line 916 lancement_thread(void *argument)	Line 847 lancement_thread(void *argument)
l_element_courant = l_element_suivant;	l_element_courant = l_element_suivant;
}	}

l_element_courant = (*s_etat_processus).l_base_pile_undo;
while(l_element_courant != NULL)
{
l_element_suivant = (*l_element_courant).suivant;

liberation(s_etat_processus, (*l_element_courant).donnee);
free(l_element_courant);

l_element_courant = l_element_suivant;
}

l_element_courant = (*s_etat_processus).l_base_pile_contextes;	l_element_courant = (*s_etat_processus).l_base_pile_contextes;
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
Line 1079 lancement_thread(void *argument)	Line 999 lancement_thread(void *argument)
pthread_mutex_destroy(&((*s_etat_processus).mutex));	pthread_mutex_destroy(&((*s_etat_processus).mutex));
pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));	pthread_mutex_destroy(&((*s_etat_processus).mutex_allocation));

sem_destroy(&((*s_etat_processus).semaphore_fork));	# ifndef SEMAPHORES_NOMMES
	sem_destroy(&((*s_etat_processus).semaphore_fork));
	# else
	sem_destroy3((*s_etat_processus).semaphore_fork, getpid(),
	pthread_self(), SEM_FORK);
	# endif

liberation_contexte_cas(s_etat_processus);	liberation_contexte_cas(s_etat_processus);
free((*s_etat_processus).localisation);	free((*s_etat_processus).localisation);

CVSweb interface <joel.bertrand@systella.fr>

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