--- rpl/src/interface_cas.cpp	2011/06/24 20:31:41	1.5
+++ rpl/src/interface_cas.cpp	2011/06/24 21:01:57	1.6
@@ -95,7 +95,8 @@ conversion_rpl_vers_cas(struct_processus
 			{
 				unsigned char		*ptr;
 
-				ptr = reinterpret_cast<unsigned char *>(((struct_fonction *)
+				ptr = reinterpret_cast<unsigned char *>(
+						reinterpret_cast<struct_fonction *>(
 						l_element_courant->donnee->objet)->nom_fonction);
 
 				while((*ptr) != d_code_fin_chaine)
@@ -152,9 +153,9 @@ conversion_cas_vers_rpl(struct_processus
 				// qui n'est pas reconnu comme un mot-clef du RPL/2. S'il
 				// s'agit d'un mot-clef de GIAC, on le convertit.
 
-				if (strcmp(const_cast<const char *>(reinterpret_cast<char *>(
-						((struct_fonction *) l_element_courant->donnee
-						->objet)->nom_fonction)), "quote") == 0)
+				if (strcmp((const char *)
+						reinterpret_cast<struct_fonction *>(l_element_courant
+						->donnee->objet)->nom_fonction, "quote") == 0)
 				{
 					liberation(s_etat_processus, l_element_courant->donnee);
 
@@ -176,7 +177,8 @@ conversion_cas_vers_rpl(struct_processus
 						return;
 					}
 
-					strcpy(reinterpret_cast<char *>(((struct_fonction *)
+					strcpy(reinterpret_cast<char *>(
+							reinterpret_cast<struct_fonction *>(
 							l_element_courant->donnee->objet)->nom_fonction),
 							"RELAX");
 				}
@@ -264,7 +266,7 @@ interface_cas(struct_processus *s_etat_p
 
 			registre = s_etat_processus->instruction_courante;
 			s_etat_processus->instruction_courante =
-					reinterpret_cast<unsigned char*>(const_cast<char *>
+					reinterpret_cast<unsigned char *>(const_cast<char *>
 					(chaine.c_str()));
 
 			recherche_type(s_etat_processus);