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.90 and 1.96

version 1.90, 2012/12/17 21:22:43	version 1.96, 2013/03/10 17:01:05
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.11	RPL/2 (R) version 4.1.13
Copyright (C) 1989-2012 Dr. BERTRAND Joël	Copyright (C) 1989-2013 Dr. BERTRAND Joël

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

Line 152 liberation_allocateur(struct_processus *	Line 152 liberation_allocateur(struct_processus *

for(i = 0; i < (*s_etat_processus).pointeur_variables_noeud;	for(i = 0; i < (*s_etat_processus).pointeur_variables_noeud;
free((*s_etat_processus).variables_noeud[i++]));	free((*s_etat_processus).variables_noeud[i++]));
	for(i = 0; i < (*s_etat_processus).pointeur_variables_partagees_noeud;
	free((*s_etat_processus).variables_partagees_noeud[i++]));
for(i = 0; i < (*s_etat_processus).pointeur_variables_feuille;	for(i = 0; i < (*s_etat_processus).pointeur_variables_feuille;
free((*s_etat_processus).variables_feuille[i++]));	free((*s_etat_processus).variables_feuille[i++]));
for(i = 0; i < (*s_etat_processus).pointeur_variables_variable;	for(i = 0; i < (*s_etat_processus).pointeur_variables_variable;
free((*s_etat_processus).variables_variable[i++]));	free((*s_etat_processus).variables_variable[i++]));
for(i = 0; i < (*s_etat_processus).pointeur_variables_tableau_noeuds;	for(i = 0; i < (*s_etat_processus).pointeur_variables_tableau_noeuds;
free((*s_etat_processus).variables_tableau_noeuds[i++]));	free((*s_etat_processus).variables_tableau_noeuds[i++]));
	for(i = 0; i < (*s_etat_processus)
	.pointeur_variables_tableau_noeuds_partages;
	free((*s_etat_processus).variables_tableau_noeuds_partages[i++]));

{	{
struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;
Line 240 allocation_maillon(struct_processus *s_e	Line 245 allocation_maillon(struct_processus *s_e
{	{
if ((s_maillon = malloc(sizeof(struct_liste_chainee))) == NULL)	if ((s_maillon = malloc(sizeof(struct_liste_chainee))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}
}	}
Line 313 allocation(struct_processus *s_etat_proc	Line 319 allocation(struct_processus *s_etat_proc

if ((s_objet = malloc(sizeof(struct_objet))) == NULL)	if ((s_objet = malloc(sizeof(struct_objet))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
return(NULL);	return(NULL);
}	}

Line 350 allocation(struct_processus *s_etat_proc	Line 357 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(unsigned long))) == NULL)	if (((*s_objet).objet = malloc(sizeof(unsigned long))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 375 allocation(struct_processus *s_etat_proc	Line 384 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(logical8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(logical8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 401 allocation(struct_processus *s_etat_proc	Line 412 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_complexe16)))	if (((*s_objet).objet = malloc(sizeof(struct_complexe16)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 413 allocation(struct_processus *s_etat_proc	Line 426 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_fichier))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_fichier))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 432 allocation(struct_processus *s_etat_proc	Line 446 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_fonction)))	if (((*s_objet).objet = malloc(sizeof(struct_fonction)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 455 allocation(struct_processus *s_etat_proc	Line 471 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(integer8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(integer8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 480 allocation(struct_processus *s_etat_proc	Line 498 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 503 allocation(struct_processus *s_etat_proc	Line 523 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 526 allocation(struct_processus *s_etat_proc	Line 548 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_matrice))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 542 allocation(struct_processus *s_etat_proc	Line 566 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_mutex))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_mutex))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 561 allocation(struct_processus *s_etat_proc	Line 586 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_nom))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_nom))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 580 allocation(struct_processus *s_etat_proc	Line 607 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_processus_fils)))	if (((*s_objet).objet = malloc(sizeof(struct_processus_fils)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 598 allocation(struct_processus *s_etat_proc	Line 626 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(real8))) == NULL)	if (((*s_objet).objet = malloc(sizeof(real8))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 616 allocation(struct_processus *s_etat_proc	Line 646 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_socket))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_socket))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 628 allocation(struct_processus *s_etat_proc	Line 659 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_bibliotheque)))	if (((*s_objet).objet = malloc(sizeof(struct_bibliotheque)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 639 allocation(struct_processus *s_etat_proc	Line 671 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_semaphore))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_semaphore))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 651 allocation(struct_processus *s_etat_proc	Line 684 allocation(struct_processus *s_etat_proc
if (((*s_objet).objet = malloc(sizeof(struct_connecteur_sql)))	if (((*s_objet).objet = malloc(sizeof(struct_connecteur_sql)))
== NULL)	== NULL)
{	{
	(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 669 allocation(struct_processus *s_etat_proc	Line 703 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_tableau))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_tableau))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 690 allocation(struct_processus *s_etat_proc	Line 726 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 712 allocation(struct_processus *s_etat_proc	Line 750 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}
Line 734 allocation(struct_processus *s_etat_proc	Line 774 allocation(struct_processus *s_etat_proc
{	{
if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)	if (((*s_objet).objet = malloc(sizeof(struct_vecteur))) == NULL)
{	{
	(*s_etat_processus).erreur_systeme =
	d_es_allocation_memoire;
free(s_objet);	free(s_objet);
return(NULL);	return(NULL);
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.90
changed lines
	Added in v.1.96