--- rpl/src/instructions_e2.c 2010/01/27 22:22:13 1.2 +++ rpl/src/instructions_e2.c 2010/02/10 08:09:29 1.3 @@ -738,6 +738,7 @@ instruction_edit(struct_processus *s_eta unsigned char *chaine; unsigned char *commande; unsigned char *nom_fichier; + unsigned char registre; (*s_etat_processus).erreur_execution = d_ex; @@ -848,12 +849,19 @@ instruction_edit(struct_processus *s_eta return; } + registre = (*s_etat_processus).autorisation_conversion_chaine; + (*s_etat_processus).autorisation_conversion_chaine = 'N'; + if ((chaine = formateur(s_etat_processus, 0, s_objet)) == NULL) { + (*s_etat_processus).autorisation_conversion_chaine = registre; + (*s_etat_processus).erreur_systeme = d_es_allocation_memoire; return; } + (*s_etat_processus).autorisation_conversion_chaine = registre; + if ((*s_objet).type == CHN) { if (fprintf(fichier, "\"%s\"\n", chaine) != (int) (strlen(chaine) + 3))