--- rpl/src/bibliotheques_externes.c 2017/07/30 21:59:41 1.74 +++ rpl/src/bibliotheques_externes.c 2018/05/30 09:27:30 1.77 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.27 - Copyright (C) 1989-2017 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.29 + Copyright (C) 1989-2018 Dr. BERTRAND Joël This file is part of RPL/2. @@ -377,6 +377,14 @@ chargement_bibliotheque(struct_processus if ((fleche = strstr(tableau[i], "->")) != NULL) { strncpy(fleche, "to", 2); + (*s_etat_processus).s_instructions_externes[(*s_etat_processus) + .nombre_instructions_externes].position_fleche = + fleche - tableau[i]; + } + else + { + (*s_etat_processus).s_instructions_externes[(*s_etat_processus) + .nombre_instructions_externes].position_fleche = -1; } (*s_etat_processus).s_instructions_externes[(*s_etat_processus)