--- rpl/src/gestion_variables.c	2013/02/27 17:11:40	1.69
+++ rpl/src/gestion_variables.c	2013/03/20 17:11:44	1.70
@@ -284,7 +284,8 @@ allocation_tableau_noeuds(struct_process
 	}
 	else
 	{
-		objet = malloc((*s_etat_processus).nombre_caracteres_variables
+		objet = malloc(((size_t) (*s_etat_processus)
+				.nombre_caracteres_variables)
 				* sizeof(struct_arbre_variables *));
 	}
 
@@ -988,7 +989,7 @@ recherche_variable(struct_processus *s_e
 
 	unsigned char				*ptr;
 
-	unsigned long				niveau_appel;
+	integer8					niveau_appel;
 
 	if ((*s_etat_processus).s_arbre_variables == NULL)
 	{
@@ -1203,7 +1204,7 @@ retrait_variable(struct_processus *s_eta
 	struct_liste_variables		*variable_a_supprimer;
 	struct_liste_variables		*variables_par_niveau;
 
-	unsigned long				niveau;
+	integer8					niveau;
 
 	(*s_etat_processus).niveau_supprime = d_faux;
 
@@ -1789,12 +1790,12 @@ liberation_arbre_variables(struct_proces
 ================================================================================
 */
 
-static int
+static integer8
 nombre_variables_locales(struct_processus *s_etat_processus,
 		struct_arbre_variables *l_element_courant)
 {
-	int									i;
-	int									n;
+	integer8							i;
+	integer8							n;
 
 	struct_liste_variables				*l_variable;
 	struct_liste_variables_statiques	*l_variable_statique;
@@ -1848,12 +1849,12 @@ nombre_variables_locales(struct_processu
 }
 
 
-static int
+static integer8
 nombre_variables_partagees(struct_processus *s_etat_processus,
 		struct_arbre_variables_partagees *l_element_courant)
 {
-	int									i;
-	int									n;
+	integer8							i;
+	integer8							n;
 
 	struct_liste_variables_partagees	*l_variable;
 
@@ -1894,7 +1895,7 @@ nombre_variables_partagees(struct_proces
 }
 
 
-int
+integer8
 nombre_variables(struct_processus *s_etat_processus)
 {
 	return(nombre_variables_locales(s_etat_processus,
@@ -1940,12 +1941,12 @@ liberation_mutexes_arbre_variables_parta
 }
 
 
-static int
+static integer8
 liste_variables_locales(struct_processus *s_etat_processus,
-		struct_tableau_variables *tableau, int position,
+		struct_tableau_variables *tableau, integer8 position,
 		struct_arbre_variables *l_element_courant)
 {
-	int									i;
+	integer8							i;
 
 	struct_liste_variables				*l_variable;
 	struct_liste_variables_statiques	*l_variable_statique;
@@ -2018,12 +2019,12 @@ liste_variables_locales(struct_processus
 }
 
 
-static int
+static integer8
 liste_variables_partagees(struct_processus *s_etat_processus,
-		struct_tableau_variables *tableau, int position,
+		struct_tableau_variables *tableau, integer8 position,
 		struct_arbre_variables_partagees *l_element_courant)
 {
-	int									i;
+	integer8							i;
 
 	struct_liste_variables_partagees	*l_variable;
 
@@ -2086,16 +2087,16 @@ fonction_ordre_variables(const void *arg
 	}
 	else
 	{
-		return((*a1).niveau - (*a2).niveau);
+		return(((((*a1).niveau - (*a2).niveau)) > 0) ? 1 : -1);
 	}
 }
 
 
-int
+integer8
 liste_variables(struct_processus *s_etat_processus,
 		struct_tableau_variables *tableau)
 {
-	int		nombre_elements;
+	integer8		nombre_elements;
 
 	nombre_elements = liste_variables_locales(s_etat_processus,
 			tableau, 0, (*s_etat_processus).s_arbre_variables);
@@ -2103,7 +2104,7 @@ liste_variables(struct_processus *s_etat
 			tableau, nombre_elements, (*(*s_etat_processus)
 			.s_arbre_variables_partagees));
 
-	qsort(tableau, nombre_elements, sizeof(struct_tableau_variables),
+	qsort(tableau, (size_t) nombre_elements, sizeof(struct_tableau_variables),
 			fonction_ordre_variables);
 
 	return(nombre_elements);
@@ -2456,7 +2457,7 @@ initialisation_variables(struct_processu
 	}
 
 	if (((*s_etat_processus).pointeurs_caracteres_variables =
-			malloc(longueur_tableau * sizeof(int))) == NULL)
+			malloc(((size_t) longueur_tableau) * sizeof(int))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;