--- rpl/src/bibliotheques_externes.c	2013/02/27 17:11:39	1.50
+++ rpl/src/bibliotheques_externes.c	2013/03/20 17:11:43	1.51
@@ -41,11 +41,11 @@ void *
 chargement_bibliotheque(struct_processus *s_etat_processus,
 		unsigned char *bibliotheque)
 {
-	char					**(*fonction)(unsigned long *, const char *);
+	char					**(*fonction)(integer8	 *, const char *);
 	char					*message;
 
-	long					i;
-	long					nombre_symboles;
+	integer8				i;
+	integer8				nombre_symboles;
 
 	struct_rpl_arguments	rpl_arguments;
 
@@ -362,9 +362,9 @@ chargement_bibliotheque(struct_processus
 	}
 
 	if (((*s_etat_processus).s_instructions_externes = realloc(
-			(*s_etat_processus).s_instructions_externes,
-			((*s_etat_processus).nombre_instructions_externes + nombre_symboles)
-			* sizeof(struct_instruction_externe))) == NULL)
+			(*s_etat_processus).s_instructions_externes, ((size_t)
+			((*s_etat_processus).nombre_instructions_externes +
+			nombre_symboles)) * sizeof(struct_instruction_externe))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return(NULL);
@@ -485,9 +485,9 @@ retrait_bibliotheque(struct_processus *s
 
 	unsigned char				*tampon;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				nombre_symboles_residuels;
+	integer8					i;
+	integer8					j;
+	integer8					nombre_symboles_residuels;
 
 	void						(*onclosing)(struct_rpl_arguments *);
 
@@ -786,7 +786,7 @@ retrait_bibliotheque(struct_processus *s
 			registre = (*s_etat_processus).s_instructions_externes;
 
 			if (((*s_etat_processus).s_instructions_externes =
-					malloc(nombre_symboles_residuels *
+					malloc(((size_t) nombre_symboles_residuels) *
 					sizeof(struct_instruction_externe))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -852,10 +852,9 @@ execution_fonction_de_bibliotheque(struc
 	logical1						presence_bibliotheque;
 	logical1						unicite_symbole;
 
-	long							difference;
-	long							difference_inferieure;
-	long							difference_superieure;
-	long							i;
+	int								difference;
+	int								difference_inferieure;
+	int								difference_superieure;
 
 	struct_liste_chainee			*l_element_courant;
 
@@ -864,11 +863,12 @@ execution_fonction_de_bibliotheque(struc
 	unsigned char					*nom_fonction_externe;
 	unsigned char					*tampon;
 
-	unsigned long					borne_inferieure;
-	unsigned long					borne_superieure;
-	unsigned long					moyenne;
-	unsigned long					nombre_iterations_maximal;
-	unsigned long					ordre_iteration;
+	integer8						borne_inferieure;
+	integer8						borne_superieure;
+	integer8						i;
+	integer8						moyenne;
+	integer8						nombre_iterations_maximal;
+	integer8						ordre_iteration;
 
 	void							(*fonction)(struct_rpl_arguments *);
 
@@ -905,9 +905,9 @@ execution_fonction_de_bibliotheque(struc
 	}
 
 	ordre_iteration = 0;
-	nombre_iterations_maximal = ((unsigned long)
-			(log((*s_etat_processus).nombre_instructions_externes) / log(2)))
-			+ 2;
+	nombre_iterations_maximal = ((integer8)
+			(log((real8) (*s_etat_processus).nombre_instructions_externes) /
+			log(2))) + 2;
 
 	borne_inferieure = 0;
 	borne_superieure = (*s_etat_processus).nombre_instructions_externes - 1;
@@ -917,7 +917,7 @@ execution_fonction_de_bibliotheque(struc
 		moyenne = (borne_inferieure + borne_superieure) / 2;
 		ordre_iteration++;
 
-		if ((2 * ((unsigned long) ((borne_inferieure + borne_superieure) / 2)))
+		if ((2 * ((integer8) ((borne_inferieure + borne_superieure) / 2)))
 				== (borne_inferieure + borne_superieure))
 		{
 			difference = strcmp(nom_fonction, (*s_etat_processus)
@@ -1004,8 +1004,7 @@ execution_fonction_de_bibliotheque(struc
 		{
 			i = moyenne;
 
-			while((unsigned long) i <
-					(*s_etat_processus).nombre_instructions_externes)
+			while(i < (*s_etat_processus).nombre_instructions_externes)
 			{
 				if (strcmp((*s_etat_processus).s_instructions_externes[i]
 						.nom, nom_fonction) != 0)
@@ -1476,7 +1475,7 @@ depilement_pile_operationnelle(struct_rp
 
 struct_liste_chainee *
 sauvegarde_arguments(struct_rpl_arguments *s_rpl_arguments,
-		unsigned long nombre_arguments)
+		integer8 nombre_arguments)
 {
 	struct_liste_chainee			*l_ancienne_base_liste;
 	struct_liste_chainee			*l_element_courant;
@@ -1494,7 +1493,7 @@ sauvegarde_arguments(struct_rpl_argument
 	unsigned char					indice_drapeau;
 	unsigned char					taille_bloc;
 
-	unsigned long					i;
+	integer8						i;
 
 	struct_processus				*s_etat_processus;
 
@@ -1507,7 +1506,7 @@ sauvegarde_arguments(struct_rpl_argument
 	indice_bloc = indice_drapeau / taille_bloc;
 	indice_bit = indice_drapeau % taille_bloc;
 
-	masque = ((t_8_bits) 1) << (taille_bloc - indice_bit - 1);
+	masque = (t_8_bits) ((1 << (taille_bloc - indice_bit - 1)) & 0xFF);
 
 	if (((*s_rpl_arguments).drapeaux_etat[indice_bloc] & masque) == 0)
 	{
@@ -1605,15 +1604,14 @@ tri_base_symboles_externes(struct_proces
 	logical1			terminaison_boucle_2;
 	logical1			terminaison_boucle_3;
 
-	signed long			indice_i;
-	signed long			indice_j;
-	signed long			indice_k;
-	signed long			indice_l;
-
-	unsigned long		borne_inferieure;
-	unsigned long		borne_superieure;
-	unsigned long		ecartement;
-	unsigned long		indice;
+	integer8			borne_inferieure;
+	integer8			borne_superieure;
+	integer8			ecartement;
+	integer8			indice;
+	integer8			indice_i;
+	integer8			indice_j;
+	integer8			indice_k;
+	integer8			indice_l;
 
 	ecartement = (*s_etat_processus).nombre_instructions_externes;
 
@@ -1692,7 +1690,7 @@ tri_base_symboles_externes(struct_proces
 	{
 		indice_j = indice_i;
 
-		while(((unsigned long) (indice_i + 1) < (*s_etat_processus)
+		while(((indice_i + 1) < (*s_etat_processus)
 				.nombre_instructions_externes) && (strcmp(((*s_etat_processus)
 				.s_instructions_externes[indice_i]).nom, ((*s_etat_processus)
 				.s_instructions_externes[indice_i + 1]).nom) == 0))
@@ -1726,8 +1724,7 @@ tri_base_symboles_externes(struct_proces
 		} while(terminaison_boucle == d_faux);
 
 		indice_i++;
-	} while((unsigned long) (indice_i + 1) <
-			(*s_etat_processus).nombre_instructions_externes);
+	} while((indice_i + 1) < (*s_etat_processus).nombre_instructions_externes);
 
 	return;
 }