version 1.84, 2012/09/15 12:57:09
|
version 1.87, 2012/10/04 15:21:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.10 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
Line 2283 copie_objet(struct_processus *s_etat_pro
|
Line 2283 copie_objet(struct_processus *s_etat_pro
|
return(s_objet); |
return(s_objet); |
} |
} |
|
|
|
// Un objet de type NON est un objet encapsulé dans une |
|
// structure de type struct_objet. Elle peut très bien contenir |
|
// une donnée, mais c'est à l'utilisateur de la libérer |
|
// explicitement avec un free(). |
|
|
if ((s_nouvel_objet = allocation(s_etat_processus, NON)) == NULL) |
if ((s_nouvel_objet = allocation(s_etat_processus, NON)) == NULL) |
{ |
{ |
return(NULL); |
return(NULL); |
} |
} |
|
|
(*s_nouvel_objet).objet = NULL; |
(*s_nouvel_objet).objet = (*s_objet).objet; |
break; |
break; |
} |
} |
|
|
Line 3118 copie_etat_processus(struct_processus *s
|
Line 3123 copie_etat_processus(struct_processus *s
|
* Copie de la table des variables statiques |
* Copie de la table des variables statiques |
*/ |
*/ |
|
|
|
#warning A FAIRE |
|
/* |
if (((*s_nouvel_etat_processus).s_liste_variables_statiques = |
if (((*s_nouvel_etat_processus).s_liste_variables_statiques = |
malloc((*s_etat_processus).nombre_variables_statiques_allouees * |
malloc((*s_etat_processus).nombre_variables_statiques_allouees * |
sizeof(struct_variable_statique))) == NULL) |
sizeof(struct_variable_statique))) == NULL) |
Line 3173 copie_etat_processus(struct_processus *s
|
Line 3180 copie_etat_processus(struct_processus *s
|
return(NULL); |
return(NULL); |
} |
} |
} |
} |
|
*/ |
|
|
/* |
/* |
* Copie de la pile opérationnelle |
* Copie de la pile opérationnelle |