--- rpl/src/instructions_p2.c	2010/07/14 14:19:37	1.10
+++ rpl/src/instructions_p2.c	2011/04/14 08:46:45	1.17.2.2
@@ -1,7 +1,7 @@
 /*
 ================================================================================
-  RPL/2 (R) version 4.0.18
-  Copyright (C) 1989-2010 Dr. BERTRAND Joël
+  RPL/2 (R) version 4.0.23
+  Copyright (C) 1989-2011 Dr. BERTRAND Joël
 
   This file is part of RPL/2.
 
@@ -20,7 +20,7 @@
 */
 
 
-#include "rpl.conv.h"
+#include "rpl-conv.h"
 
 
 /*
@@ -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);
 	}
 
 /*