version 1.80, 2012/04/03 21:27:09
|
version 1.87, 2012/10/04 15:21:26
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.7 |
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 2817 copie_etat_processus(struct_processus *s
|
Line 2822 copie_etat_processus(struct_processus *s
|
|
|
pthread_mutexattr_init(&attributs_mutex); |
pthread_mutexattr_init(&attributs_mutex); |
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); |
pthread_mutexattr_settype(&attributs_mutex, PTHREAD_MUTEX_NORMAL); |
|
(*s_nouvel_etat_processus).sections_critiques = 0; |
|
|
// Les sémaphores sont initialisés dans le nouveau thread. Il |
// Les sémaphores sont initialisés dans le nouveau thread. Il |
// s'agit d'une limitation de l'implantation de l'émulation |
// s'agit d'une limitation de l'implantation de l'émulation |
Line 3117 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 3172 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 |