version 1.14, 2010/08/06 15:32:59
|
version 1.73, 2024/01/17 16:57:11
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.18 |
RPL/2 (R) version 4.1.36 |
Copyright (C) 1989-2010 Dr. BERTRAND Joël |
Copyright (C) 1989-2024 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 425 instruction_ceil(struct_processus *s_eta
|
Line 425 instruction_ceil(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*((integer8 *) (*s_objet_resultat).objet)) = (integer8) |
ceil((*((real8 *) (*s_objet_argument).objet))); |
ceil((*((real8 *) (*s_objet_argument).objet))); |
|
|
if (!(((((*((integer8 *) (*s_objet_resultat).objet)) - 1) < |
if (!(((((*((integer8 *) (*s_objet_resultat).objet)) - 1) < |
Line 802 instruction_c_vers_r(struct_processus *s
|
Line 802 instruction_c_vers_r(struct_processus *s
|
struct_objet *s_objet_resultat_1; |
struct_objet *s_objet_resultat_1; |
struct_objet *s_objet_resultat_2; |
struct_objet *s_objet_resultat_2; |
|
|
unsigned long i; |
integer8 i; |
unsigned long j; |
integer8 j; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 909 instruction_c_vers_r(struct_processus *s
|
Line 909 instruction_c_vers_r(struct_processus *s
|
} |
} |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat_1).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat_1).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_argument) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument) |
.objet))).taille * sizeof(real8))) == NULL) |
.objet))).taille) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat_2).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat_2).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_argument) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_argument) |
.objet))).taille * sizeof(real8))) == NULL) |
.objet))).taille) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 965 instruction_c_vers_r(struct_processus *s
|
Line 965 instruction_c_vers_r(struct_processus *s
|
} |
} |
|
|
if (((*((struct_matrice *) (*s_objet_resultat_1).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat_1).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_argument) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument) |
.objet))).nombre_lignes * sizeof(real8 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(real8 *))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat_2).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_argument) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_argument) |
.objet))).nombre_lignes * sizeof(real8 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(real8 *))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 995 instruction_c_vers_r(struct_processus *s
|
Line 995 instruction_c_vers_r(struct_processus *s
|
.nombre_lignes; i++) |
.nombre_lignes; i++) |
{ |
{ |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_1) |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_1) |
.objet)).tableau)[i] = malloc( |
.objet)).tableau)[i] = malloc(((size_t) |
(*(((struct_matrice *) (*s_objet_argument).objet))) |
(*(((struct_matrice *) (*s_objet_argument).objet))) |
.nombre_colonnes * sizeof(real8))) == NULL) |
.nombre_colonnes) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
} |
} |
|
|
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2) |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat_2) |
.objet)).tableau)[i] = malloc( |
.objet)).tableau)[i] = malloc(((size_t) |
(*(((struct_matrice *) (*s_objet_argument).objet))) |
(*(((struct_matrice *) (*s_objet_argument).objet))) |
.nombre_colonnes * sizeof(real8))) == NULL) |
.nombre_colonnes) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1082 instruction_conj(struct_processus *s_eta
|
Line 1082 instruction_conj(struct_processus *s_eta
|
struct_objet *s_objet_argument; |
struct_objet *s_objet_argument; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned long i; |
integer8 i; |
unsigned long j; |
integer8 j; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|