--- rpl/src/instructions_c3.c 2010/04/07 13:45:05 1.7 +++ rpl/src/instructions_c3.c 2011/04/14 08:46:40 1.19.2.2 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.14 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.0.23 + 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" /* @@ -608,7 +608,7 @@ instruction_chr(struct_processus *s_etat printf("(integer to character conversion)\n\n"); } - printf(" 1: 0 <= %s <= 255\n", d_INT); + printf(" 1: %s\n", d_INT); printf("-> 1: %s\n", d_CHN); return; @@ -642,8 +642,8 @@ instruction_chr(struct_processus *s_etat if ((*s_objet_argument).type == INT) { - if (((*((integer8 *) (*s_objet_argument).objet)) < 0) || - ((*((integer8 *) (*s_objet_argument).objet)) > 255)) + if ((*((integer8 *) (*s_objet_argument).objet)) != + (unsigned char) (*((integer8 *) (*s_objet_argument).objet))) { liberation(s_etat_processus, s_objet_argument); @@ -651,22 +651,34 @@ instruction_chr(struct_processus *s_etat return; } - if ((s_objet_resultat = allocation(s_etat_processus, CHN)) == NULL) + if (isprint((unsigned char) (*((integer8 *) (*s_objet_argument).objet))) + != 0) { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; - return; - } + if ((s_objet_resultat = allocation(s_etat_processus, CHN)) == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } - if (((*s_objet_resultat).objet = malloc(2 * sizeof(unsigned char))) - == NULL) + if (((*s_objet_resultat).objet = malloc(2 * sizeof(unsigned char))) + == NULL) + { + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + return; + } + + ((unsigned char *) (*s_objet_resultat).objet)[0] = (*((integer8 *) + (*s_objet_argument).objet)); + ((unsigned char *) (*s_objet_resultat).objet)[1] = + d_code_fin_chaine; + } + else { - (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; + liberation(s_etat_processus, s_objet_argument); + + (*s_etat_processus).erreur_execution = d_ex_argument_invalide; return; } - - ((unsigned char *) (*s_objet_resultat).objet)[0] = (*((integer8 *) - (*s_objet_argument).objet)); - ((unsigned char *) (*s_objet_resultat).objet)[1] = d_code_fin_chaine; } /*