--- rpl/src/rplcore.c	2013/03/06 10:05:09	1.44
+++ rpl/src/rplcore.c	2013/03/21 12:07:38	1.45
@@ -43,9 +43,10 @@ rplcore(struct_processus *s_etat_process
 	logical1					erreur;
 	logical1					fin_boucle;
 
-	long						i;
-	long						j;
-	long						longueur_lignes = 65;
+	int							longueur_lignes = 65;
+
+	integer8					i;
+	integer8					j;
 
 	struct_liste_chainee		*l_base_pile;
 	struct_liste_chainee		*l_element_courant;
@@ -104,8 +105,8 @@ rplcore(struct_processus *s_etat_process
 	}
 
 	snprintf(nom, strlen(ds_rplcore) + 64 + 1,
-			"%s-%lu-%lu", ds_rplcore, (unsigned long) getpid(),
-			(unsigned long) pthread_self());
+			"%s-%llu-%llu", ds_rplcore, (unsigned long long) getpid(),
+			(unsigned long long) pthread_self());
 
 	if ((fichier = fopen(nom, "w+")) == NULL)
 	{
@@ -483,7 +484,7 @@ rplcore(struct_processus *s_etat_process
 					while(((*ptr_bis) != d_code_fin_chaine) &&
 							(fin_boucle == d_faux))
 					{
-						if (j == (long) (*s_etat_processus).position_courante)
+						if (j == (*s_etat_processus).position_courante)
 						{
 							if (fprintf(fichier, ">|<") < 0)
 							{
@@ -528,8 +529,8 @@ rplcore(struct_processus *s_etat_process
 						}
 					}
 
-					if ((i <= (long) (*s_etat_processus).position_courante) &&
-							((i + longueur_lignes) > (long) (*s_etat_processus)
+					if ((i <= (*s_etat_processus).position_courante) &&
+							((i + longueur_lignes) > (*s_etat_processus)
 							.position_courante))
 					{
 						if (fprintf(fichier, "\nError  : ") < 0)