rpl/src/instructions_m1.c - diff

Return to instructions_m1.c CVS log

Up to [local] / rpl / src

Diff for /rpl/src/instructions_m1.c between versions 1.41 and 1.42

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)

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.41
changed lines
	Added in v.1.42