version 1.3, 2010/02/10 10:14:23
|
version 1.37, 2012/10/05 13:12:39
|
Line 1
|
Line 1
|
/* |
/* |
================================================================================ |
================================================================================ |
RPL/2 (R) version 4.0.11 |
RPL/2 (R) version 4.1.11 |
Copyright (C) 1989-2010 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 20
|
Line 20
|
*/ |
*/ |
|
|
|
|
#include "rpl.conv.h" |
#include "rpl-conv.h" |
|
|
|
|
/* |
/* |
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; |