version 1.51, 2015/01/05 13:12:39
|
version 1.54, 2015/02/19 11:01:27
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.19 |
RPL/2 (R) version 4.1.21 |
Copyright (C) 1989-2015 Dr. BERTRAND Joël |
Copyright (C) 1989-2015 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 1065 instruction_scale(struct_processus *s_et
|
Line 1066 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) |
{ |
{ |