rpl/src/instructions_m1.c - diff

Return to instructions_m1.c CVS log

Up to [local] / rpl / src

version 1.36, 2012/10/01 11:05:05	version 1.37, 2012/10/05 13:12:39
Line 5795 instruction_mant(struct_processus *s_eta	Line 5795 instruction_mant(struct_processus *s_eta
real8 base_reelle;	real8 base_reelle;
real8 reduction_reelle;	real8 reduction_reelle;

integer4 erreur;

integer8 base_entiere;	integer8 base_entiere;
integer8 exposant;	integer8 exposant;
integer8 reduction_entiere;	integer8 reduction_entiere;
Line 5898 instruction_mant(struct_processus *s_eta	Line 5896 instruction_mant(struct_processus *s_eta
(*s_objet_argument).objet))));	(*s_objet_argument).objet))));

base_reelle = 10;	base_reelle = 10;
f77puissanceri_(&base_reelle, &exposant, &reduction_reelle, &erreur);	f77puissanceri_(&base_reelle, &exposant, &reduction_reelle);

if (erreur == -1)
{
if (test_cfsf(s_etat_processus, 59) == d_vrai)
{
liberation(s_etat_processus, s_objet_argument);
liberation(s_etat_processus, s_objet_resultat);

(*s_etat_processus).exception = d_ep_overflow;
return;
}
else
{
reduction_reelle = ((double) 1) / ((double) 0);
}
}

(((real8 ) (*s_objet_resultat).objet)) =	(((real8 ) (*s_objet_resultat).objet)) =
(((real8 ) (*s_objet_argument).objet)) / reduction_reelle;	(((real8 ) (*s_objet_argument).objet)) / reduction_reelle;