version 1.46, 2012/12/18 13:19:37
|
version 1.50, 2013/03/16 11:31:41
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.1.12 |
RPL/2 (R) version 4.1.13 |
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 410 instruction_rnrm(struct_processus *s_eta
|
Line 410 instruction_rnrm(struct_processus *s_eta
|
|
|
if ((*s_objet_argument).type == VIN) |
if ((*s_objet_argument).type == VIN) |
{ |
{ |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
depassement = d_faux; |
|
|
|
for(i = 0; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
|
i++) |
{ |
{ |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
if (((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
return; |
.objet)).tableau)[i] == INT64_MIN) |
|
{ |
|
depassement = d_vrai; |
|
break; |
|
} |
} |
} |
|
|
(*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) |
if (depassement == d_faux) |
(*((struct_vecteur *) (*s_objet_argument).objet)).tableau)[0]); |
{ |
|
if ((s_objet_resultat = allocation(s_etat_processus, INT)) == NULL) |
|
{ |
|
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
|
return; |
|
} |
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)).taille; |
(*((integer8 *) (*s_objet_resultat).objet)) = abs(((integer8 *) |
i++) |
(*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.tableau)[0]); |
|
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.taille; i++) |
|
{ |
|
if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
|
.objet)).tableau)[i]) > (*((integer8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
|
(*((integer8 *) (*s_objet_resultat).objet)) = |
|
abs(((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]); |
|
} |
|
} |
|
} |
|
else |
{ |
{ |
if (abs(((integer8 *) (*((struct_vecteur *) (*s_objet_argument) |
if ((s_objet_resultat = allocation(s_etat_processus, REL)) == NULL) |
.objet)).tableau)[i]) > (*((integer8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
{ |
(*((integer8 *) (*s_objet_resultat).objet)) = |
(*s_etat_processus).erreur_systeme = d_es_allocation_memoire; |
abs(((integer8 *) (*((struct_vecteur *) |
return; |
(*s_objet_argument).objet)).tableau)[i]); |
} |
|
|
|
(*((real8 *) (*s_objet_resultat).objet)) = abs((real8) ((integer8 *) |
|
(*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.tableau)[0]); |
|
|
|
for(i = 1; i < (*((struct_vecteur *) (*s_objet_argument).objet)) |
|
.taille; i++) |
|
{ |
|
if (abs((real8) ((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]) > (*((real8 *) |
|
(*s_objet_resultat).objet))) |
|
{ |
|
(*((real8 *) (*s_objet_resultat).objet)) = |
|
abs((real8) ((integer8 *) (*((struct_vecteur *) |
|
(*s_objet_argument).objet)).tableau)[i]); |
|
} |
} |
} |
} |
} |
} |
} |
Line 501 instruction_rnrm(struct_processus *s_eta
|
Line 543 instruction_rnrm(struct_processus *s_eta
|
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_colonnes; j++) |
.nombre_colonnes; j++) |
{ |
{ |
|
if (((integer8 **) (*((struct_matrice *) (*s_objet_argument).objet)) |
|
.tableau)[0][j] == 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)[0][j]); |
.tableau)[0][j]); |
Line 525 instruction_rnrm(struct_processus *s_eta
|
Line 574 instruction_rnrm(struct_processus *s_eta
|
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
for(j = 0; j < (*((struct_matrice *) (*s_objet_argument).objet)) |
.nombre_colonnes; j++) |
.nombre_colonnes; j++) |
{ |
{ |
|
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]); |
|
|