rpl/src/gestion_objets.c - diff

Return to gestion_objets.c CVS log

Up to [local] / rpl / src

version 1.129, 2016/09/27 15:29:33	version 1.132, 2017/06/29 12:33:34
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.26	RPL/2 (R) version 4.1.27
Copyright (C) 1989-2016 Dr. BERTRAND Joël	Copyright (C) 1989-2017 Dr. BERTRAND Joël

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

Line 343 allocation(struct_processus *s_etat_proc	Line 343 allocation(struct_processus *s_etat_proc
}	}

(*s_objet).type = type;	(*s_objet).type = type;
	(*s_objet).extension_type = 0;
	(*s_objet).descripteur_bibliotheque = NULL;

switch(type)	switch(type)
{	{
Line 434 allocation(struct_processus *s_etat_proc	Line 436 allocation(struct_processus *s_etat_proc
break;	break;
}	}

	case EXT :
	{
	// Aucune allocation
	break;
	}

case FCT :	case FCT :
{	{
if ((*s_etat_processus).pointeur_fct > 0)	if ((*s_etat_processus).pointeur_fct > 0)
Line 950 liberation(struct_processus *s_etat_proc	Line 958 liberation(struct_processus *s_etat_proc
break;	break;
}	}

	case EXT :
	{
	if (decrementation_atomique(s_objet) > 0)
	{
	return;
	}

	BUG((*s_objet).descripteur_bibliotheque == NULL,
	pthread_mutex_unlock(&((*s_objet).mutex)),
	printf("(*s_objet).liberation==NULL\n"));
	break;
	}

case FCH :	case FCH :
{	{
if (decrementation_atomique(s_objet) > 0)	if (decrementation_atomique(s_objet) > 0)