--- rpl/src/instructions_p4.c	2013/03/16 11:31:41	1.46
+++ rpl/src/instructions_p4.c	2013/03/20 22:24:36	1.47
@@ -470,8 +470,8 @@ instruction_prvar(struct_processus *s_et
 void
 instruction_prusr(struct_processus *s_etat_processus)
 {
-	int							i;
-	int							nb_variables;
+	integer8					i;
+	integer8					nb_variables;
 
 	struct_objet				s_objet;
 
@@ -512,8 +512,8 @@ instruction_prusr(struct_processus *s_et
 
 	nb_variables = nombre_variables(s_etat_processus);
 
-	if ((tableau = malloc(nb_variables * sizeof(struct_tableau_variables)))
-			== NULL)
+	if ((tableau = malloc(((size_t) nb_variables) *
+			sizeof(struct_tableau_variables))) == NULL)
 	{
 		liberation_mutexes_arbre_variables_partagees(s_etat_processus,
 				(*(*s_etat_processus).s_arbre_variables_partagees));
@@ -536,7 +536,7 @@ instruction_prusr(struct_processus *s_et
 			return;
 		}
 
-		sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lu]\n",
+		sprintf((unsigned char *) s_objet.objet, "\\\\noindent %s [%lld]\n",
 				tableau[i].nom, tableau[i].niveau);
 
 		formateur_tex(s_etat_processus, &s_objet, 'N');
@@ -563,14 +563,13 @@ instruction_prusr(struct_processus *s_et
 void
 instruction_prmd(struct_processus *s_etat_processus)
 {
+	long						i;
+	long						j;
 	long						longueur_utile;
 	long						longueur_utile_limite;
 
 	struct_objet				s_objet;
 
-	unsigned long				i;
-	unsigned long				j;
-
 	(*s_etat_processus).erreur_execution = d_ex;
 
 	if ((*s_etat_processus).affichage_arguments == 'Y')
@@ -1342,7 +1341,7 @@ instruction_psdev(struct_processus *s_et
 	struct_objet						*s_objet_resultat;
 	struct_objet						*s_objet_temporaire;
 
-	unsigned long						nombre_colonnes;
+	integer8							nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1519,7 +1518,7 @@ instruction_pvar(struct_processus *s_eta
 	struct_objet						*s_objet_resultat;
 	struct_objet						*s_objet_temporaire;
 
-	unsigned long						nombre_colonnes;
+	integer8							nombre_colonnes;
 
 	(*s_etat_processus).erreur_execution = d_ex;