rpl/src/instructions_d5.c - diff

Return to instructions_d5.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_d5.c between versions 1.11 and 1.25

version 1.11, 2010/04/21 13:45:46	version 1.25, 2010/06/04 07:48:20
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.15	RPL/2 (R) version 4.0.16
Copyright (C) 1989-2010 Dr. BERTRAND Joël	Copyright (C) 1989-2010 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.
Line 838 instruction_detach(struct_processus *s_e	Line 838 instruction_detach(struct_processus *s_e
ssize_t longueur_ecriture;	ssize_t longueur_ecriture;

struct_descripteur_thread *s_argument_thread;	struct_descripteur_thread *s_argument_thread;
	struct_descripteur_thread *s_argument_thread2;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
struct_liste_chainee *l_element_precedent;	struct_liste_chainee *l_element_precedent;
Line 1062 instruction_detach(struct_processus *s_e	Line 1063 instruction_detach(struct_processus *s_e
return;	return;
}	}

	if (sigaddset(&set, SIGFABORT) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es_processus;
	return;
	}

if (sigaddset(&set, SIGURG) != 0)	if (sigaddset(&set, SIGURG) != 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
Line 1290 instruction_detach(struct_processus *s_e	Line 1297 instruction_detach(struct_processus *s_e
* Processus fils	* Processus fils
*/	*/

	if ((*s_etat_processus).debug == d_vrai)
	if (((*s_etat_processus).type_debug &
	d_debug_processus) != 0)
	{
	if ((*s_etat_processus).langue == 'F')
	{
	printf("[%d] Lancement du processus fils %d de %d\n",
	(int) getpid(), (int) getpid(), (int) ppid);
	}
	else
	{
	printf("[%d] Start child process %d from %d\n", (int) getpid(),
	(int) getpid(), (int) ppid);
	}

	fflush(stdout);
	}

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
sem_post(&semaphore_gestionnaires_signaux);	sem_post(&semaphore_gestionnaires_signaux);
sem_destroy(&semaphore_gestionnaires_signaux);	sem_destroy(&semaphore_gestionnaires_signaux);
Line 1383 instruction_detach(struct_processus *s_e	Line 1408 instruction_detach(struct_processus *s_e
(*s_etat_processus).erreur_systeme = d_es_processus;	(*s_etat_processus).erreur_systeme = d_es_processus;
}	}

	if ((*s_etat_processus).debug == d_vrai)
	if (((*s_etat_processus).type_debug &
	d_debug_processus) != 0)
	{
	if ((*s_etat_processus).langue == 'F')
	{
	printf("[%d] Libération des objets du processus père\n",
	(int) getpid());
	}
	else
	{
	printf("[%d] Freeing parent process memory\n", getpid());
	}

	fflush(stdout);
	}

l_element_courant = (*s_etat_processus).liste_mutexes;	l_element_courant = (*s_etat_processus).liste_mutexes;
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
Line 1444 instruction_detach(struct_processus *s_e	Line 1486 instruction_detach(struct_processus *s_e
}	}
}	}

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
exit(EXIT_FAILURE);	exit(EXIT_FAILURE);
}	}

Line 1473 instruction_detach(struct_processus *s_e	Line 1516 instruction_detach(struct_processus *s_e
}	}
}	}

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
exit(EXIT_FAILURE);	exit(EXIT_FAILURE);
}	}

Line 1503 instruction_detach(struct_processus *s_e	Line 1547 instruction_detach(struct_processus *s_e
}	}
}	}

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
exit(EXIT_FAILURE);	exit(EXIT_FAILURE);
}	}

Line 1522 instruction_detach(struct_processus *s_e	Line 1567 instruction_detach(struct_processus *s_e
(*s_etat_processus).nombre_interruptions_non_affectees = 0;	(*s_etat_processus).nombre_interruptions_non_affectees = 0;
(*s_etat_processus).processus_detache = d_vrai;	(*s_etat_processus).processus_detache = d_vrai;

	liberation(s_etat_processus, (*s_etat_processus).at_exit);
	(*s_etat_processus).at_exit = NULL;

for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)	for(i = 0; i < d_NOMBRE_INTERRUPTIONS; i++)
{	{
liberation(s_etat_processus,	liberation(s_etat_processus,
Line 1545 instruction_detach(struct_processus *s_e	Line 1593 instruction_detach(struct_processus *s_e
(*s_etat_processus).pile_origine_interruptions[i] = NULL;	(*s_etat_processus).pile_origine_interruptions[i] = NULL;
}	}

if ((*s_etat_processus).debug == d_vrai)
if (((*s_etat_processus).type_debug &
d_debug_processus) != 0)
{
if ((*s_etat_processus).langue == 'F')
{
printf("[%d] Lancement du processus fils %d de %d\n",
(int) getpid(), (int) getpid(), (int) ppid);
}
else
{
printf("[%d] Start child process %d from %d\n", (int) getpid(),
(int) getpid(), (int) ppid);
}

fflush(stdout);
}

/*	/*
* On bloque l'exécution du processus fils jusqu'à ce que	* On bloque l'exécution du processus fils jusqu'à ce que
* le père ait renseigné correctement la pile des processus.	* le père ait renseigné correctement la pile des processus.
Line 1632 instruction_detach(struct_processus *s_e	Line 1662 instruction_detach(struct_processus *s_e
}	}

/*	/*
* Initialisation de la pile des processus	* Initialisation de la pile des processus. Cette pile est effacée
	* par liberation_threads().
*/	*/

	if (pthread_mutex_lock(&((*s_etat_processus).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es;

	pid_final = -2;

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

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

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
	exit(EXIT_FAILURE);
	}

	l_element_courant = (struct_liste_chainee *)
	(*s_etat_processus).l_base_pile_processus;
	while(l_element_courant != NULL)
	{
	s_argument_thread2 = (struct_descripteur_thread *)
	(*l_element_courant).donnee;

	(*s_argument_thread2).nombre_references--;

	BUG((*s_argument_thread2).nombre_references < 0,
	printf("(*s_argument_thread).nombre_references = %d\n",
	(int) (*s_argument_thread2).nombre_references));

	if ((*s_argument_thread2).nombre_references == 0)
	{
	close((*s_argument_thread2).pipe_objets[0]);
	close((*s_argument_thread2).pipe_acquittement[1]);
	close((*s_argument_thread2).pipe_injections[1]);
	close((*s_argument_thread2).pipe_nombre_injections[1]);
	close((*s_argument_thread2).pipe_nombre_objets_attente[0]);
	close((*s_argument_thread2).pipe_interruptions[0]);
	close((*s_argument_thread2)
	.pipe_nombre_interruptions_attente[0]);

	pthread_mutex_destroy(&((*s_argument_thread2).mutex));

	if ((*s_argument_thread2).processus_detache == d_faux)
	{
	if ((*s_argument_thread2).destruction_objet == d_vrai)
	{
	liberation(s_etat_processus,
	(*s_argument_thread2).argument);
	}
	}

	free(s_argument_thread2);
	}

	l_element_suivant = (*l_element_courant).suivant;
	free((struct_liste_chainee *) l_element_courant);
	l_element_courant = l_element_suivant;
	}

(*s_etat_processus).l_base_pile_processus = NULL;	(*s_etat_processus).l_base_pile_processus = NULL;
// Les données associées sont déjà effacées par liberation_thread().
	if (pthread_mutex_unlock(&((*s_etat_processus).mutex)) != 0)
	{
	(*s_etat_processus).erreur_systeme = d_es;

	pid_final = -2;

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

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

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
	exit(EXIT_FAILURE);
	}

/*	/*
* Initialisation de la pile système	* Initialisation de la pile système
Line 1698 instruction_detach(struct_processus *s_e	Line 1831 instruction_detach(struct_processus *s_e
}	}
}	}

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
exit(EXIT_FAILURE);	exit(EXIT_FAILURE);
}	}

Line 1749 instruction_detach(struct_processus *s_e	Line 1883 instruction_detach(struct_processus *s_e
}	}
}	}

	BUG(1, uprintf("Process management error line %d\n", __LINE__));
exit(EXIT_FAILURE);	exit(EXIT_FAILURE);
}	}

Line 1821 instruction_detach(struct_processus *s_e	Line 1956 instruction_detach(struct_processus *s_e
* Destruction des piles de connecteurs SQL	* Destruction des piles de connecteurs SQL
*/	*/

	/*
	================================================================================
	À noter : on ne ferme pas la connexion car la conséquence immédiate est
	une destruction de l'objet pour le processus père.
	================================================================================
	*/

l_element_courant = (*s_etat_processus).s_connecteurs_sql;	l_element_courant = (*s_etat_processus).s_connecteurs_sql;

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

sqlclose((*l_element_courant).donnee);	// sqlclose((*l_element_courant).donnee);
liberation(s_etat_processus, (*l_element_courant).donnee);	liberation(s_etat_processus, (*l_element_courant).donnee);
l_element_courant = l_element_suivant;	l_element_courant = l_element_suivant;
}	}

	(*s_etat_processus).s_connecteurs_sql = NULL;

/*	/*
* On ne détruit pas les sockets car il faut utiliser DETACH	* On ne détruit pas les sockets car il faut utiliser DETACH
* pour traiter plusieurs connexions simultanées sur les sockets	* pour traiter plusieurs connexions simultanées sur les sockets
Line 1846 instruction_detach(struct_processus *s_e	Line 1990 instruction_detach(struct_processus *s_e

sigpending(&set);	sigpending(&set);

	if ((*s_etat_processus).debug == d_vrai)
	{
	if (((*s_etat_processus).type_debug & d_debug_processus)
	!= 0)
	{
	if ((*s_etat_processus).langue == 'F')
	{
	printf("[%d] Évaluation de l'objet détaché\n", getpid());
	}
	else
	{
	printf("[%d] Évaluation of detached object\n", getpid());
	}
	}
	}

if ((*s_etat_processus).erreur_systeme == d_es)	if ((*s_etat_processus).erreur_systeme == d_es)
{	{
if (variable_partagee == d_faux)	if (variable_partagee == d_faux)
Line 1859 instruction_detach(struct_processus *s_e	Line 2019 instruction_detach(struct_processus *s_e
d_ex_erreur_evaluation;	d_ex_erreur_evaluation;
}	}
}	}
	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 (evaluation(s_etat_processus,
	(*s_etat_processus).at_exit, 'E') == d_erreur)
	{
	(*s_etat_processus).erreur_execution =
	d_ex_erreur_evaluation;
	}
	}
	}
}	}
else	else
{	{
Line 1871 instruction_detach(struct_processus *s_e	Line 2047 instruction_detach(struct_processus *s_e
d_ex_erreur_evaluation;	d_ex_erreur_evaluation;
}	}
}	}
	else
	{
	if ((*s_etat_processus).at_exit != NULL)
	{
	(*s_etat_processus).var_volatile_requete_arret = 0;

	if (evaluation(s_etat_processus,
	(*s_etat_processus).at_exit, 'E') == d_erreur)
	{
	(*s_etat_processus).erreur_execution =
	d_ex_erreur_evaluation;
	}
	}
	}

liberation(s_etat_processus, s_copie);	liberation(s_etat_processus, s_copie);
}	}
}	}

	liberation(s_etat_processus, (*s_etat_processus).at_exit);

l_element_courant = (*s_etat_processus).liste_mutexes;	l_element_courant = (*s_etat_processus).liste_mutexes;
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
Line 2102 instruction_detach(struct_processus *s_e	Line 2294 instruction_detach(struct_processus *s_e
}	}
else	else
{	{
kill(((((struct_processus_fils *)	if ((*s_etat_processus).arret_depuis_abort == -1)
((l_element_courant).donnee).objet)).thread).pid,	{
SIGFSTOP);	kill(((((struct_processus_fils *)
	((l_element_courant).donnee).objet)).thread)
	.pid, SIGFABORT);
	}
	else
	{
	kill(((((struct_processus_fils *)
	((l_element_courant).donnee).objet)).thread)
	.pid, SIGFSTOP);
	}
}	}
}	}
else	else
Line 2151 instruction_detach(struct_processus *s_e	Line 2352 instruction_detach(struct_processus *s_e
}	}
else	else
{	{
pthread_kill(((((struct_processus_fils *)	if ((*s_etat_processus).arret_depuis_abort == -1)
((l_element_courant).donnee).objet)).thread)	{
.tid, SIGFSTOP);	pthread_kill(((((struct_processus_fils *)
	((l_element_courant).donnee).objet))
	.thread).tid, SIGFABORT);
	}
	else
	{
	pthread_kill(((((struct_processus_fils *)
	((l_element_courant).donnee).objet))
	.thread).tid, SIGFSTOP);
	}
}	}
}	}

Line 2181 instruction_detach(struct_processus *s_e	Line 2391 instruction_detach(struct_processus *s_e
l_element_courant = (struct_liste_chainee *)	l_element_courant = (struct_liste_chainee *)
(*s_etat_processus).l_base_pile_processus;	(*s_etat_processus).l_base_pile_processus;

if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)
{
affectation_interruptions_logicielles(s_etat_processus);
}

registre_stop = (*s_etat_processus)	registre_stop = (*s_etat_processus)
.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;
Line 2268 instruction_detach(struct_processus *s_e	Line 2473 instruction_detach(struct_processus *s_e
}	}

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

	if ((*s_etat_processus).nombre_interruptions_non_affectees != 0)
	{
	affectation_interruptions_logicielles(s_etat_processus);
	}

nanosleep(&attente, NULL);	nanosleep(&attente, NULL);
pthread_mutex_lock(&((*s_etat_processus).mutex));	pthread_mutex_lock(&((*s_etat_processus).mutex));
}	}
Line 2570 instruction_detach(struct_processus *s_e	Line 2781 instruction_detach(struct_processus *s_e
liberation(s_etat_processus, s_objet);	liberation(s_etat_processus, s_objet);

# ifndef Cygwin	# ifndef Cygwin
	(*s_etat_processus).pile_signal.ss_flags = SS_DISABLE;
	sigaltstack(&((*s_etat_processus).pile_signal), NULL);
free((*s_etat_processus).pile_signal.ss_sp);	free((*s_etat_processus).pile_signal.ss_sp);
# endif	# endif

Line 2625 instruction_detach(struct_processus *s_e	Line 2838 instruction_detach(struct_processus *s_e
# endif	# endif

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

# ifndef SEMAPHORES_NOMMES	# ifndef SEMAPHORES_NOMMES
Line 2644 instruction_detach(struct_processus *s_e	Line 2856 instruction_detach(struct_processus *s_e

clear_history();	clear_history();

	free(s_etat_processus);

# ifdef DEBUG_MEMOIRE	# ifdef DEBUG_MEMOIRE
debug_memoire_verification(s_etat_processus);	debug_memoire_verification();
	analyse_post_mortem();
# endif	# endif

exit(EXIT_SUCCESS);	exit(EXIT_SUCCESS);

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.11
changed lines
	Added in v.1.25