version 1.36, 2012/01/05 10:19:00
|
version 1.51, 2013/09/06 10:30:52
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.5 |
RPL/2 (R) version 4.1.16 |
Copyright (C) 1989-2012 Dr. BERTRAND Joël |
Copyright (C) 1989-2013 Dr. BERTRAND Joël |
|
|
This file is part of RPL/2. |
This file is part of RPL/2. |
|
|
Line 143 instruction_cnrm(struct_processus *s_eta
|
Line 143 instruction_cnrm(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; |
|
|
void *accumulateur; |
void *accumulateur; |
|
|
Line 206 instruction_cnrm(struct_processus *s_eta
|
Line 206 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
i++) |
i++) |
{ |
{ |
|
if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.tableau)[i] == INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
|
|
entier_courant = abs(((integer8 *) (*((struct_vecteur *) |
entier_courant = abs(((integer8 *) (*((struct_vecteur *) |
(*s_objet_argument).objet)).tableau)[i]); |
(*s_objet_argument).objet)).tableau)[i]); |
|
|
Line 237 instruction_cnrm(struct_processus *s_eta
|
Line 244 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
.taille; i++) |
.taille; i++) |
{ |
{ |
cumul_reel += (real8) abs(((integer8 *) (*((struct_vecteur *) |
cumul_reel += abs((real8) ((integer8 *) (*((struct_vecteur *) |
(*s_objet_argument).objet)).tableau)[i]); |
(*s_objet_argument).objet)).tableau)[i]); |
} |
} |
|
|
Line 260 instruction_cnrm(struct_processus *s_eta
|
Line 267 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument).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 296 instruction_cnrm(struct_processus *s_eta
|
Line 303 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_vecteur *) |
if ((accumulateur = malloc(((size_t) (*((struct_vecteur *) |
(*s_objet_argument).objet)).taille * sizeof(real8))) == NULL) |
(*s_objet_argument).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 345 instruction_cnrm(struct_processus *s_eta
|
Line 352 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_lignes; i++) |
.nombre_lignes; i++) |
{ |
{ |
|
if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)) |
|
.tableau)[i][0] == INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
|
|
entier_courant = abs(((integer8 **) |
entier_courant = abs(((integer8 **) |
(*((struct_matrice *) (*s_objet_argument).objet)) |
(*((struct_matrice *) (*s_objet_argument).objet)) |
.tableau)[i][0]); |
.tableau)[i][0]); |
Line 371 instruction_cnrm(struct_processus *s_eta
|
Line 385 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_lignes; i++) |
.nombre_lignes; i++) |
{ |
{ |
|
if ((((integer8 **) (*((struct_matrice *) |
|
(*s_objet_argument).objet)).tableau)[i][j]) |
|
== INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
|
|
entier_courant = abs(((integer8 **) (*((struct_matrice *) |
entier_courant = abs(((integer8 **) (*((struct_matrice *) |
(*s_objet_argument).objet)).tableau)[i][j]); |
(*s_objet_argument).objet)).tableau)[i][j]); |
|
|
Line 411 instruction_cnrm(struct_processus *s_eta
|
Line 433 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 427 instruction_cnrm(struct_processus *s_eta
|
Line 449 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_lignes; i++) |
.nombre_lignes; i++) |
{ |
{ |
((real8 *) accumulateur)[i] = fabs((real8) ((integer8 **) |
((real8 *) accumulateur)[i] = abs((real8) ((integer8 **) |
(*((struct_matrice *) |
(*((struct_matrice *) |
(*s_objet_argument).objet)).tableau)[i][j]); |
(*s_objet_argument).objet)).tableau)[i][j]); |
} |
} |
Line 461 instruction_cnrm(struct_processus *s_eta
|
Line 483 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 477 instruction_cnrm(struct_processus *s_eta
|
Line 499 instruction_cnrm(struct_processus *s_eta
|
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(i = 0; i < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_lignes; i++) |
.nombre_lignes; i++) |
{ |
{ |
((real8 *) accumulateur)[i] = fabs(((real8 **) |
((real8 *) accumulateur)[i] = abs(((real8 **) |
(*((struct_matrice *) |
(*((struct_matrice *) |
(*s_objet_argument).objet)).tableau)[i][j]); |
(*s_objet_argument).objet)).tableau)[i][j]); |
} |
} |
Line 509 instruction_cnrm(struct_processus *s_eta
|
Line 531 instruction_cnrm(struct_processus *s_eta
|
return; |
return; |
} |
} |
|
|
if ((accumulateur = malloc((*((struct_matrice *) |
if ((accumulateur = malloc(((size_t) (*((struct_matrice *) |
(*s_objet_argument).objet)).nombre_lignes * sizeof(real8))) |
(*s_objet_argument).objet)).nombre_lignes) * sizeof(real8))) |
== NULL) |
== NULL) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
Line 701 instruction_chr(struct_processus *s_etat
|
Line 723 instruction_chr(struct_processus *s_etat
|
} |
} |
|
|
((unsigned char *) (*s_objet_resultat).objet)[0] = |
((unsigned char *) (*s_objet_resultat).objet)[0] = |
(*((integer8 *) (*s_objet_argument).objet)); |
(unsigned char) (*((integer8 *) |
|
(*s_objet_argument).objet)); |
((unsigned char *) (*s_objet_resultat).objet)[1] = |
((unsigned char *) (*s_objet_resultat).objet)[1] = |
d_code_fin_chaine; |
d_code_fin_chaine; |
} |
} |