rpl/src/instructions_h1.c - diff

Return to instructions_h1.c CVS log

Up to [local] / rpl / src

version 1.44, 2013/02/27 17:11:42	version 1.45, 2013/03/16 11:31:41
Line 480 instruction_hms_moins(struct_processus *	Line 480 instruction_hms_moins(struct_processus *
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))
{	{
(((integer8 ) (*s_objet_argument_1).objet)) =	if (depassement_soustraction((integer8 ) (s_objet_argument_2).objet,
-(((integer8 ) (*s_objet_argument_1).objet));	(integer8 ) (s_objet_argument_1).objet, &tampon) ==

if (depassement_addition((integer8 ) (s_objet_argument_1).objet,
(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 506 instruction_hms_moins(struct_processus *	Line 503 instruction_hms_moins(struct_processus *
}	}

(((real8 ) (*s_objet_resultat).objet)) = ((real8)	(((real8 ) (*s_objet_resultat).objet)) = ((real8)
(((integer8 ) (*s_objet_argument_1).objet))) + ((real8)	(((integer8 ) (*s_objet_argument_2).objet))) - ((real8)
(((integer8 ) (*s_objet_argument_2).objet)));	(((integer8 ) (*s_objet_argument_1).objet)));
}	}
}	}