rpl/src/occupation_memoire.c - diff

Return to occupation_memoire.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/occupation_memoire.c between versions 1.16.2.3 and 1.57

version 1.16.2.3, 2011/05/09 13:52:23	version 1.57, 2017/01/18 15:44:23
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.0.24	RPL/2 (R) version 4.1.26
Copyright (C) 1989-2011 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 39	Line 39
integer8	integer8
occupation_memoire(struct_objet *s_objet)	occupation_memoire(struct_objet *s_objet)
{	{
	integer8 i;
integer8 longueur;	integer8 longueur;

unsigned long i;

struct_liste_chainee *l_element_courant;	struct_liste_chainee *l_element_courant;

if (s_objet == NULL)	if (s_objet == NULL)
Line 54 occupation_memoire(struct_objet *s_objet	Line 53 occupation_memoire(struct_objet *s_objet
{	{
case ADR :	case ADR :
{	{
longueur = sizeof(unsigned long);	longueur = (integer8) sizeof(integer8);
break;	break;
}	}

Line 74 occupation_memoire(struct_objet *s_objet	Line 73 occupation_memoire(struct_objet *s_objet

case BIN :	case BIN :
{	{
longueur = sizeof(logical8);	longueur = (integer8) sizeof(logical8);
break;	break;
}	}

case CHN :	case CHN :
{	{
longueur = strlen((unsigned char ) (s_objet).objet) *	longueur = (integer8) (strlen((unsigned char ) (s_objet).objet)) *
sizeof(unsigned char);	(integer8) sizeof(unsigned char);
break;	break;
}	}

case CPL :	case CPL :
{	{
longueur = sizeof(complex16);	longueur = (integer8) sizeof(complex16);
break;	break;
}	}

case FCH :	case FCH :
{	{
longueur = sizeof(struct_fonction);	longueur = sizeof(struct_fonction);
longueur += strlen((((struct_fichier ) (*s_objet).objet))	longueur += (integer8) (strlen((((struct_fichier )
.nom) * sizeof(unsigned char);	(s_objet).objet)).nom)) (integer8) sizeof(unsigned char);
longueur += occupation_memoire((((struct_fichier )	longueur += occupation_memoire((((struct_fichier )
(*s_objet).objet)).format);	(*s_objet).objet)).format);
break;	break;
Line 104 occupation_memoire(struct_objet *s_objet	Line 103 occupation_memoire(struct_objet *s_objet
case FCT :	case FCT :
{	{
longueur = sizeof(struct_fonction);	longueur = sizeof(struct_fonction);
longueur += strlen((((struct_fonction ) (*s_objet).objet))	longueur += ((integer8) (strlen((((struct_fonction )
.nom_fonction) * sizeof(unsigned char);	(s_objet).objet)).nom_fonction))
	(integer8) sizeof(unsigned char));
break;	break;
}	}

case INT :	case INT :
{	{
longueur = sizeof(integer8);	longueur = (integer8) sizeof(integer8);
break;	break;
}	}

Line 131 occupation_memoire(struct_objet *s_objet	Line 131 occupation_memoire(struct_objet *s_objet

case MCX :	case MCX :
{	{
longueur = sizeof(struct_matrice);	longueur = (integer8) sizeof(struct_matrice);
longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes	longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes
(((struct_matrice ) (s_objet).objet)).nombre_colonnes	(((struct_matrice ) (s_objet).objet)).nombre_colonnes
sizeof(complex16);	(integer8) sizeof(complex16);
break;	break;
}	}

case MIN :	case MIN :
{	{
longueur = sizeof(struct_matrice);	longueur = (integer8) sizeof(struct_matrice);
longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes	longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes
(((struct_matrice ) (s_objet).objet)).nombre_colonnes	(((struct_matrice ) (s_objet).objet)).nombre_colonnes
sizeof(integer8);	(integer8) sizeof(integer8);
break;	break;
}	}

case MRL :	case MRL :
{	{
longueur = sizeof(struct_matrice);	longueur = (integer8) sizeof(struct_matrice);
longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes	longueur += (((struct_matrice ) (s_objet).objet)).nombre_lignes
(((struct_matrice ) (s_objet).objet)).nombre_colonnes	(((struct_matrice ) (s_objet).objet)).nombre_colonnes
sizeof(real8);	(integer8) sizeof(real8);
break;	break;
}	}

Line 164 occupation_memoire(struct_objet *s_objet	Line 164 occupation_memoire(struct_objet *s_objet

case NOM :	case NOM :
{	{
longueur = strlen((((struct_nom ) (s_objet).objet)).nom)	longueur = ((integer8) strlen((((struct_nom ) (*s_objet).objet))
sizeof(unsigned char);	.nom)) * (integer8) sizeof(unsigned char);
break;	break;
}	}

Line 203 occupation_memoire(struct_objet *s_objet	Line 203 occupation_memoire(struct_objet *s_objet

case SCK :	case SCK :
{	{
longueur = strlen((((struct_socket ) (*s_objet).objet))	longueur = ((integer8) strlen((((struct_socket )
.adresse) * sizeof(unsigned char);	(s_objet).objet)).adresse))
longueur += strlen((((struct_socket ) (*s_objet).objet))	(integer8) sizeof(unsigned char);
.adresse_distante) * sizeof(unsigned char);	longueur += ((integer8) strlen((((struct_socket )
	(s_objet).objet)).adresse_distante))
	(integer8) sizeof(unsigned char);
longueur += occupation_memoire((((struct_fichier )	longueur += occupation_memoire((((struct_fichier )
(*s_objet).objet)).format);	(*s_objet).objet)).format);
break;	break;
Line 214 occupation_memoire(struct_objet *s_objet	Line 216 occupation_memoire(struct_objet *s_objet

case SLB :	case SLB :
{	{
longueur = sizeof(struct_bibliotheque);	longueur = (integer8) sizeof(struct_bibliotheque);
longueur += strlen((((struct_bibliotheque ) (*s_objet).objet))	longueur += ((integer8) strlen((((struct_bibliotheque )
.nom) * sizeof(unsigned char);	(s_objet).objet)).nom)) (integer8) sizeof(unsigned char);
break;	break;
}	}

case SPH :	case SPH :
{	{
longueur = sizeof(struct_semaphore);	longueur = (integer8) sizeof(struct_semaphore);
longueur += strlen((((struct_semaphore ) (*s_objet).objet))	longueur += ((integer8) strlen((((struct_semaphore )
.nom) * sizeof(unsigned char);	(s_objet).objet)).nom)) (integer8) sizeof(unsigned char);
break;	break;
}	}

case SQL :	case SQL :
{	{
longueur = sizeof(struct_connecteur_sql);	longueur = (integer8) sizeof(struct_connecteur_sql);
longueur += strlen((((struct_connecteur_sql ) (*s_objet).objet))	longueur += ((integer8) strlen((((struct_connecteur_sql )
.type) * sizeof(unsigned char);	(s_objet).objet)).type))
longueur += strlen((((struct_connecteur_sql ) (*s_objet).objet))	(integer8) sizeof(unsigned char);
.locale) * sizeof(unsigned char);	longueur += (integer8) (strlen((((struct_connecteur_sql )
	(s_objet).objet)).locale))
	((integer8) sizeof(unsigned char));
break;	break;
}	}

case TBL :	case TBL :
{	{
longueur = sizeof(struct_tableau);	longueur = (integer8) sizeof(struct_tableau);

for(i = 0; i < (((struct_tableau ) (*s_objet).objet))	for(i = 0; i < (((struct_tableau ) (*s_objet).objet))
.nombre_elements; i++)	.nombre_elements; i++)
Line 254 occupation_memoire(struct_objet *s_objet	Line 258 occupation_memoire(struct_objet *s_objet

case VCX :	case VCX :
{	{
longueur = sizeof(struct_vecteur);	longueur = (integer8) sizeof(struct_vecteur);
longueur += (((struct_vecteur ) (*s_objet).objet))	longueur += (((struct_vecteur ) (*s_objet).objet))
.taille * sizeof(complex16);	.taille * (integer8) sizeof(complex16);
break;	break;
}	}

case VIN :	case VIN :
{	{
longueur = sizeof(struct_vecteur);	longueur = (integer8) sizeof(struct_vecteur);
longueur += (((struct_vecteur ) (*s_objet).objet))	longueur += (((struct_vecteur ) (*s_objet).objet))
.taille * sizeof(integer8);	.taille * (integer8) sizeof(integer8);
break;	break;
}	}

case VRL :	case VRL :
{	{
longueur = sizeof(struct_vecteur);	longueur = (integer8) sizeof(struct_vecteur);
longueur += (((struct_vecteur ) (*s_objet).objet))	longueur += (((struct_vecteur ) (*s_objet).objet))
.taille * sizeof(real8);	.taille * (integer8) sizeof(real8);
break;	break;
}	}

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.16.2.3
changed lines
	Added in v.1.57