--- rpl/src/instructions_f4.c	2013/02/26 19:56:14	1.42
+++ rpl/src/instructions_f4.c	2013/03/21 16:31:59	1.45
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
+  RPL/2 (R) version 4.1.13
   Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -40,8 +40,8 @@ instruction_fleche_table(struct_processu
 {
 	struct_objet					*s_objet;
 
-	signed long						i;
-	signed long						nombre_elements;
+	integer8						i;
+	integer8						nombre_elements;
 
     (*s_etat_processus).erreur_execution = d_ex;
 
@@ -116,8 +116,7 @@ instruction_fleche_table(struct_processu
 		return;
 	}
 
-	if ((unsigned long) nombre_elements >=
-			(*s_etat_processus).hauteur_pile_operationnelle)
+	if (nombre_elements >= (*s_etat_processus).hauteur_pile_operationnelle)
 	{
 		(*s_etat_processus).erreur_execution = d_ex_manque_argument;
 		return;
@@ -149,8 +148,8 @@ instruction_fleche_table(struct_processu
 	(*((struct_tableau *) (*s_objet).objet)).nombre_elements =
 			nombre_elements;
 
-	if (((*((struct_tableau *) (*s_objet).objet)).elements = malloc(
-			nombre_elements * sizeof(struct_objet *))) == NULL)
+	if (((*((struct_tableau *) (*s_objet).objet)).elements = malloc(((size_t)
+			nombre_elements) * sizeof(struct_objet *))) == NULL)
 	{
 		(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 		return;
@@ -194,8 +193,8 @@ instruction_fleche_diag(struct_processus
 	struct_objet				*s_objet_argument;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
+	integer8					i;
+	integer8					j;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -256,8 +255,9 @@ instruction_fleche_diag(struct_processus
 				(*((struct_vecteur *) (*s_objet_argument).objet)).taille;
 
 		if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat).objet))
-				.nombre_lignes * sizeof(integer8 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *)
+				(*s_objet_resultat).objet)).nombre_lignes)
+				* sizeof(integer8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -268,8 +268,8 @@ instruction_fleche_diag(struct_processus
 		{
 			if ((((integer8 **) (*((struct_matrice *)
 					(*s_objet_resultat).objet)).tableau)[i] =
-					malloc((*((struct_matrice *)
-					(*s_objet_resultat).objet)).nombre_colonnes *
+					malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_resultat).objet)).nombre_colonnes) *
 					sizeof(integer8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -308,8 +308,8 @@ instruction_fleche_diag(struct_processus
 				(*((struct_vecteur *) (*s_objet_argument).objet)).taille;
 
 		if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat).objet))
-				.nombre_lignes * sizeof(real8 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat)
+				.objet)).nombre_lignes) * sizeof(real8 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -320,8 +320,8 @@ instruction_fleche_diag(struct_processus
 		{
 			if ((((real8 **) (*((struct_matrice *)
 					(*s_objet_resultat).objet)).tableau)[i] =
-					malloc((*((struct_matrice *)
-					(*s_objet_resultat).objet)).nombre_colonnes *
+					malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_resultat).objet)).nombre_colonnes) *
 					sizeof(real8))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
@@ -360,8 +360,8 @@ instruction_fleche_diag(struct_processus
 				(*((struct_vecteur *) (*s_objet_argument).objet)).taille;
 
 		if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau =
-				malloc((*((struct_matrice *) (*s_objet_resultat).objet))
-				.nombre_lignes * sizeof(complex16 *))) == NULL)
+				malloc(((size_t) (*((struct_matrice *) (*s_objet_resultat)
+				.objet)).nombre_lignes) * sizeof(complex16 *))) == NULL)
 		{
 			(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;
 			return;
@@ -372,8 +372,8 @@ instruction_fleche_diag(struct_processus
 		{
 			if ((((complex16 **) (*((struct_matrice *)
 					(*s_objet_resultat).objet)).tableau)[i] =
-					malloc((*((struct_matrice *)
-					(*s_objet_resultat).objet)).nombre_colonnes *
+					malloc(((size_t) (*((struct_matrice *)
+					(*s_objet_resultat).objet)).nombre_colonnes) *
 					sizeof(complex16))) == NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es_allocation_memoire;