--- rpl/src/instructions_k1.c 2010/04/21 13:45:47 1.7 +++ rpl/src/instructions_k1.c 2011/01/03 12:08:06 1.16 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.15 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.0.20 + 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" /* @@ -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; }