version 1.49, 2014/04/25 07:37:33
|
version 1.76, 2025/04/15 10:17:55
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.18 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2014 Dr. BERTRAND Joël |
Copyright (C) 1989-2025 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 132 instruction_sdev(struct_processus *s_eta
|
Line 132 instruction_sdev(struct_processus *s_eta
|
} |
} |
|
|
if (((*s_objet_resultat).objet = ecart_type_statistique( |
if (((*s_objet_resultat).objet = ecart_type_statistique( |
|
s_etat_processus, |
(struct_matrice *) (*s_objet_statistique).objet, 'E')) == NULL) |
(struct_matrice *) (*s_objet_statistique).objet, 'E')) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 508 instruction_sync(struct_processus *s_eta
|
Line 509 instruction_sync(struct_processus *s_eta
|
d_ex_erreur_acces_fichier; |
d_ex_erreur_acces_fichier; |
return; |
return; |
} |
} |
|
|
|
if (fsync(fileno((*descripteur).descripteur_c)) != 0) |
|
{ |
|
if ((errno != EROFS) && (errno != EINVAL)) |
|
{ |
|
liberation(s_etat_processus, s_objet_argument); |
|
|
|
(*s_etat_processus).erreur_execution = |
|
d_ex_erreur_acces_fichier; |
|
return; |
|
} |
|
} |
} |
} |
else |
else |
{ |
{ |
Line 1065 instruction_scale(struct_processus *s_et
|
Line 1078 instruction_scale(struct_processus *s_et
|
} |
} |
else if ((*(*l_element_courant).donnee).type == CHN) |
else if ((*(*l_element_courant).donnee).type == CHN) |
{ |
{ |
tampon = conversion_majuscule((unsigned char *) |
tampon = conversion_majuscule(s_etat_processus, |
(*(*l_element_courant).donnee).objet); |
(unsigned char *) (*(*l_element_courant).donnee).objet); |
|
|
if (tampon == NULL) |
if (tampon == NULL) |
{ |
{ |