--- rpl/src/interface_tex.c	2013/02/27 17:11:45	1.46
+++ rpl/src/interface_tex.c	2013/03/21 11:30:30	1.47
@@ -497,10 +497,10 @@ formateur_elementaire_tex(struct_process
 	unsigned char					test_instruction;
 	unsigned char					*tampon;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					niveau;
-	unsigned long					nombre_arguments;
+	integer8						i;
+	integer8						j;
+	integer8						niveau;
+	integer8						nombre_arguments;
 
 	/*
 	 * Entier binaire
@@ -977,7 +977,7 @@ formateur_elementaire_tex(struct_process
 			return;
 		}
 
-		for(i = 0; i < strlen(ligne); i++)
+		for(i = 0; i < (integer8) strlen(ligne); i++)
 		{
 			switch(ligne[i])
 			{
@@ -992,7 +992,7 @@ formateur_elementaire_tex(struct_process
 						return;
 					}
 
-					strncpy(tampon, ligne, i);
+					strncpy(tampon, ligne, (size_t) i);
 					strcpy(&(tampon[i]), "\\times 10^{");
 					strcat(tampon, &(ligne[++i]));
 					strcat(tampon, "}");
@@ -1014,7 +1014,7 @@ formateur_elementaire_tex(struct_process
 						return;
 					}
 
-					strncpy(tampon, ligne, ++i);
+					strncpy(tampon, ligne, (size_t) ++i);
 					strcpy(&(tampon[i]), "\\!");
 					strcat(tampon, &(ligne[i]));
 					i += 2;
@@ -1539,7 +1539,8 @@ formateur_elementaire_tex(struct_process
 							{
 								niveau = 0;
 
-								for(i = 1; i < (strlen((unsigned char *)
+								for(i = 1; i < (integer8)
+										(strlen((unsigned char *)
 										(*s_sous_objet_1).objet) - 1); i++)
 								{
 									if (((unsigned char *) (*s_sous_objet_1)
@@ -1982,11 +1983,12 @@ formateur_elementaire_tex(struct_process
 
 						if ((*s_etat_processus).instruction_valide == 'Y')
 						{
-							for(i = 0; i < strlen(chaine); i++)
+							for(i = 0; i < (integer8) strlen(chaine); i++)
 							{
 								if ((chaine[i] >= 'A') && (chaine[i] <= 'Z'))
 								{
-									chaine[i] += ('a' - 'A');
+									chaine[i] = (unsigned char)
+											(chaine[i] + ('a' - 'A'));
 								}
 							}
 						}
@@ -2043,8 +2045,8 @@ formateur_elementaire_tex(struct_process
 					ptrl = chaine_sauvegarde;
 					ptre = (unsigned char *) (*s_sous_objet).objet;
 
-					for(ptrl++, i = strlen(chaine_sauvegarde) - 2; i > 0;
-							i--, *ptre++ = *ptrl++);
+					for(ptrl++, i = (integer8) (strlen(chaine_sauvegarde) - 2);
+							i > 0; i--, *ptre++ = *ptrl++);
 
 					(*ptre) = d_code_fin_chaine;
 
@@ -2154,11 +2156,12 @@ correction_formateur_tex(struct_processu
 	logical1					mode_mathematique;
 
 	unsigned char				*tampon;
-	unsigned long				i;
+
+	integer8					i;
 
 	mode_mathematique = d_faux;
 
-	for(i = 0; i < strlen((*ligne)); i++)
+	for(i = 0; i < (integer8) strlen((*ligne)); i++)
 	{
 		switch((*ligne)[i])
 		{
@@ -2205,7 +2208,7 @@ correction_formateur_tex(struct_processu
 					return;
 				}
 
-				strncpy(tampon, (*ligne), i);
+				strncpy(tampon, (*ligne), (size_t) i);
 				strcpy(&(tampon[i]), "\\");
 				strcat(tampon, &((*ligne)[i++]));
 
@@ -2251,7 +2254,7 @@ impression_tex(struct_processus *s_etat_
 	unsigned char		*nom_fichier_tex;
 	unsigned char		*nom_fichier_ps;
 
-	unsigned long		longueur_nom_base;
+	size_t				longueur_nom_base;
 
 	longueur_nom_base = strlen((*s_etat_processus).nom_fichier_impression);
 
@@ -2542,10 +2545,10 @@ conversion_element_tex(unsigned char **e
 	unsigned char			*element_courant;
 	unsigned char			*extrait;
 
-	unsigned long			debut_fonction;
-	unsigned long			i;
-	unsigned long			niveau;
-	unsigned long			nombre_passages_par_zero;
+	integer8				debut_fonction;
+	integer8				i;
+	integer8				niveau;
+	integer8				nombre_passages_par_zero;
 
 	element_courant = (*element);
 	niveau = 0;