--- rpl/src/instructions_c5.c	2012/12/18 13:19:36	1.40
+++ rpl/src/instructions_c5.c	2015/02/19 11:01:22	1.55
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.12
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.21
+  Copyright (C) 1989-2015 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -48,9 +48,9 @@ instruction_col_plus(struct_processus *s
 	struct_objet					*s_objet_argument_2;
 	struct_objet					*s_objet_argument_3;
 
-	unsigned long					i;
-	unsigned long					j;
-	unsigned long					l;
+	integer8						i;
+	integer8						j;
+	integer8						l;
 
 	void							*tampon;
 
@@ -272,8 +272,8 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_copie_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_copie_argument_3).objet)).nombre_colonnes) *
 						sizeof(real8))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -320,8 +320,8 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_copie_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_copie_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -367,8 +367,8 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((*((struct_matrice *)
-						(*s_copie_argument_3).objet)).nombre_colonnes *
+						.tableau[i] = malloc(((size_t) (*((struct_matrice *)
+						(*s_copie_argument_3).objet)).nombre_colonnes) *
 						sizeof(complex16))) == NULL)
 				{
 					if (variable_partagee == d_vrai)
@@ -436,8 +436,8 @@ instruction_col_plus(struct_processus *s
 			return;
 		}
 
-		if ((position < 1) || (position > ((signed long) (*((struct_matrice *)
-				(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
+		if ((position < 1) || (position > (*((struct_matrice *)
+				(*s_copie_argument_3).objet)).nombre_colonnes + 1))
 		{
 			if (variable_partagee == d_vrai)
 			{
@@ -470,8 +470,9 @@ instruction_col_plus(struct_processus *s
 					.tableau[i];
 
 			if (((*((struct_matrice *) (*s_copie_argument_3).objet)).tableau[i]
-					= malloc((((*((struct_matrice *) (*s_copie_argument_3)
-					.objet)).nombre_colonnes) + 1) * sizeof(integer8))) == NULL)
+					= malloc((((size_t) (*((struct_matrice *)
+					(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
+					sizeof(integer8))) == NULL)
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -490,7 +491,7 @@ instruction_col_plus(struct_processus *s
 			for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 					.objet)).nombre_colonnes; j++)
 			{
-				if ((signed long) j == (position - 1))
+				if (j == (position - 1))
 				{
 					((integer8 **) (*((struct_matrice *) (*s_copie_argument_3)
 							.objet)).tableau)[i][j] = ((integer8 **)
@@ -549,9 +550,9 @@ instruction_col_plus(struct_processus *s
 				return;
 			}
 
-			if ((position < 1) || (position > ((signed long)
+			if ((position < 1) || (position >
 					(*((struct_matrice *) (*s_copie_argument_3).objet))
-					.nombre_colonnes + 1)))
+					.nombre_colonnes + 1))
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -584,7 +585,7 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((((*((struct_matrice *)
+						.tableau[i] = malloc((((size_t) (*((struct_matrice *)
 						(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
 						sizeof(real8))) == NULL)
 				{
@@ -607,10 +608,10 @@ instruction_col_plus(struct_processus *s
 				for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 						.objet)).nombre_colonnes; j++)
 				{
-					if ((signed long) j == (position - 1))
+					if (j == (position - 1))
 					{
 						((real8 **) (*((struct_matrice *) (*s_copie_argument_3)
-								.objet)).tableau)[i][j] = ((integer8 **)
+								.objet)).tableau)[i][j] = (real8) ((integer8 **)
 								(*((struct_matrice *) (*s_objet_argument_1)
 								.objet)).tableau)[i][0];
 						l = 1;
@@ -625,7 +626,7 @@ instruction_col_plus(struct_processus *s
 					((real8 **) (*((struct_matrice *) (*s_copie_argument_3)
 							.objet)).tableau)[i][(*((struct_matrice *)
 							(*s_copie_argument_3).objet)).nombre_colonnes] =
-							((integer8 **) (*((struct_matrice *)
+							(real8) ((integer8 **) (*((struct_matrice *)
 							(*s_objet_argument_1).objet)).tableau)[i][0];
 				}
 
@@ -665,9 +666,9 @@ instruction_col_plus(struct_processus *s
 				return;
 			}
 
-			if ((position < 1) || (position > ((signed long)
+			if ((position < 1) || (position >
 					(*((struct_matrice *) (*s_copie_argument_3).objet))
-					.nombre_colonnes + 1)))
+					.nombre_colonnes + 1))
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -700,7 +701,7 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((((*((struct_matrice *)
+						.tableau[i] = malloc((((size_t) (*((struct_matrice *)
 						(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
 						sizeof(real8))) == NULL)
 				{
@@ -723,7 +724,7 @@ instruction_col_plus(struct_processus *s
 				for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 						.objet)).nombre_colonnes; j++)
 				{
-					if ((signed long) j == (position - 1))
+					if (j == (position - 1))
 					{
 						((real8 **) (*((struct_matrice *) (*s_copie_argument_3)
 								.objet)).tableau)[i][j] = ((real8 **)
@@ -784,9 +785,8 @@ instruction_col_plus(struct_processus *s
 				return;
 			}
 
-			if ((position < 1) || (position > ((signed long)
-					(*((struct_matrice *)
-					(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
+			if ((position < 1) || (position > (*((struct_matrice *)
+					(*s_copie_argument_3).objet)).nombre_colonnes + 1))
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -819,7 +819,7 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((((*((struct_matrice *)
+						.tableau[i] = malloc((((size_t) (*((struct_matrice *)
 						(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
 						sizeof(complex16))) == NULL)
 				{
@@ -842,11 +842,11 @@ instruction_col_plus(struct_processus *s
 				for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 						.objet)).nombre_colonnes; j++)
 				{
-					if ((signed long) j == (position - 1))
+					if (j == (position - 1))
 					{
 						((complex16 **) (*((struct_matrice *)
 								(*s_copie_argument_3).objet)).tableau)[i][j]
-						   		.partie_reelle = ((integer8 **)
+						   		.partie_reelle = (real8) ((integer8 **)
 								(*((struct_matrice *) (*s_objet_argument_1)
 								.objet)).tableau)[i][0];
 						((complex16 **) (*((struct_matrice *)
@@ -868,7 +868,7 @@ instruction_col_plus(struct_processus *s
 					((complex16 **) (*((struct_matrice *) (*s_copie_argument_3)
 							.objet)).tableau)[i][(*((struct_matrice *)
 							(*s_copie_argument_3).objet)).nombre_colonnes]
-							.partie_reelle = ((integer8 **)
+							.partie_reelle = (real8) ((integer8 **)
 							(*((struct_matrice *) (*s_objet_argument_1).objet))
 							.tableau)[i][0];
 					((complex16 **) (*((struct_matrice *) (*s_copie_argument_3)
@@ -913,9 +913,8 @@ instruction_col_plus(struct_processus *s
 				return;
 			}
 
-			if ((position < 1) || (position > ((signed long)
-					(*((struct_matrice *)
-					(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
+			if ((position < 1) || (position > (*((struct_matrice *)
+					(*s_copie_argument_3).objet)).nombre_colonnes + 1))
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -948,7 +947,7 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((((*((struct_matrice *)
+						.tableau[i] = malloc((((size_t) (*((struct_matrice *)
 						(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
 						sizeof(complex16))) == NULL)
 				{
@@ -971,7 +970,7 @@ instruction_col_plus(struct_processus *s
 				for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 						.objet)).nombre_colonnes; j++)
 				{
-					if ((signed long) j == (position - 1))
+					if (j == (position - 1))
 					{
 						((complex16 **) (*((struct_matrice *)
 								(*s_copie_argument_3).objet)).tableau)[i][j]
@@ -1042,9 +1041,8 @@ instruction_col_plus(struct_processus *s
 				return;
 			}
 
-			if ((position < 1) || (position > ((signed long)
-					(*((struct_matrice *)
-					(*s_copie_argument_3).objet)).nombre_colonnes + 1)))
+			if ((position < 1) || (position > (*((struct_matrice *)
+					(*s_copie_argument_3).objet)).nombre_colonnes + 1))
 			{
 				if (variable_partagee == d_vrai)
 				{
@@ -1077,7 +1075,7 @@ instruction_col_plus(struct_processus *s
 						.tableau[i];
 
 				if (((*((struct_matrice *) (*s_copie_argument_3).objet))
-						.tableau[i] = malloc((((*((struct_matrice *)
+						.tableau[i] = malloc((((size_t) (*((struct_matrice *)
 						(*s_copie_argument_3).objet)).nombre_colonnes) + 1) *
 						sizeof(complex16))) == NULL)
 				{
@@ -1100,7 +1098,7 @@ instruction_col_plus(struct_processus *s
 				for(l = j = 0; j < (*((struct_matrice *) (*s_copie_argument_3)
 						.objet)).nombre_colonnes; j++)
 				{
-					if ((signed long) j == (position - 1))
+					if (j == (position - 1))
 					{
 						((complex16 **) (*((struct_matrice *)
 								(*s_copie_argument_3).objet)).tableau)[i][j]
@@ -1224,10 +1222,10 @@ instruction_col_moins(struct_processus *
 	struct_objet				*s_objet_argument_2;
 	struct_objet				*s_objet_resultat;
 
-	unsigned long				i;
-	unsigned long				j;
-	unsigned long				k;
-	unsigned long				colonne;
+	integer8					i;
+	integer8					j;
+	integer8					k;
+	integer8					colonne;
 
 	void						*tampon;
 
@@ -1372,8 +1370,7 @@ instruction_col_moins(struct_processus *
 		{
 			position = (*((integer8 *) (*s_objet_argument_1).objet));
 
-			if ((position <= 0) || (position > (signed long)
-					(*((struct_matrice *)
+			if ((position <= 0) || (position > (*((struct_matrice *)
 					(*s_copie_argument_2).objet)).nombre_colonnes))
 			{
 				if (variable_partagee == d_vrai)
@@ -1448,8 +1445,8 @@ instruction_col_moins(struct_processus *
 					(*s_objet_resultat).type = MIN;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(integer8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -1509,9 +1506,9 @@ instruction_col_moins(struct_processus *
 								(*s_copie_argument_2).objet)).tableau)[i];
 
 						if ((((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).tableau)[i] = malloc(
+								.objet)).tableau)[i] = malloc(((size_t)
 								((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).nombre_colonnes - 1) *
+								.objet)).nombre_colonnes) - 1) *
 								sizeof(integer8))) == NULL)
 						{ 
 							if (variable_partagee == d_vrai)
@@ -1558,8 +1555,8 @@ instruction_col_moins(struct_processus *
 					(*s_objet_resultat).type = MRL;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(real8 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -1619,9 +1616,9 @@ instruction_col_moins(struct_processus *
 								(*s_copie_argument_2).objet)).tableau)[i];
 
 						if ((((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).tableau)[i] = malloc(
+								.objet)).tableau)[i] = malloc(((size_t)
 								((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).nombre_colonnes - 1) *
+								.objet)).nombre_colonnes) - 1) *
 								sizeof(real8))) == NULL)
 						{
 							if (variable_partagee == d_vrai)
@@ -1668,8 +1665,8 @@ instruction_col_moins(struct_processus *
 					(*s_objet_resultat).type = MCX;
 
 					if (((*((struct_matrice *) (*s_objet_resultat).objet))
-							.tableau = malloc((*((struct_matrice *)
-							(*s_objet_resultat).objet)).nombre_lignes *
+							.tableau = malloc(((size_t) (*((struct_matrice *)
+							(*s_objet_resultat).objet)).nombre_lignes) *
 							sizeof(complex16 *))) == NULL)
 					{
 						if (variable_partagee == d_vrai)
@@ -1737,9 +1734,9 @@ instruction_col_moins(struct_processus *
 								(*s_copie_argument_2).objet)).tableau)[i];
 
 						if ((((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).tableau)[i] = malloc(
+								.objet)).tableau)[i] = malloc(((size_t)
 								((*((struct_matrice *) (*s_copie_argument_2)
-								.objet)).nombre_colonnes - 1) *
+								.objet)).nombre_colonnes) - 1) *
 								sizeof(complex16))) == NULL)
 						{
 							if (variable_partagee == d_vrai)