rpl/src/rplcore.c - diff

Return to rplcore.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/rplcore.c between versions 1.46 and 1.80

CVSweb interface <joel.bertrand@systella.fr>

version 1.46, 2013/03/22 10:20:35	version 1.80, 2025/04/15 10:17:57
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.13	RPL/2 (R) version 4.1.36
Copyright (C) 1989-2013 Dr. BERTRAND Joël	Copyright (C) 1989-2025 Dr. BERTRAND Joël

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

Line 145 rplcore(struct_processus *s_etat_process	Line 145 rplcore(struct_processus *s_etat_process
return;	return;
}	}

if ((*s_etat_processus).instruction_derniere_erreur != NULL)	if ((*s_etat_processus).instruction_derniere_erreur == NULL)
{	{
if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",	if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)	message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
Line 198 rplcore(struct_processus *s_etat_process	Line 198 rplcore(struct_processus *s_etat_process
(*s_etat_processus).l_base_pile_processus;	(*s_etat_processus).l_base_pile_processus;
i = 0;	i = 0;

if (pthread_mutex_trylock(&((*s_etat_processus).mutex)) == 0)	if (pthread_mutex_trylock(&((*s_etat_processus).mutex_pile_processus)) == 0)
{	{
while(l_element_courant != NULL)	while(l_element_courant != NULL)
{	{
Line 206 rplcore(struct_processus *s_etat_process	Line 206 rplcore(struct_processus *s_etat_process
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.processus_detache == d_vrai)	.processus_detache == d_vrai)
{	{
if (fprintf(fichier, "%ld: Process [%d]\n",	if (fprintf(fichier, "%d: Process [%d]\n",
i++, (int) ((((struct_processus_fils *)	(int) i++, (int) ((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread).pid) < 0)	((l_element_courant).donnee).objet)).thread).pid) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
Line 216 rplcore(struct_processus *s_etat_process	Line 216 rplcore(struct_processus *s_etat_process
}	}
else	else
{	{
if (fprintf(fichier, "%ld: Thread [%llu] from [%llu]\n",	if (fprintf(fichier, "%ld: Thread [%llu] from [%d]\n", (int)
i++, (unsigned long long) ((((struct_processus_fils *)	i++, (unsigned long long) ((((struct_processus_fils *)
((l_element_courant).donnee).objet)).thread)	((l_element_courant).donnee).objet)).thread)
.tid, (unsigned long long)	.tid, (int)
((((struct_processus_fils ) ((*l_element_courant)	((((struct_processus_fils ) ((*l_element_courant)
.donnee).objet)).thread).pid) < 0)	.donnee).objet)).thread).pid) < 0)
{	{
Line 231 rplcore(struct_processus *s_etat_process	Line 231 rplcore(struct_processus *s_etat_process
l_element_courant = (*l_element_courant).suivant;	l_element_courant = (*l_element_courant).suivant;
}	}

if (fprintf(fichier, "%ld: Process [%d]\n\n", i,	if (fprintf(fichier, "%ld: Process [%d]\n\n", (int) i,
(int) getpid()) < 0)	(int) getpid()) < 0)
{	{
(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;	(*s_etat_processus).erreur_systeme = d_es_erreur_fichier;
return;	return;
}	}

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

if (test_cfsf(s_etat_processus, 31) == d_vrai)	if (test_cfsf(s_etat_processus, 31) == d_vrai)

Removed from v.1.46
changed lines
	Added in v.1.80