--- rpl/src/rplcore.c	2013/03/06 10:05:09	1.44
+++ rpl/src/rplcore.c	2013/03/22 10:20:35	1.46
@@ -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)
 	{
@@ -146,7 +147,7 @@ rplcore(struct_processus *s_etat_process
 
 	if ((*s_etat_processus).instruction_derniere_erreur != NULL)
 	{
-		if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",
+		if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
 				message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
 		{
 			free(message_erreur);
@@ -158,7 +159,7 @@ rplcore(struct_processus *s_etat_process
 	else if ((*s_etat_processus).instruction_derniere_erreur[0] ==
 			d_code_fin_chaine)
 	{
-		if (fprintf(fichier, "// Error :\n%s [level %lu]\n\n",
+		if (fprintf(fichier, "// Error :\n%s [level %lld]\n\n",
 				message_erreur, (*s_etat_processus).niveau_derniere_erreur) < 0)
 		{
 			free(message_erreur);
@@ -167,7 +168,7 @@ rplcore(struct_processus *s_etat_process
 			return;
 		}
 	}
-	else if (fprintf(fichier, "// Error :\n%s [%s at level %lu]\n\n",
+	else if (fprintf(fichier, "// Error :\n%s [%s at level %lld]\n\n",
 			message_erreur, (*s_etat_processus).instruction_derniere_erreur,
 			(*s_etat_processus).niveau_derniere_erreur) < 0)
 	{
@@ -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)