version 1.139, 2018/12/21 10:56:16
|
version 1.140, 2018/12/21 13:36:38
|
Line 1317 liberation(struct_processus *s_etat_proc
|
Line 1317 liberation(struct_processus *s_etat_proc
|
} |
} |
else |
else |
{ |
{ |
free((real8 *) ((*s_objet).objet)); |
free((struct_record *) ((*s_objet).objet)); |
} |
} |
|
|
break; |
break; |
Line 2484 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') |