--- rpl/src/instructions_s4.c	2013/02/27 17:11:44	1.42
+++ rpl/src/instructions_s4.c	2013/03/21 11:30:30	1.43
@@ -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);
 	}