rpl/src/gestion_objets.c - diff

Return to gestion_objets.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/gestion_objets.c between versions 1.72 and 1.87

version 1.72, 2011/09/21 09:09:22	version 1.87, 2012/10/04 15:21:26
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.3	RPL/2 (R) version 4.1.11
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

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

Line 544 allocation(struct_processus *s_etat_proc	Line 544 allocation(struct_processus *s_etat_proc
return(NULL);	return(NULL);
}	}

	(((struct_mutex ) (*s_objet).objet)).tid = pthread_self();
break;	break;
}	}

Line 1103 liberation(struct_processus *s_etat_proc	Line 1104 liberation(struct_processus *s_etat_proc
return;	return;
}	}

	if (pthread_mutex_trylock(&((((struct_mutex )
	(*s_objet).objet)).mutex)) == 0)
	{
	// On a pu verrouiller le mutex. Il faut donc spécifier le tid.
	(((struct_mutex ) (*s_objet).objet)).tid = pthread_self();
	}

	if (pthread_equal(pthread_self(),
	(((struct_mutex ) (*s_objet).objet)).tid) != 0)
	{
	pthread_mutex_unlock(&((((struct_mutex )
	(*s_objet).objet)).mutex));
	}
	else
	{
	(*s_etat_processus).erreur_systeme =
	d_es_mutex_acquis_autre_thread;
	return;
	}

	pthread_mutex_destroy(&((((struct_mutex )
	(*s_objet).objet)).mutex));
free((struct_mutex ) (s_objet).objet);	free((struct_mutex ) (s_objet).objet);
break;	break;
}	}
Line 2216 copie_objet(struct_processus *s_etat_pro	Line 2239 copie_objet(struct_processus *s_etat_pro

case MTX :	case MTX :
{	{
if (type != 'O')	// La duplication d'un mutex renvoie le même objet.
{	incrementation_atomique(s_objet);
incrementation_atomique(s_objet);	return(s_objet);
return(s_objet);
}

if ((s_nouvel_objet = allocation(s_etat_processus, MTX)) == NULL)
{
return(NULL);
}

(((struct_mutex ) ((*s_nouvel_objet).objet))).mutex =
(((struct_mutex ) ((*s_objet).objet))).mutex;
break;
}	}

case NOM :	case NOM :
Line 2271 copie_objet(struct_processus *s_etat_pro	Line 2283 copie_objet(struct_processus *s_etat_pro
return(s_objet);	return(s_objet);
}	}

	// Un objet de type NON est un objet encapsulé dans une
	// structure de type struct_objet. Elle peut très bien contenir
	// une donnée, mais c'est à l'utilisateur de la libérer
	// explicitement avec un free().

if ((s_nouvel_objet = allocation(s_etat_processus, NON)) == NULL)	if ((s_nouvel_objet = allocation(s_etat_processus, NON)) == NULL)
{	{
return(NULL);	return(NULL);
}	}

(*s_nouvel_objet).objet = NULL;	(s_nouvel_objet).objet = (s_objet).objet;
break;	break;
}	}

Line 2484 copie_objet(struct_processus *s_etat_pro	Line 2501 copie_objet(struct_processus *s_etat_pro
return(NULL);	return(NULL);
}	}

	(((struct_semaphore ) (*s_nouvel_objet).objet)).semaphore =
	(((struct_semaphore ) (*s_objet).objet)).semaphore;
strcpy((((struct_semaphore ) (*s_nouvel_objet).objet)).nom,	strcpy((((struct_semaphore ) (*s_nouvel_objet).objet)).nom,
(((struct_semaphore ) (*s_objet).objet)).nom);	(((struct_semaphore ) (*s_objet).objet)).nom);
break;	break;
Line 2803 copie_etat_processus(struct_processus *s	Line 2822 copie_etat_processus(struct_processus *s

pthread_mutexattr_init(&attributs_mutex);	pthread_mutexattr_init(&attributs_mutex);
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);	pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL);
	(*s_nouvel_etat_processus).sections_critiques = 0;

// Les sémaphores sont initialisés dans le nouveau thread. Il	// Les sémaphores sont initialisés dans le nouveau thread. Il
// s'agit d'une limitation de l'implantation de l'émulation	// s'agit d'une limitation de l'implantation de l'émulation
Line 3103 copie_etat_processus(struct_processus *s	Line 3123 copie_etat_processus(struct_processus *s
* Copie de la table des variables statiques	* Copie de la table des variables statiques
*/	*/

	#warning A FAIRE
	/*
if (((*s_nouvel_etat_processus).s_liste_variables_statiques =	if (((*s_nouvel_etat_processus).s_liste_variables_statiques =
malloc((s_etat_processus).nombre_variables_statiques_allouees	malloc((s_etat_processus).nombre_variables_statiques_allouees
sizeof(struct_variable_statique))) == NULL)	sizeof(struct_variable_statique))) == NULL)
Line 3158 copie_etat_processus(struct_processus *s	Line 3180 copie_etat_processus(struct_processus *s
return(NULL);	return(NULL);
}	}
}	}
	*/

/*	/*
* Copie de la pile opérationnelle	* Copie de la pile opérationnelle

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.72
changed lines
	Added in v.1.87