--- rpl/src/instructions_s4.c	2012/10/01 11:05:06	1.38
+++ rpl/src/instructions_s4.c	2021/03/13 12:50:47	1.69
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.11
-  Copyright (C) 1989-2012 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.33
+  Copyright (C) 1989-2021 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -61,10 +61,10 @@ instruction_steq(struct_processus *s_eta
 				"       %s, %s, %s, %s, %s,\n"
 				"       %s, %s, %s, %s, %s,\n"
 				"       %s, %s, %s, %s,\n"
-				"       %s, %s\n",
+				"       %s, %s, %s\n",
 				d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX,
 				d_TAB, d_BIN, d_NOM, d_CHN, d_LST, d_ALG, d_RPN, d_FCH, d_SCK,
-				d_SQL, d_SLB, d_PRC, d_MTX);
+				d_SQL, d_SLB, d_PRC, d_MTX, d_REC);
 
 		return;
 	}
@@ -847,8 +847,8 @@ instruction_stws(struct_processus *s_eta
 			return;
 		}
 
-		(*((logical8 *) (*s_objet_binaire).objet)) = (*((integer8 *)
-				(*s_objet_argument).objet)) - 1;
+		(*((logical8 *) (*s_objet_binaire).objet)) = (logical8) ((*((integer8 *)
+				(*s_objet_argument).objet)) - 1);
 
 		i43 = test_cfsf(s_etat_processus, 43);
 		i44 = test_cfsf(s_etat_processus, 44);
@@ -882,15 +882,15 @@ instruction_stws(struct_processus *s_eta
 		{
 			if (valeur_binaire[i] == '0')
 			{
-				cf(s_etat_processus, j++);
+				cf(s_etat_processus, (unsigned char) j++);
 			}
 			else
 			{
-				sf(s_etat_processus, j++);
+				sf(s_etat_processus, (unsigned char) j++);
 			}
 		}
 
-		for(; j <= 42; cf(s_etat_processus, j++));
+		for(; j <= 42; cf(s_etat_processus, (unsigned char) j++));
 
 		free(valeur_binaire);
 	}