version 1.56, 2013/09/06 10:30:55
|
version 1.85, 2025/04/15 10:17:56
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.16 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2013 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_var(struct_processus *s_etat
|
Line 132 instruction_var(struct_processus *s_etat
|
return; |
return; |
} |
} |
|
|
if (((*s_objet_resultat).objet = variance_statistique((struct_matrice *) |
if (((*s_objet_resultat).objet = variance_statistique(s_etat_processus, |
(*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; |
return; |
return; |
Line 500 instruction_version(struct_processus *s_
|
Line 500 instruction_version(struct_processus *s_
|
return; |
return; |
} |
} |
|
|
if (((*(*l_element_courant).donnee).objet = date_compilation()) == NULL) |
if (((*(*l_element_courant).donnee).objet = |
|
date_compilation(s_etat_processus)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 933 instruction_version(struct_processus *s_
|
Line 934 instruction_version(struct_processus *s_
|
return; |
return; |
} |
} |
|
|
if (((*(*l_element_courant).donnee).objet = conversion_majuscule(HOST)) |
if (((*(*l_element_courant).donnee).objet = conversion_majuscule( |
== NULL) |
s_etat_processus, HOST)) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |