--- rpl/src/instructions_k1.c 2010/06/24 10:10:43 1.9 +++ rpl/src/instructions_k1.c 2010/07/13 13:17:21 1.10 @@ -284,7 +284,22 @@ instruction_kind(struct_processus *s_eta printf(" 1: %s, %s, %s, %s, %s, %s,\n" " %s, %s, %s\n", d_INT, d_REL, d_CPL, d_VIN, d_VRL, d_VCX, d_MIN, d_MRL, d_MCX); - printf("-> 1: %s\n", d_INT); + printf("-> 1: %s\n\n", d_INT); + + if ((*s_etat_processus).langue == 'F') + { + printf(" Valeurs renvoyées : \n\n"); + printf(" 0 : objet entier\n"); + printf(" 1 : objet réel\n"); + printf(" 2 : objet complexe\n"); + } + else + { + printf(" Returned values : \n\n"); + printf(" 0 : integer object\n"); + printf(" 1 : real object\n"); + printf(" 2 : complex object\n"); + } return; }