--- rpl/src/instructions_r5.c	2013/03/20 22:24:37	1.47
+++ rpl/src/instructions_r5.c	2020/01/10 11:15:47	1.72
@@ -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.32
+  Copyright (C) 1989-2020 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -120,9 +120,9 @@ instruction_rswp(struct_processus *s_eta
 			ligne_1 = (*((integer8 *) (*s_objet_argument_1).objet)) - 1;
 			ligne_2 = (*((integer8 *) (*s_objet_argument_2).objet)) - 1;
 
-			if ((ligne_1 < 0) || (ligne_1 >= (long) (*((struct_matrice *)
+			if ((ligne_1 < 0) || (ligne_1 >= (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes) ||
-					(ligne_2 < 0) || (ligne_2 >= (long) (*((struct_matrice *)
+					(ligne_2 < 0) || (ligne_2 >= (*((struct_matrice *)
 					(*s_objet_argument_3).objet)).nombre_lignes))
 			{
 				liberation(s_etat_processus, s_objet_argument_1);