--- rpl/src/instructions_r6.c 2010/04/21 13:45:49 1.9 +++ rpl/src/instructions_r6.c 2011/06/21 07:45:26 1.23 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.0.15 - Copyright (C) 1989-2010 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.0.prerelease.1 + 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" /* @@ -1214,6 +1214,7 @@ instruction_rdgn(struct_processus *s_eta struct_objet *s_objet_argument; struct_objet *s_objet_resultat; + unsigned char *pointeur; unsigned char *requete; unsigned char **types_generateurs; @@ -1271,6 +1272,17 @@ instruction_rdgn(struct_processus *s_eta } strcpy(types_generateurs[i], (**type_courant).name); + pointeur = types_generateurs[i]; + + while((*pointeur) != d_code_fin_chaine) + { + if ((*pointeur) == '-') + { + (*pointeur) = '_'; + } + + pointeur++; + } } // Tri des types de générateurs (tri shaker)