--- rpl/src/instructions_p2.c	2011/03/06 16:44:12	1.16
+++ rpl/src/instructions_p2.c	2011/04/11 13:02:23	1.17.2.1
@@ -1,6 +1,6 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.21
+  RPL/2 (R) version 4.0.22
   Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
@@ -38,6 +38,8 @@
 void
 instruction_p_vers_r(struct_processus *s_etat_processus)
 {
+	double							angle;
+
 	struct_liste_chainee			*l_element_courant;
 	struct_liste_chainee			*l_element_precedent;
 
@@ -136,20 +138,20 @@ instruction_p_vers_r(struct_processus *s
 			return;
 		}
 
+		angle = (*((struct_complexe16 *) (*s_objet_argument).objet))
+				.partie_imaginaire;
+
 		if (test_cfsf(s_etat_processus, 60) == d_faux)
 		{
-			conversion_degres_vers_radians(&((*((struct_complexe16 *)
-					(*s_objet_argument).objet)).partie_imaginaire));
+			conversion_degres_vers_radians(&angle);
 		}
 
 		(*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_reelle =
 				(*((struct_complexe16 *) (*s_objet_argument).objet))
-				.partie_reelle * cos((*((struct_complexe16 *)
-				(*s_objet_argument).objet)).partie_imaginaire);
+				.partie_reelle * cos(angle);
 		(*((struct_complexe16 *) (*s_objet_resultat).objet)).partie_imaginaire =
 				(*((struct_complexe16 *) (*s_objet_argument).objet))
-				.partie_reelle * sin((*((struct_complexe16 *)
-				(*s_objet_argument).objet)).partie_imaginaire);
+				.partie_reelle * sin(angle);
 	}
 
 /*