version 1.133, 2017/06/30 13:11:26
|
version 1.142, 2018/12/24 15:55:06
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.27 |
RPL/2 (R) version 4.1.30 |
Copyright (C) 1989-2017 Dr. BERTRAND Joël |
Copyright (C) 1989-2018 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 106 initialisation_allocateur(struct_process
|
Line 106 initialisation_allocateur(struct_process
|
(*s_etat_processus).pointeur_int = 0; |
(*s_etat_processus).pointeur_int = 0; |
(*s_etat_processus).pointeur_mat = 0; |
(*s_etat_processus).pointeur_mat = 0; |
(*s_etat_processus).pointeur_nom = 0; |
(*s_etat_processus).pointeur_nom = 0; |
|
(*s_etat_processus).pointeur_rec = 0; |
(*s_etat_processus).pointeur_rel = 0; |
(*s_etat_processus).pointeur_rel = 0; |
(*s_etat_processus).pointeur_tab = 0; |
(*s_etat_processus).pointeur_tab = 0; |
(*s_etat_processus).pointeur_vec = 0; |
(*s_etat_processus).pointeur_vec = 0; |
Line 141 liberation_allocateur(struct_processus *
|
Line 142 liberation_allocateur(struct_processus *
|
free((*s_etat_processus).objets_mat[i++])); |
free((*s_etat_processus).objets_mat[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_nom; |
for(i = 0; i < (*s_etat_processus).pointeur_nom; |
free((*s_etat_processus).objets_nom[i++])); |
free((*s_etat_processus).objets_nom[i++])); |
|
for(i = 0; i < (*s_etat_processus).pointeur_rec; |
|
free((*s_etat_processus).objets_rec[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_rel; |
for(i = 0; i < (*s_etat_processus).pointeur_rel; |
free((*s_etat_processus).objets_rel[i++])); |
free((*s_etat_processus).objets_rel[i++])); |
for(i = 0; i < (*s_etat_processus).pointeur_tab; |
for(i = 0; i < (*s_etat_processus).pointeur_tab; |
Line 623 allocation(struct_processus *s_etat_proc
|
Line 626 allocation(struct_processus *s_etat_proc
|
break; |
break; |
} |
} |
|
|
|
case REC : |
|
{ |
|
if ((*s_etat_processus).pointeur_rec > 0) |
|
{ |
|
(*s_objet).objet = (*s_etat_processus).objets_rec |
|
[--(*s_etat_processus).pointeur_rec]; |
|
} |
|
else |
|
{ |
|
if (((*s_objet).objet = malloc(sizeof(struct_record))) |
|
== NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = |
|
d_es_allocation_memoire; |
|
free(s_objet); |
|
return(NULL); |
|
} |
|
} |
|
|
|
break; |
|
} |
|
|
case REL : |
case REL : |
{ |
{ |
if ((*s_etat_processus).pointeur_rel > 0) |
if ((*s_etat_processus).pointeur_rel > 0) |
Line 1273 liberation(struct_processus *s_etat_proc
|
Line 1298 liberation(struct_processus *s_etat_proc
|
break; |
break; |
} |
} |
|
|
|
case REC : |
|
{ |
|
liberation(s_etat_processus, |
|
(*((struct_record *) (*s_objet).objet)).noms); |
|
liberation(s_etat_processus, |
|
(*((struct_record *) (*s_objet).objet)).donnees); |
|
|
|
if (decrementation_atomique(s_objet) > 0) |
|
{ |
|
return; |
|
} |
|
|
|
if ((*s_etat_processus).pointeur_rec < TAILLE_CACHE) |
|
{ |
|
(*s_etat_processus).objets_rec |
|
[(*s_etat_processus).pointeur_rec++] = (*s_objet).objet; |
|
} |
|
else |
|
{ |
|
free((struct_record *) ((*s_objet).objet)); |
|
} |
|
|
|
break; |
|
} |
|
|
case REL : |
case REL : |
{ |
{ |
if (decrementation_atomique(s_objet) > 0) |
if (decrementation_atomique(s_objet) > 0) |
Line 1510 liberation(struct_processus *s_etat_proc
|
Line 1560 liberation(struct_processus *s_etat_proc
|
return; |
return; |
} |
} |
|
|
// Appel de la fonction de duplication associée à l'objet |
// Appel de la fonction de liberation associée à l'objet |
// externe. Le descripteur de bibliothèque est directement |
// externe. Le descripteur de bibliothèque est directement |
// associé à la structure objet. |
// associé à la structure objet. |
|
|
if ((__type_drop = dlsym((*s_objet).descripteur_bibliotheque, |
l_element_courant = (*s_etat_processus).s_bibliotheques; |
"__type_drop")) == NULL) |
|
{ |
|
// La fonction de duplication n'existe pas dans la |
|
// bibliothèque. |
|
|
|
(*s_etat_processus).erreur_execution = d_ex_type_externe_drop; |
while(l_element_courant != NULL) |
} |
|
else |
|
{ |
{ |
if (__type_drop(s_etat_processus, (void **) &s_objet) == 0) |
if ((*((struct_bibliotheque *) (*l_element_courant).donnee)) |
|
.descripteur == (*s_objet).descripteur_bibliotheque) |
{ |
{ |
(*s_etat_processus).erreur_execution = |
if ((__type_drop = dlsym((*s_objet) |
d_ex_type_externe_drop; |
.descripteur_bibliotheque, "__type_drop")) == NULL) |
|
{ |
|
// La fonction de libération n'existe pas dans la |
|
// bibliothèque. |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_type_externe_drop; |
|
} |
|
else |
|
{ |
|
if (__type_drop(s_etat_processus, (void **) &s_objet) |
|
== 0) |
|
{ |
|
(*s_etat_processus).erreur_execution = |
|
d_ex_type_externe_drop; |
|
} |
|
} |
|
|
|
break; |
} |
} |
|
|
|
l_element_courant = (*l_element_courant).suivant; |
|
} |
|
|
|
if (l_element_courant == NULL) |
|
{ |
|
(*s_etat_processus).erreur_execution = d_ex_type_externe_drop; |
} |
} |
|
|
break; |
break; |
Line 2414 copie_objet(struct_processus *s_etat_pro
|
Line 2484 copie_objet(struct_processus *s_etat_pro
|
break; |
break; |
} |
} |
|
|
|
case REC : |
|
{ |
|
if (type != 'P') |
|
{ |
|
if ((s_nouvel_objet = allocation(s_etat_processus, REC)) |
|
== NULL) |
|
{ |
|
return(NULL); |
|
} |
|
|
|
if (((*((struct_record *) (*s_nouvel_objet).objet)).noms = |
|
copie_objet(s_etat_processus, (*((struct_record *) |
|
(*s_objet).objet)).noms, 'P')) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
|
|
if (((*((struct_record *) (*s_nouvel_objet).objet)).donnees = |
|
copie_objet(s_etat_processus, (*((struct_record *) |
|
(*s_objet).objet)).donnees, type)) == NULL) |
|
{ |
|
return(NULL); |
|
} |
|
} |
|
else |
|
{ |
|
incrementation_atomique(s_objet); |
|
(*((struct_record *) (*s_objet).objet)).noms = |
|
copie_objet(s_etat_processus, (*((struct_record *) |
|
(*s_objet).objet)).noms, 'P'); |
|
(*((struct_record *) (*s_objet).objet)).donnees = |
|
copie_objet(s_etat_processus, (*((struct_record *) |
|
(*s_objet).objet)).donnees, 'P'); |
|
|
|
return(s_objet); |
|
} |
|
|
|
break; |
|
} |
|
|
case REL : |
case REL : |
{ |
{ |
if (type != 'O') |
if (type != 'O') |
Line 2866 copie_objet(struct_processus *s_etat_pro
|
Line 2976 copie_objet(struct_processus *s_etat_pro
|
// externe. Le descripteur de bibliothèque est directement |
// externe. Le descripteur de bibliothèque est directement |
// associé à la structure objet. |
// associé à la structure objet. |
|
|
if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque, |
l_element_courant = (*s_etat_processus).s_bibliotheques; |
"__type_dup")) == NULL) |
|
|
while(l_element_courant != NULL) |
{ |
{ |
// La fonction de duplication n'existe pas dans la |
if ((*((struct_bibliotheque *) (*l_element_courant).donnee)) |
// bibliothèque. |
.descripteur == (*s_objet).descripteur_bibliotheque) |
|
{ |
|
if ((__type_dup = dlsym((*s_objet).descripteur_bibliotheque, |
|
"__type_dup")) == NULL) |
|
{ |
|
// La fonction de duplication n'existe pas dans la |
|
// bibliothèque. |
|
|
(*s_etat_processus).erreur_execution = d_ex_type_externe_dup; |
(*s_etat_processus).erreur_execution = |
return(NULL); |
d_ex_type_externe_dup; |
} |
return(NULL); |
|
} |
|
|
|
s_nouvel_objet = s_objet; |
|
|
|
if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet) |
|
== 0) |
|
{ |
|
return(NULL); |
|
} |
|
|
|
break; |
|
} |
|
|
s_nouvel_objet = s_objet; |
l_element_courant = (*l_element_courant).suivant; |
|
} |
|
|
if (__type_dup(s_etat_processus, (void **) &s_nouvel_objet) == 0) |
if (l_element_courant == NULL) |
{ |
{ |
|
(*s_etat_processus).erreur_execution = d_ex_type_externe_dup; |
return(NULL); |
return(NULL); |
} |
} |
|
|