--- rpl/src/instructions_p4.c	2013/02/27 17:11:43	1.45
+++ rpl/src/instructions_p4.c	2013/03/16 11:31:41	1.46
@@ -1289,7 +1289,7 @@ instruction_perm(struct_processus *s_eta
 				return;
 			}
 
-			if (fabs(c - floor(c)) < fabs(ceil(c) - c))
+			if (abs(c - floor(c)) < fabs(ceil(c) - c))
 			{
 				(*((integer8 *) (*s_objet_resultat).objet)) =
 						(integer8) floor(c);