version 1.41, 2013/02/27 17:11:42
|
version 1.42, 2013/03/16 11:31:41
|
Line 39 void
|
Line 39 void
|
instruction_moins(struct_processus *s_etat_processus) |
instruction_moins(struct_processus *s_etat_processus) |
{ |
{ |
integer8 tampon; |
integer8 tampon; |
integer8 tampon_2; |
|
|
|
logical1 depassement; |
logical1 depassement; |
logical1 drapeau; |
logical1 drapeau; |
Line 136 instruction_moins(struct_processus *s_et
|
Line 135 instruction_moins(struct_processus *s_et
|
if (((*s_objet_argument_1).type == INT) && |
if (((*s_objet_argument_1).type == INT) && |
((*s_objet_argument_2).type == INT)) |
((*s_objet_argument_2).type == INT)) |
{ |
{ |
tampon_2 = -(*((integer8 *) (*s_objet_argument_1).objet)); |
if (depassement_soustraction((integer8 *) (*s_objet_argument_2).objet, |
|
(integer8 *) (*s_objet_argument_1).objet, &tampon) == |
if (depassement_addition(&tampon_2, |
|
(integer8 *) (*s_objet_argument_2).objet, &tampon) == |
|
d_absence_erreur) |
d_absence_erreur) |
{ |
{ |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
if ((s_objet_resultat = allocation(s_etat_processus, INT)) |
Line 161 instruction_moins(struct_processus *s_et
|
Line 158 instruction_moins(struct_processus *s_et
|
} |
} |
|
|
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(*((real8 *) (*s_objet_resultat).objet)) = ((real8) |
(-(*((integer8 *) (*s_objet_argument_1).objet)))) |
(*((integer8 *) (*s_objet_argument_2).objet))) |
+ ((real8) (*((integer8 *) (*s_objet_argument_2).objet))); |
- ((real8) (*((integer8 *) (*s_objet_argument_1).objet))); |
} |
} |
} |
} |
|
|
Line 351 instruction_moins(struct_processus *s_et
|
Line 348 instruction_moins(struct_processus *s_et
|
for(i = 0; i < (*(((struct_vecteur *) (*s_objet_resultat) |
for(i = 0; i < (*(((struct_vecteur *) (*s_objet_resultat) |
.objet))).taille; i++) |
.objet))).taille; i++) |
{ |
{ |
tampon = -((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
if (depassement_soustraction(&(((integer8 *) (*((struct_vecteur *) |
.objet)).tableau)[i]; |
(*s_objet_argument_2).objet)).tableau)[i]), |
|
&(((integer8 *) (*((struct_vecteur *) (*s_objet_argument_1) |
if (depassement_addition(&(((integer8 *) (*((struct_vecteur *) |
.objet)).tableau)[i]), |
(*s_objet_argument_2).objet)).tableau)[i]), &tampon, |
|
&(((integer8 *) (*((struct_vecteur *) |
&(((integer8 *) (*((struct_vecteur *) |
(*s_objet_resultat).objet)).tableau)[i])) == d_erreur) |
(*s_objet_resultat).objet)).tableau)[i])) == d_erreur) |
{ |
{ |
Line 738 instruction_moins(struct_processus *s_et
|
Line 734 instruction_moins(struct_processus *s_et
|
for(j = 0; j < (*(((struct_matrice *) (*s_objet_resultat).objet))) |
for(j = 0; j < (*(((struct_matrice *) (*s_objet_resultat).objet))) |
.nombre_colonnes; j++) |
.nombre_colonnes; j++) |
{ |
{ |
tampon = -((integer8 **) (*((struct_matrice *) |
if (depassement_soustraction(&(((integer8 **) |
(*s_objet_argument_1).objet)).tableau)[i][j]; |
(*((struct_matrice *) (*s_objet_argument_2).objet)) |
|
.tableau)[i][j]), &(((integer8 **) (*((struct_matrice *) |
if (depassement_addition(&(((integer8 **) (*((struct_matrice *) |
(*s_objet_argument_1).objet)).tableau)[i][j]), |
(*s_objet_argument_2).objet)).tableau)[i][j]), &tampon, |
|
&(((integer8 **) (*((struct_matrice *) |
&(((integer8 **) (*((struct_matrice *) |
(*s_objet_resultat).objet)).tableau)[i][j])) |
(*s_objet_resultat).objet)).tableau)[i][j])) |
== d_erreur) |
== d_erreur) |