--- rpl/src/instructions_c5.c	2013/03/20 17:11:44	1.44
+++ rpl/src/instructions_c5.c	2013/03/21 12:07:38	1.45
@@ -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)
 			{
@@ -491,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 **)
@@ -550,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)
 				{
@@ -608,7 +608,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) ((integer8 **)
@@ -666,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)
 				{
@@ -724,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 **)
@@ -785,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)
 				{
@@ -843,7 +842,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]
@@ -914,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)
 				{
@@ -972,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]
@@ -1043,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)
 				{
@@ -1101,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]
@@ -1373,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)