--- rpl/src/occupation_memoire.c	2013/02/27 17:11:45	1.40
+++ rpl/src/occupation_memoire.c	2013/03/21 11:30:31	1.41
@@ -39,10 +39,9 @@
 integer8
 occupation_memoire(struct_objet *s_objet)
 {
+	integer8					i;
 	integer8					longueur;
 
-	unsigned long				i;
-
 	struct_liste_chainee		*l_element_courant;
 
 	if (s_objet == NULL)
@@ -54,7 +53,7 @@ occupation_memoire(struct_objet *s_objet
 	{
 		case ADR :
 		{
-			longueur = sizeof(unsigned long);
+			longueur = (integer8) sizeof(integer8);
 			break;
 		}
 
@@ -74,28 +73,28 @@ occupation_memoire(struct_objet *s_objet
 
 		case BIN :
 		{
-			longueur = sizeof(logical8);
+			longueur = (integer8) sizeof(logical8);
 			break;
 		}
 
 		case CHN :
 		{
-			longueur = strlen((unsigned char *) (*s_objet).objet) *
-					sizeof(unsigned char);
+			longueur = (integer8) (strlen((unsigned char *) (*s_objet).objet)) *
+					(integer8) sizeof(unsigned char);
 			break;
 		}
 
 		case CPL :
 		{
-			longueur = sizeof(complex16);
+			longueur = (integer8) sizeof(complex16);
 			break;
 		}
 
 		case FCH :
 		{
 			longueur = sizeof(struct_fonction);
-			longueur += strlen((*((struct_fichier *) (*s_objet).objet))
-					.nom) * sizeof(unsigned char);
+			longueur += (integer8) (strlen((*((struct_fichier *)
+				 	(*s_objet).objet)).nom)) * (integer8) sizeof(unsigned char);
 			longueur += occupation_memoire((*((struct_fichier *) 
 					(*s_objet).objet)).format);
 			break;
@@ -104,14 +103,15 @@ occupation_memoire(struct_objet *s_objet
 		case FCT :
 		{
 			longueur = sizeof(struct_fonction);
-			longueur += strlen((*((struct_fonction *) (*s_objet).objet))
-					.nom_fonction) * sizeof(unsigned char);
+			longueur += ((integer8) (strlen((*((struct_fonction *)
+					(*s_objet).objet)).nom_fonction)) *
+					(integer8) sizeof(unsigned char));
 			break;
 		}
 
 		case INT :
 		{
-			longueur = sizeof(integer8);
+			longueur = (integer8) sizeof(integer8);
 			break;
 		}
 
@@ -131,28 +131,28 @@ occupation_memoire(struct_objet *s_objet
 
 		case MCX :
 		{
-			longueur = sizeof(struct_matrice);
+			longueur = (integer8) sizeof(struct_matrice);
 			longueur += (*((struct_matrice *) (*s_objet).objet)).nombre_lignes *
 					(*((struct_matrice *) (*s_objet).objet)).nombre_colonnes *
-					sizeof(complex16);
+					(integer8) sizeof(complex16);
 			break;
 		}
 
 		case MIN :
 		{
-			longueur = sizeof(struct_matrice);
+			longueur = (integer8) sizeof(struct_matrice);
 			longueur += (*((struct_matrice *) (*s_objet).objet)).nombre_lignes *
 					(*((struct_matrice *) (*s_objet).objet)).nombre_colonnes *
-					sizeof(integer8);
+					(integer8) sizeof(integer8);
 			break;
 		}
 
 		case MRL :
 		{
-			longueur = sizeof(struct_matrice);
+			longueur = (integer8) sizeof(struct_matrice);
 			longueur += (*((struct_matrice *) (*s_objet).objet)).nombre_lignes *
 					(*((struct_matrice *) (*s_objet).objet)).nombre_colonnes *
-					sizeof(real8);
+					(integer8) sizeof(real8);
 			break;
 		}
 
@@ -164,8 +164,8 @@ occupation_memoire(struct_objet *s_objet
 
 		case NOM :
 		{
-			longueur = strlen((*((struct_nom *) (*s_objet).objet)).nom) *
-					sizeof(unsigned char);
+			longueur = ((integer8) strlen((*((struct_nom *) (*s_objet).objet))
+					.nom)) * (integer8) sizeof(unsigned char);
 			break;
 		}
 
@@ -203,10 +203,12 @@ occupation_memoire(struct_objet *s_objet
 
 		case SCK :
 		{
-			longueur = strlen((*((struct_socket *) (*s_objet).objet))
-					.adresse) * sizeof(unsigned char);
-			longueur += strlen((*((struct_socket *) (*s_objet).objet))
-					.adresse_distante) * sizeof(unsigned char);
+			longueur = ((integer8) strlen((*((struct_socket *)
+					(*s_objet).objet)).adresse)) *
+					(integer8) sizeof(unsigned char);
+			longueur += ((integer8) strlen((*((struct_socket *)
+					(*s_objet).objet)).adresse_distante)) *
+					(integer8) sizeof(unsigned char);
 			longueur += occupation_memoire((*((struct_fichier *) 
 					(*s_objet).objet)).format);
 			break;
@@ -214,33 +216,35 @@ occupation_memoire(struct_objet *s_objet
 
 		case SLB :
 		{
-			longueur = sizeof(struct_bibliotheque);
-			longueur += strlen((*((struct_bibliotheque *) (*s_objet).objet))
-					.nom) * sizeof(unsigned char);
+			longueur = (integer8) sizeof(struct_bibliotheque);
+			longueur += ((integer8) strlen((*((struct_bibliotheque *)
+					(*s_objet).objet)).nom)) * (integer8) sizeof(unsigned char);
 			break;
 		}
 
 		case SPH :
 		{
-			longueur = sizeof(struct_semaphore);
-			longueur += strlen((*((struct_semaphore *) (*s_objet).objet))
-					.nom) * sizeof(unsigned char);
+			longueur = (integer8) sizeof(struct_semaphore);
+			longueur += ((integer8) strlen((*((struct_semaphore *)
+					(*s_objet).objet)).nom)) * (integer8) sizeof(unsigned char);
 			break;
 		}
 
 		case SQL :
 		{
-			longueur = sizeof(struct_connecteur_sql);
-			longueur += strlen((*((struct_connecteur_sql *) (*s_objet).objet))
-					.type) * sizeof(unsigned char);
-			longueur += strlen((*((struct_connecteur_sql *) (*s_objet).objet))
-					.locale) * sizeof(unsigned char);
+			longueur = (integer8) sizeof(struct_connecteur_sql);
+			longueur += ((integer8) strlen((*((struct_connecteur_sql *)
+					(*s_objet).objet)).type)) *
+					(integer8) sizeof(unsigned char);
+			longueur += (integer8) (strlen((*((struct_connecteur_sql *)
+					(*s_objet).objet)).locale)) *
+					((integer8) sizeof(unsigned char));
 			break;
 		}
 
 		case TBL :
 		{
-			longueur = sizeof(struct_tableau);
+			longueur = (integer8) sizeof(struct_tableau);
 
 			for(i = 0; i < (*((struct_tableau *) (*s_objet).objet))
 					.nombre_elements; i++)
@@ -254,25 +258,25 @@ occupation_memoire(struct_objet *s_objet
 
 		case VCX :
 		{
-			longueur = sizeof(struct_vecteur);
+			longueur = (integer8) sizeof(struct_vecteur);
 			longueur += (*((struct_vecteur *) (*s_objet).objet))
-					.taille * sizeof(complex16);
+					.taille * (integer8) sizeof(complex16);
 			break;
 		}
 
 		case VIN :
 		{
-			longueur = sizeof(struct_vecteur);
+			longueur = (integer8) sizeof(struct_vecteur);
 			longueur += (*((struct_vecteur *) (*s_objet).objet))
-					.taille * sizeof(integer8);
+					.taille * (integer8) sizeof(integer8);
 			break;
 		}
 
 		case VRL :
 		{
-			longueur = sizeof(struct_vecteur);
+			longueur = (integer8) sizeof(struct_vecteur);
 			longueur += (*((struct_vecteur *) (*s_objet).objet))
-					.taille * sizeof(real8);
+					.taille * (integer8) sizeof(real8);
 			break;
 		}