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.29 and 1.38

version 1.29, 2011/11/26 10:01:29	version 1.38, 2012/12/18 13:19:37
Line 1	Line 1
/*	/*
================================================================================	================================================================================
RPL/2 (R) version 4.1.5	RPL/2 (R) version 4.1.12
Copyright (C) 1989-2011 Dr. BERTRAND Joël	Copyright (C) 1989-2012 Dr. BERTRAND Joël

This file is part of RPL/2.	This file is part of RPL/2.

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;

CVSweb interface <joel.bertrand@systella.fr>

Removed from v.1.29
changed lines
	Added in v.1.38