--- rpl/src/instructions_r2.c	2013/02/27 17:11:43	1.48
+++ rpl/src/instructions_r2.c	2013/03/20 22:24:37	1.49
@@ -350,7 +350,7 @@ instruction_return(struct_processus *s_e
 	unsigned char					*instruction_majuscule;
 	unsigned char					*tampon;
 
-	unsigned long					registre_position_courante;
+	integer8						registre_position_courante;
 
 	struct_liste_chainee			*tampon_expression;
 
@@ -886,13 +886,13 @@ instruction_rdm(struct_processus *s_etat
 	logical1						drapeau_fin_objet_originel;
 	logical1						variable_partagee;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					k;
-	unsigned long					l;
-	unsigned long					nombre_colonnes;
-	unsigned long					nombre_dimensions;
-	unsigned long					nombre_lignes;
+	integer8						i;
+	integer8						j;
+	integer8						k;
+	integer8						l;
+	integer8						nombre_colonnes;
+	integer8						nombre_dimensions;
+	integer8						nombre_lignes;
 
 	(*s_etat_processus).erreur_execution = d_ex;
 
@@ -1175,7 +1175,8 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(integer8))) == NULL)
+					= malloc(((size_t) nombre_lignes) * sizeof(integer8)))
+					== NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1233,7 +1234,7 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(real8))) == NULL)
+					= malloc(((size_t) nombre_lignes) * sizeof(real8))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1292,8 +1293,8 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(struct_complexe16)))
-					== NULL)
+					= malloc(((size_t) nombre_lignes) *
+					sizeof(struct_complexe16))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1361,7 +1362,8 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(integer8))) == NULL)
+					= malloc(((size_t) nombre_lignes) * sizeof(integer8)))
+					== NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1432,7 +1434,7 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(real8))) == NULL)
+					= malloc(((size_t) nombre_lignes) * sizeof(real8))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1504,8 +1506,8 @@ instruction_rdm(struct_processus *s_etat
 					nombre_lignes;
 
 			if (((*((struct_vecteur *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(struct_complexe16)))
-					== NULL)
+					= malloc(((size_t) nombre_lignes) *
+					sizeof(struct_complexe16))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1621,7 +1623,7 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(integer8 *)))
+					= malloc(((size_t) nombre_lignes) * sizeof(integer8 *)))
 					== NULL)
 			{
 				if (variable_partagee == d_vrai)
@@ -1642,7 +1644,8 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((integer8 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes * sizeof(integer8))) == NULL)
+						malloc(((size_t) nombre_colonnes) * sizeof(integer8)))
+						== NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
@@ -1707,7 +1710,7 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(real8 *)))
+					= malloc(((size_t) nombre_lignes) * sizeof(real8 *)))
 					== NULL)
 			{
 				if (variable_partagee == d_vrai)
@@ -1728,7 +1731,8 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((real8 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes * sizeof(real8))) == NULL)
+						malloc(((size_t) nombre_colonnes) * sizeof(real8)))
+						== NULL)
 				{
 					if (variable_partagee == d_vrai)
 					{
@@ -1793,8 +1797,8 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(struct_complexe16 *)))
-					== NULL)
+					= malloc(((size_t) nombre_lignes) *
+					sizeof(struct_complexe16 *))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1814,7 +1818,7 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((struct_complexe16 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes *
+						malloc(((size_t) nombre_colonnes) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -1891,7 +1895,7 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(integer8 *)))
+					= malloc(((size_t) nombre_lignes) * sizeof(integer8 *)))
 					== NULL)
 			{
 				if (variable_partagee == d_vrai)
@@ -1914,7 +1918,7 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((integer8 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes *
+						malloc(((size_t) nombre_colonnes) *
 						sizeof(integer8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -1991,7 +1995,7 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(real8 *)))
+					= malloc(((size_t) nombre_lignes) * sizeof(real8 *)))
 					== NULL)
 			{
 				if (variable_partagee == d_vrai)
@@ -2014,7 +2018,7 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((real8 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes *
+						malloc(((size_t) nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -2091,8 +2095,8 @@ instruction_rdm(struct_processus *s_etat
 					.nombre_colonnes = nombre_colonnes;
 
 			if (((*((struct_matrice *) (*s_objet_redimensionne).objet)).tableau
-					= malloc(nombre_lignes * sizeof(struct_complexe16 *)))
-					== NULL)
+					= malloc(((size_t) nombre_lignes)
+					* sizeof(struct_complexe16 *))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -2114,7 +2118,7 @@ instruction_rdm(struct_processus *s_etat
 			{
 				if ((((struct_complexe16 **) (*((struct_matrice *)
 						(*s_objet_redimensionne).objet)).tableau)[i] =
-						malloc(nombre_colonnes *
+						malloc(((size_t) nombre_colonnes) *
 						sizeof(struct_complexe16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)