version 1.42, 2013/03/16 11:31:40
|
version 1.43, 2013/03/16 11:45:07
|
Line 186 depassement_multiplication(integer8 *a,
|
Line 186 depassement_multiplication(integer8 *a,
|
logical1 |
logical1 |
depassement_puissance(integer8 *a, integer8 *b, integer8 *resultat) |
depassement_puissance(integer8 *a, integer8 *b, integer8 *resultat) |
{ |
{ |
int decalage; |
|
|
|
integer8 i; |
integer8 i; |
|
|
logical1 depassement; |
logical1 depassement; |
|
|
unsigned_integer8 r; |
unsigned_integer8 r; |
unsigned_integer8 unite; |
|
|
|
if ((*b) < 0) |
if ((*b) < 0) |
{ |
{ |
Line 242 depassement_puissance(integer8 *a, integ
|
Line 239 depassement_puissance(integer8 *a, integ
|
} |
} |
else |
else |
{ |
{ |
decalage = (sizeof(unsigned_integer8) * 8) - 1; |
f77puissanceii_(a, b, resultat); |
unite = 1; |
return(d_absence_erreur); |
|
|
if (r <= ((unite << decalage) - 1)) |
|
{ |
|
f77puissanceii_(a, b, resultat); |
|
return(d_absence_erreur); |
|
} |
|
else |
|
{ |
|
(*resultat) = 0; |
|
return(d_erreur); |
|
} |
|
} |
} |
} |
} |
|
|