--- rpl/src/instructions_c2.c	2012/12/13 16:59:41	1.41
+++ rpl/src/instructions_c2.c	2013/03/16 11:31:41	1.48
@@ -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.13
+  Copyright (C) 1989-2013 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -562,7 +562,7 @@ instruction_con(struct_processus *s_etat
 					(*(*s_etat_processus).pointeur_variable_courante)
 					.variable_partagee, (*(*s_etat_processus)
 					.pointeur_variable_courante).origine)
-					== d_faux)
+					== NULL)
 			{
 				(*s_etat_processus).erreur_systeme = d_es;
 				(*s_etat_processus).erreur_execution =
@@ -588,6 +588,7 @@ instruction_con(struct_processus *s_etat
 	else
 	{
 		argument_nom = d_faux;
+		variable_partagee = d_faux;
 	}
 	
 /*
@@ -1189,9 +1190,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[2]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[1]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[0]));
 
@@ -1205,9 +1204,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[0]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[2]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[1]));
 
@@ -1221,9 +1218,7 @@ instruction_cross(struct_processus *s_et
 				.tableau)[1]), &(((integer8 *) (*((struct_vecteur *)
 				(*s_objet_argument_1).objet)).tableau)[0]), &(tampon_2));
 
-		tampon_2 = -tampon_2;
-
-		depassement |= depassement_addition(&(tampon_1), &(tampon_2),
+		depassement |= depassement_soustraction(&(tampon_1), &(tampon_2),
 				&(((integer8 *) (*((struct_vecteur *) (*s_objet_resultat)
 				.objet)).tableau)[2]));