version 1.89, 2015/01/29 09:33:41
|
version 1.101, 2017/06/28 09:20:31
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.20 |
RPL/2 (R) version 4.1.27 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 2236 copie_arbre_variables(struct_processus *
|
Line 2236 copie_arbre_variables(struct_processus *
|
s_variable = (*((struct_variable *) |
s_variable = (*((struct_variable *) |
(*l_element_courant).donnee)); |
(*l_element_courant).donnee)); |
|
|
if ((s_variable.nom = malloc((strlen((*((struct_variable *) |
if ((s_variable.nom = rpl_malloc(s_nouvel_etat_processus, |
|
(strlen((*((struct_variable *) |
(*l_element_courant).donnee)).nom) + 1) * |
(*l_element_courant).donnee)).nom) + 1) * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
{ |
{ |
Line 2415 copie_arbre_variables(struct_processus *
|
Line 2416 copie_arbre_variables(struct_processus *
|
return; |
return; |
} |
} |
|
|
if ((s_variable_statique.nom = malloc((strlen( |
if ((s_variable_statique.nom = rpl_malloc(s_nouvel_etat_processus, |
(*(*l_element_statique_courant).variable).nom) + 1) * |
(strlen((*(*l_element_statique_courant).variable).nom) + 1) * |
sizeof(unsigned char))) == NULL) |
sizeof(unsigned char))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |