version 1.24, 2011/06/22 13:27:01
|
version 1.59, 2016/09/27 15:29:37
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.0.prerelease.3 |
RPL/2 (R) version 4.1.26 |
Copyright (C) 1989-2011 Dr. BERTRAND Joël |
Copyright (C) 1989-2016 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 43 instruction_pick(struct_processus *s_eta
|
Line 43 instruction_pick(struct_processus *s_eta
|
struct_objet *s_objet; |
struct_objet *s_objet; |
struct_objet *s_nouvel_objet; |
struct_objet *s_nouvel_objet; |
|
|
unsigned long i; |
integer8 i; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 140 instruction_pick(struct_processus *s_eta
|
Line 140 instruction_pick(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((unsigned long) (*((integer8 *) (*s_objet).objet)) > (*s_etat_processus) |
if ((*((integer8 *) (*s_objet).objet)) > (*s_etat_processus) |
.hauteur_pile_operationnelle) |
.hauteur_pile_operationnelle) |
{ |
{ |
liberation(s_etat_processus, s_objet); |
liberation(s_etat_processus, s_objet); |
Line 151 instruction_pick(struct_processus *s_eta
|
Line 151 instruction_pick(struct_processus *s_eta
|
|
|
l_liste = (*s_etat_processus).l_base_pile; |
l_liste = (*s_etat_processus).l_base_pile; |
|
|
for(i = 1; i < (unsigned long) (*((integer8 *) (*s_objet).objet)); i++) |
for(i = 1; i < (*((integer8 *) (*s_objet).objet)); i++) |
{ |
{ |
l_liste = (*l_liste).suivant; |
l_liste = (*l_liste).suivant; |
} |
} |
Line 205 instruction_plus(struct_processus *s_eta
|
Line 205 instruction_plus(struct_processus *s_eta
|
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned long i; |
integer8 i; |
unsigned long j; |
integer8 j; |
unsigned long nombre_elements; |
integer8 nombre_elements; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 343 instruction_plus(struct_processus *s_eta
|
Line 343 instruction_plus(struct_processus *s_eta
|
|
|
if ((*s_objet_argument_1).type == INT) |
if ((*s_objet_argument_1).type == INT) |
{ |
{ |
(*((real8 *) (*s_objet_resultat).objet)) = (*((integer8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) (*((integer8 *) |
(*s_objet_argument_1).objet)) + (*((real8 *) |
(*s_objet_argument_1).objet))) + (*((real8 *) |
(*s_objet_argument_2).objet)); |
(*s_objet_argument_2).objet)); |
} |
} |
else |
else |
{ |
{ |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*((real8 *) (*s_objet_resultat).objet)) = (*((real8 *) |
(*s_objet_argument_1).objet)) + (*((integer8 *) |
(*s_objet_argument_1).objet)) + ((real8) (*((integer8 *) |
(*s_objet_argument_2).objet)); |
(*s_objet_argument_2).objet))); |
} |
} |
} |
} |
|
|
Line 494 instruction_plus(struct_processus *s_eta
|
Line 494 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.objet))).taille * sizeof(integer8))) == NULL) |
.objet))).taille) * sizeof(integer8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 521 instruction_plus(struct_processus *s_eta
|
Line 521 instruction_plus(struct_processus *s_eta
|
free((*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau); |
free((*((struct_vecteur *) (*s_objet_argument_1).objet)).tableau); |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.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 574 instruction_plus(struct_processus *s_eta
|
Line 574 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.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 587 instruction_plus(struct_processus *s_eta
|
Line 587 instruction_plus(struct_processus *s_eta
|
if ((*s_objet_argument_1).type == VIN) |
if ((*s_objet_argument_1).type == VIN) |
{ |
{ |
((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) |
((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) |
.tableau)[i] = ((integer8 *) (*((struct_vecteur *) |
.tableau)[i] = ((real8) ((integer8 *) |
(*s_objet_argument_1).objet)).tableau)[i] + |
(*((struct_vecteur *)(*s_objet_argument_1).objet)) |
|
.tableau)[i]) + |
((real8 *) (*((struct_vecteur *) (*s_objet_argument_2) |
((real8 *) (*((struct_vecteur *) (*s_objet_argument_2) |
.objet)).tableau)[i]; |
.objet)).tableau)[i]; |
} |
} |
Line 597 instruction_plus(struct_processus *s_eta
|
Line 598 instruction_plus(struct_processus *s_eta
|
((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) |
((real8 *) (*((struct_vecteur *) (*s_objet_resultat).objet)) |
.tableau)[i] = ((real8 *) (*((struct_vecteur *) |
.tableau)[i] = ((real8 *) (*((struct_vecteur *) |
(*s_objet_argument_1).objet)).tableau)[i] + |
(*s_objet_argument_1).objet)).tableau)[i] + |
((integer8 *) (*((struct_vecteur *) |
((real8) ((integer8 *) (*((struct_vecteur *) |
(*s_objet_argument_2).objet)).tableau)[i]; |
(*s_objet_argument_2).objet)).tableau)[i]); |
} |
} |
} |
} |
} |
} |
Line 631 instruction_plus(struct_processus *s_eta
|
Line 632 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.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 679 instruction_plus(struct_processus *s_eta
|
Line 680 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.objet))).taille * sizeof(struct_complexe16))) == NULL) |
.objet))).taille) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 740 instruction_plus(struct_processus *s_eta
|
Line 741 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.objet))).taille * sizeof(struct_complexe16))) == NULL) |
.objet))).taille) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 799 instruction_plus(struct_processus *s_eta
|
Line 800 instruction_plus(struct_processus *s_eta
|
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
(*((struct_vecteur *) (*s_objet_argument_1).objet)).taille; |
|
|
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_vecteur *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_vecteur *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_vecteur *) (*s_objet_resultat) |
.objet))).taille * sizeof(struct_complexe16))) == NULL) |
.objet))).taille) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 859 instruction_plus(struct_processus *s_eta
|
Line 860 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.objet))).nombre_lignes * sizeof(integer8 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(integer8 *))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 872 instruction_plus(struct_processus *s_eta
|
Line 873 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat) |
if ((((integer8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i] = malloc((*(( |
.objet)).tableau)[i] = malloc(((size_t) (*(( |
(struct_matrice *) (*s_objet_resultat).objet))) |
(struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes * sizeof(integer8))) == NULL) |
.nombre_colonnes) * sizeof(integer8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 908 instruction_plus(struct_processus *s_eta
|
Line 909 instruction_plus(struct_processus *s_eta
|
(*s_objet_resultat).objet)).tableau)[i]); |
(*s_objet_resultat).objet)).tableau)[i]); |
|
|
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i] = malloc((*(( |
.objet)).tableau)[i] = malloc(((size_t) (*(( |
(struct_matrice *) (*s_objet_resultat).objet))) |
(struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes * sizeof(real8))) == NULL) |
.nombre_colonnes) * sizeof(real8))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = |
(*s_etat_processus).erreur_systeme = |
d_es_allocation_memoire; |
d_es_allocation_memoire; |
Line 969 instruction_plus(struct_processus *s_eta
|
Line 970 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.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 980 instruction_plus(struct_processus *s_eta
|
Line 981 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i] = malloc((*(( |
.objet)).tableau)[i] = malloc(((size_t) (*(( |
(struct_matrice *) (*s_objet_resultat).objet))) |
(struct_matrice *) (*s_objet_resultat).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 994 instruction_plus(struct_processus *s_eta
|
Line 995 instruction_plus(struct_processus *s_eta
|
if ((*s_objet_argument_1).type == MIN) |
if ((*s_objet_argument_1).type == MIN) |
{ |
{ |
((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i][j] = ((integer8 **) |
.objet)).tableau)[i][j] = ((real8) ((integer8 **) |
(*((struct_matrice *) (*s_objet_argument_1).objet)) |
(*((struct_matrice *) (*s_objet_argument_1).objet)) |
.tableau)[i][j] + ((real8 **) (*((struct_matrice *) |
.tableau)[i][j]) + ((real8 **) (*((struct_matrice *) |
(*s_objet_argument_2).objet)).tableau)[i][j]; |
(*s_objet_argument_2).objet)).tableau)[i][j]; |
} |
} |
else |
else |
Line 1004 instruction_plus(struct_processus *s_eta
|
Line 1005 instruction_plus(struct_processus *s_eta
|
((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i][j] = ((real8 **) |
.objet)).tableau)[i][j] = ((real8 **) |
(*((struct_matrice *) (*s_objet_argument_1).objet)) |
(*((struct_matrice *) (*s_objet_argument_1).objet)) |
.tableau)[i][j] + ((integer8 **) |
.tableau)[i][j] + ((real8) ((integer8 **) |
(*((struct_matrice *) (*s_objet_argument_2) |
(*((struct_matrice *) (*s_objet_argument_2) |
.objet)).tableau)[i][j]; |
.objet)).tableau)[i][j]); |
} |
} |
} |
} |
} |
} |
Line 1048 instruction_plus(struct_processus *s_eta
|
Line 1049 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.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 1059 instruction_plus(struct_processus *s_eta
|
Line 1060 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
if ((((real8 **) (*((struct_matrice *) (*s_objet_resultat) |
.objet)).tableau)[i] = malloc((*(( |
.objet)).tableau)[i] = malloc(((size_t) (*(( |
(struct_matrice *) (*s_objet_resultat).objet))) |
(struct_matrice *) (*s_objet_resultat).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 1117 instruction_plus(struct_processus *s_eta
|
Line 1118 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(struct_complexe16 *))) |
|
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1128 instruction_plus(struct_processus *s_eta
|
Line 1130 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((struct_complexe16 **) (*((struct_matrice *) |
if ((((struct_complexe16 **) (*((struct_matrice *) |
(*s_objet_resultat).objet)).tableau)[i] = malloc((*(( |
(*s_objet_resultat).objet)).tableau)[i] = malloc(((size_t) |
(struct_matrice *) (*s_objet_resultat).objet))) |
(*(((struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes * sizeof(struct_complexe16))) == NULL) |
.nombre_colonnes) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1201 instruction_plus(struct_processus *s_eta
|
Line 1203 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(struct_complexe16 *))) |
|
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1212 instruction_plus(struct_processus *s_eta
|
Line 1215 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((struct_complexe16 **) (*((struct_matrice *) |
if ((((struct_complexe16 **) (*((struct_matrice *) |
(*s_objet_resultat).objet)).tableau)[i] = malloc((*(( |
(*s_objet_resultat).objet)).tableau)[i] = malloc(((size_t) |
(struct_matrice *) (*s_objet_resultat).objet))) |
(*(((struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes * sizeof(struct_complexe16))) == NULL) |
.nombre_colonnes) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1283 instruction_plus(struct_processus *s_eta
|
Line 1286 instruction_plus(struct_processus *s_eta
|
.nombre_colonnes; |
.nombre_colonnes; |
|
|
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
if (((*((struct_matrice *) (*s_objet_resultat).objet)).tableau = |
malloc((*(((struct_matrice *) (*s_objet_resultat) |
malloc(((size_t) (*(((struct_matrice *) (*s_objet_resultat) |
.objet))).nombre_lignes * sizeof(struct_complexe16 *))) == NULL) |
.objet))).nombre_lignes) * sizeof(struct_complexe16 *))) |
|
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1294 instruction_plus(struct_processus *s_eta
|
Line 1298 instruction_plus(struct_processus *s_eta
|
.objet))).nombre_lignes; i++) |
.objet))).nombre_lignes; i++) |
{ |
{ |
if ((((struct_complexe16 **) (*((struct_matrice *) |
if ((((struct_complexe16 **) (*((struct_matrice *) |
(*s_objet_resultat).objet)).tableau)[i] = malloc((*(( |
(*s_objet_resultat).objet)).tableau)[i] = malloc(((size_t) |
(struct_matrice *) (*s_objet_resultat).objet))) |
(*(((struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes * sizeof(struct_complexe16))) == NULL) |
.nombre_colonnes) * sizeof(struct_complexe16))) == NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
return; |
return; |
Line 1360 instruction_plus(struct_processus *s_eta
|
Line 1364 instruction_plus(struct_processus *s_eta
|
{ |
{ |
(*((logical8 *) (*s_objet_resultat).objet)) = |
(*((logical8 *) (*s_objet_resultat).objet)) = |
(*((logical8 *) (*s_objet_argument_1).objet)) |
(*((logical8 *) (*s_objet_argument_1).objet)) |
+ (*((integer8 *) (*s_objet_argument_2).objet)); |
+ ((logical8) (*((integer8 *) (*s_objet_argument_2) |
|
.objet))); |
} |
} |
else |
else |
{ |
{ |
(*((logical8 *) (*s_objet_resultat).objet)) = |
(*((logical8 *) (*s_objet_resultat).objet)) = |
(*((integer8 *) (*s_objet_argument_1).objet)) |
((logical8) (*((integer8 *) (*s_objet_argument_1).objet))) |
+ (*((logical8 *) (*s_objet_argument_2).objet)); |
+ (*((logical8 *) (*s_objet_argument_2).objet)); |
} |
} |
} |
} |
Line 2108 instruction_puissance(struct_processus *
|
Line 2113 instruction_puissance(struct_processus *
|
real8 argument; |
real8 argument; |
real8 exposant; |
real8 exposant; |
|
|
integer4 troncature; |
|
|
|
integer8 tampon; |
integer8 tampon; |
|
|
logical1 drapeau; |
logical1 drapeau; |
Line 2123 instruction_puissance(struct_processus *
|
Line 2126 instruction_puissance(struct_processus *
|
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned long nombre_elements; |
integer8 nombre_elements; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|
Line 2330 instruction_puissance(struct_processus *
|
Line 2333 instruction_puissance(struct_processus *
|
{ |
{ |
f77puissanceri_(&((*((real8 *) (*s_objet_argument_2).objet))), |
f77puissanceri_(&((*((real8 *) (*s_objet_argument_2).objet))), |
&((*((integer8 *) (*s_objet_argument_1).objet))), |
&((*((integer8 *) (*s_objet_argument_1).objet))), |
&((*((real8 *) (*s_objet_resultat).objet))), &troncature); |
&((*((real8 *) (*s_objet_resultat).objet)))); |
|
|
if (troncature != 0) |
|
{ |
|
liberation(s_etat_processus, s_objet_argument_1); |
|
liberation(s_etat_processus, s_objet_argument_2); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
(*s_etat_processus).exception = d_ep_overflow; |
|
return; |
|
} |
|
} |
} |
else |
else |
{ |
{ |
Line 2414 instruction_puissance(struct_processus *
|
Line 2407 instruction_puissance(struct_processus *
|
{ |
{ |
f77puissanceci_(&((*((struct_complexe16 *) (*s_objet_argument_2) |
f77puissanceci_(&((*((struct_complexe16 *) (*s_objet_argument_2) |
.objet))), &((*((integer8 *) (*s_objet_argument_1).objet))), |
.objet))), &((*((integer8 *) (*s_objet_argument_1).objet))), |
&((*((struct_complexe16 *) (*s_objet_resultat).objet))), |
&((*((struct_complexe16 *) (*s_objet_resultat).objet)))); |
&troncature); |
|
|
|
if (troncature != 0) |
|
{ |
|
liberation(s_etat_processus, s_objet_argument_1); |
|
liberation(s_etat_processus, s_objet_argument_2); |
|
liberation(s_etat_processus, s_objet_resultat); |
|
|
|
(*s_etat_processus).exception = d_ep_overflow; |
|
return; |
|
} |
|
} |
} |
else |
else |
{ |
{ |
Line 3292 instruction_pourcent_t(struct_processus
|
Line 3274 instruction_pourcent_t(struct_processus
|
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_argument_2; |
struct_objet *s_objet_resultat; |
struct_objet *s_objet_resultat; |
|
|
unsigned long nombre_elements; |
integer8 nombre_elements; |
|
|
(*s_etat_processus).erreur_execution = d_ex; |
(*s_etat_processus).erreur_execution = d_ex; |
|
|