--- rpl/src/instructions_i4.c 2010/04/07 13:33:22 1.6 +++ rpl/src/instructions_i4.c 2010/08/06 15:26:47 1.14 @@ -1,6 +1,6 @@ /* ================================================================================ - RPL/2 (R) version 4.0.13 + RPL/2 (R) version 4.0.18 Copyright (C) 1989-2010 Dr. BERTRAND Joël This file is part of RPL/2. @@ -20,7 +20,7 @@ */ -#include "rpl.conv.h" +#include "rpl-conv.h" /* @@ -176,6 +176,7 @@ instruction_in(struct_processus *s_etat_ if ((*s_objet_resultat_intermediaire).type != INT) { + liberation(s_etat_processus, s_objet_resultat_intermediaire); liberation(s_etat_processus, s_objet_argument_1); liberation(s_etat_processus, s_objet_argument_2); liberation(s_etat_processus, s_objet_resultat); @@ -250,11 +251,11 @@ instruction_implicit(struct_processus *s if ((*s_etat_processus).langue == 'F') { - printf("(test de l'appartenance à un ensemble)\n\n"); + printf("(gestion des noms implicites)\n\n"); } else { - printf("(check membership)\n\n"); + printf("(implicit names management)\n\n"); } printf(" 1: %s\n\n", d_CHN);