--- rpl/src/instructions_e2.c 2018/05/30 09:27:34 1.70 +++ rpl/src/instructions_e2.c 2019/10/31 15:40:10 1.75 @@ -1,7 +1,7 @@ /* ================================================================================ - RPL/2 (R) version 4.1.29 - Copyright (C) 1989-2018 Dr. BERTRAND Joël + RPL/2 (R) version 4.1.32 + Copyright (C) 1989-2019 Dr. BERTRAND Joël This file is part of RPL/2. @@ -1136,7 +1136,7 @@ instruction_externals(struct_processus * if ((*s_etat_processus).s_instructions_externes[i].position_fleche >= 0) { - strncpy((unsigned char *) (*(*l_element_courant).donnee).objet + memcpy((unsigned char *) (*(*l_element_courant).donnee).objet + (*s_etat_processus).s_instructions_externes[i] .position_fleche - (strlen((*s_etat_processus) .s_instructions_externes[i].nom_bibliotheque) + 1), @@ -1162,7 +1162,7 @@ instruction_externals(struct_processus * if ((*s_etat_processus).s_instructions_externes[i].position_fleche >= 0) { - strncpy((unsigned char *) (*(*l_element_courant).donnee).objet + memcpy((unsigned char *) (*(*l_element_courant).donnee).objet + (*s_etat_processus).s_instructions_externes[i] .position_fleche, "->", 2); }