--- rpl/src/compilation.c	2013/03/17 22:26:43	1.56
+++ rpl/src/compilation.c	2014/07/17 08:07:16	1.67
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.13
-  Copyright (C) 1989-2013 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.19
+  Copyright (C) 1989-2014 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -54,15 +54,15 @@ compilation(struct_processus *s_etat_pro
 	unsigned char			ouverture_definition;
 	unsigned char			position_debut_nom_definition_valide;
 
-	unsigned long			*adresse;
-	unsigned long			i;
-	unsigned long			niveau_definition;
-	unsigned long			niveau_definition_registre;
-	unsigned long			position_courante;
-	unsigned long			position_debut_nom_definition;
-	unsigned long			position_fin_nom_definition;
-	unsigned long			validation;
-	unsigned long			validation_registre;
+	integer8				*adresse;
+	integer8				i;
+	integer8				niveau_definition;
+	integer8				niveau_definition_registre;
+	integer8				position_courante;
+	integer8				position_debut_nom_definition;
+	integer8				position_fin_nom_definition;
+	integer8				validation;
+	integer8				validation_registre;
 
 	(*s_etat_processus).erreur_compilation = d_ec;
 	(*s_etat_processus).erreur_systeme = d_es;
@@ -257,9 +257,9 @@ compilation(struct_processus *s_etat_pro
 			s_variable = (struct_variable *)
 					malloc(sizeof(struct_variable));
 			adresse = (*s_objet).objet;
-			definition = (unsigned char *) malloc(
+			definition = (unsigned char *) malloc(((size_t)
 					(position_fin_nom_definition -
-					position_debut_nom_definition + 2) *
+					position_debut_nom_definition + 2)) *
 					sizeof(unsigned char));
 
 			if ((s_objet == NULL) || (s_variable == NULL) ||
@@ -980,13 +980,13 @@ readline_effacement(int count, int key)
 */
 
 void
-swap(void *variable_1, void *variable_2, unsigned long taille)
+swap(void *variable_1, void *variable_2, integer8 taille)
 {
 	register unsigned char		*t_var_1;
 	register unsigned char		*t_var_2;
 	register unsigned char		variable_temporaire;
 
-	register unsigned long		i;
+	register integer8			i;
 
 	t_var_1 = (unsigned char *) variable_1;
 	t_var_2 = (unsigned char *) variable_2;
@@ -1019,8 +1019,9 @@ recherche_instruction_suivante(struct_pr
 {
 	logical1					drapeau_fin_objet;
 	logical1					erreur;
-	logical1					erreur_analyse;
-	logical1					erreur_format;
+
+	int							erreur_analyse;
+	int							erreur_format;
 
 	unsigned char				base_binaire;
 	unsigned char				*pointeur_caractere_courant;
@@ -1748,8 +1749,8 @@ recherche_instruction_suivante(struct_pr
 	pointeur_fin_instruction = pointeur_caractere_courant;
 
 	(*s_etat_processus).instruction_courante = (unsigned char *)
-				malloc(((pointeur_fin_instruction - pointeur_debut_instruction)
-				+ 1) * sizeof(unsigned char));
+				malloc((((size_t) (pointeur_fin_instruction
+				- pointeur_debut_instruction)) + 1) * sizeof(unsigned char));
 
 	if ((*s_etat_processus).instruction_courante == NULL)
 	{
@@ -1806,7 +1807,7 @@ conversion_majuscule(unsigned char *chai
 	register unsigned char		*caractere_courant_converti;
 	register unsigned char		*chaine_convertie;
 
-	unsigned long				longueur_chaine_plus_terminaison;
+	integer8					longueur_chaine_plus_terminaison;
 
 	longueur_chaine_plus_terminaison = 0;
 	caractere_courant = chaine;
@@ -1819,7 +1820,8 @@ conversion_majuscule(unsigned char *chai
 
 	caractere_courant = chaine;
 	caractere_courant_converti = chaine_convertie = (unsigned char *) malloc(
-			(longueur_chaine_plus_terminaison + 1) * sizeof(unsigned char));
+			((size_t) (longueur_chaine_plus_terminaison + 1))
+			* sizeof(unsigned char));
 
 	if (chaine_convertie != NULL)
 	{
@@ -1847,9 +1849,9 @@ conversion_majuscule(unsigned char *chai
 
 void
 conversion_majuscule_limitee(unsigned char *chaine_entree,
-		unsigned char *chaine_sortie, unsigned long longueur)
+		unsigned char *chaine_sortie, integer8 longueur)
 {
-	unsigned long			i;
+	integer8			i;
 
 	for(i = 0; i < longueur; i++)
 	{
@@ -1893,7 +1895,7 @@ initialisation_drapeaux(struct_processus
 {
 	unsigned long					i;
 
-	for(i = 0; i < 31; cf(s_etat_processus, i++));
+	for(i = 0; i < 31; cf(s_etat_processus, (unsigned char) i++));
 
 	if ((*s_etat_processus).lancement_interactif == d_vrai)
 	{