version 1.74, 2017/07/30 21:59:41
|
version 1.82, 2019/10/31 15:40:00
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.27 |
RPL/2 (R) version 4.1.32 |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
Copyright (C) 1989-2019 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 376 chargement_bibliotheque(struct_processus
|
Line 376 chargement_bibliotheque(struct_processus
|
{ |
{ |
if ((fleche = strstr(tableau[i], "->")) != NULL) |
if ((fleche = strstr(tableau[i], "->")) != NULL) |
{ |
{ |
strncpy(fleche, "to", 2); |
memcpy(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) |
(*s_etat_processus).s_instructions_externes[(*s_etat_processus) |
Line 918 execution_fonction_de_bibliotheque(struc
|
Line 926 execution_fonction_de_bibliotheque(struc
|
|
|
if ((fleche = strstr(nom_fonction, "->")) != NULL) |
if ((fleche = strstr(nom_fonction, "->")) != NULL) |
{ |
{ |
strncpy(fleche, "to", 2); |
memcpy(fleche, "to", 2); |
} |
} |
|
|
ordre_iteration = 0; |
ordre_iteration = 0; |