--- rpl/src/instructions_s4.c	2011/11/26 10:01:31	1.31
+++ rpl/src/instructions_s4.c	2017/01/18 15:44:22	1.59
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.1.5
-  Copyright (C) 1989-2011 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.1.26
+  Copyright (C) 1989-2017 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -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);
 	}