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.24 and 1.49

version 1.24, 2010/07/14 14:19:34	version 1.49, 2011/09/03 10:31:50
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.18	RPL/2 (R) version 4.1.3
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2011 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"


/*	/*
Line 251 lancement_thread(void *argument)	Line 251 lancement_thread(void *argument)

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))
if (evaluation(s_etat_processus, (*s_etat_processus).at_exit,
'E') == d_erreur)
{	{
if (((*s_etat_processus).erreur_execution == d_ex) &&	(*s_etat_processus).var_volatile_requete_arret = 0;
((*s_etat_processus).erreur_systeme == d_es))	(*s_etat_processus).var_volatile_traitement_retarde_stop =
	-1;

	if (evaluation(s_etat_processus,
	(*s_etat_processus).at_exit, 'E') == 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;
	}
}	}
}	}
}	}
Line 882 lancement_thread(void *argument)	Line 886 lancement_thread(void *argument)
(*s_etat_processus).instruction_derniere_erreur = NULL;	(*s_etat_processus).instruction_derniere_erreur = NULL;
}	}

for(i = 0; i < (*s_etat_processus).nombre_variables; i++)	liberation_arbre_variables(s_etat_processus,
{	(*s_etat_processus).s_arbre_variables, d_faux);
// Les définitions ne sont pas libérées parce qu'elles sont partagées
// avec le thread père.

if ((*s_etat_processus).s_liste_variables[i].niveau != 0)
{
liberation(s_etat_processus,
(*s_etat_processus).s_liste_variables[i].objet);
}

free((*s_etat_processus).s_liste_variables[i].nom);
}

free((*s_etat_processus).s_liste_variables);

for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)	for(i = 0; i < (*s_etat_processus).nombre_variables_statiques; i++)
{	{
Line 1031 lancement_thread(void *argument)	Line 1022 lancement_thread(void *argument)

liberation(s_etat_processus, (*s_argument_thread).argument);	liberation(s_etat_processus, (*s_argument_thread).argument);
liberation(s_etat_processus, (*s_etat_processus).at_exit);	liberation(s_etat_processus, (*s_etat_processus).at_exit);
	liberation(s_etat_processus, (*s_etat_processus).at_poke);

for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)	for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)
{	{
Line 1080 lancement_thread(void *argument)	Line 1072 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));

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

Line 1088 lancement_thread(void *argument)	Line 1083 lancement_thread(void *argument)

(*s_argument_thread).thread_actif = d_faux;	(*s_argument_thread).thread_actif = d_faux;
pthread_exit(NULL);	pthread_exit(NULL);
	return(NULL);
}	}

// vim: ts=4	// vim: ts=4

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.24
changed lines
	Added in v.1.49