--- rpl/src/formateur_fichiers.c	2011/11/15 07:01:37	1.34
+++ rpl/src/formateur_fichiers.c	2011/11/18 20:24:40	1.35
@@ -75,8 +75,6 @@ formateur_fichier(struct_processus *s_et
 
 	logical1					autorisation_parenthese;
 	logical1					format_degenere;
-	logical1					longueur_3bits;
-	logical1					longueur_6bits;
 	logical1					presence_signe;
 
 	struct_liste_chainee		*l_atome;
@@ -97,16 +95,12 @@ formateur_fichier(struct_processus *s_et
 	unsigned char				*chaine_tampon;
 	unsigned char				*chaine_sauvegarde;
 	unsigned char				*format_chaine;
-	unsigned char				longueur_optimale;
-	unsigned char				parametre_longueur;
 	unsigned char				*ptre;
 	unsigned char				*ptrl;
 	unsigned char				tampon[64 + 1];
 
 	unsigned long				i;
 	unsigned long				j;
-	unsigned long				longueur_binaire;
-	unsigned long				longueur_champ_final;
 	unsigned long				nombre_arguments;
 	unsigned long				nombre_arguments_fonction;
 	unsigned long				nombre_colonnes;
@@ -114,16 +108,12 @@ formateur_fichier(struct_processus *s_et
 	unsigned long				nombre_lignes;
 
 	integer8					longueur_liste;
-	integer8					longueur_entete;
-	integer8					longueur_objet;
 	integer8					longueur_totale;
 	integer8					masque_binaire;
 	integer8					position_1;
 	integer8					position_2;
 	integer8					position_3;
 
-	long						offset;
-
 	(*recursivite)++;
 
 	if (type == 'F')
@@ -138,7 +128,6 @@ formateur_fichier(struct_processus *s_et
 
 		strcpy(base, " ");
 
-		longueur_binaire = 0;
 		masque_binaire = 0;
 
 		if ((*s_objet).type == ALG)
@@ -998,7 +987,6 @@ formateur_fichier(struct_processus *s_et
 				return(NULL);
 			}
 
-			longueur_binaire = longueur_entiers_binaires(s_etat_processus);
 			masque_binaire = masque_entiers_binaires(s_etat_processus);
 
 			if ((test_cfsf(s_etat_processus, 43) == d_faux) &&
@@ -2873,7 +2861,6 @@ formateur_fichier(struct_processus *s_et
 
 		strcpy(base, " ");
 
-		longueur_binaire = 0;
 		masque_binaire = 0;
 
 		if ((*s_objet).type == ALG)
@@ -3733,7 +3720,6 @@ formateur_fichier(struct_processus *s_et
 				return(NULL);
 			}
 
-			longueur_binaire = longueur_entiers_binaires(s_etat_processus);
 			masque_binaire = masque_entiers_binaires(s_etat_processus);
 
 			if ((test_cfsf(s_etat_processus, 43) == d_faux) &&