Skip to content

R
riscv-gcc-1
Commit b805ea17 by Kazu Hirata Committed by Kazu Hirata
Options

* trans-intrinsic.c: Fix a comment typo. 

From-SVN: r88481
parent 59c4456e
Showing with 5 additions and 1 deletions
gcc/fortran/ChangeLog
2004-10-04 Kazu Hirata <kazu@cs.umass.edu>
* trans-intrinsic.c: Fix a comment typo.
2004-10-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de> 2004-10-03 Tobias Schlueter <tobias.schlueter@physik.uni-muenchen.de>
* simplify.c (range_check): Remove blank line at beginning of function. * simplify.c (range_check): Remove blank line at beginning of function.
......
gcc/fortran/trans-intrinsic.c
...@@ -2451,7 +2451,7 @@ gfc_conv_intrinsic_spacing (gfc_se * se, gfc_expr * expr) ...@@ -2451,7 +2451,7 @@ gfc_conv_intrinsic_spacing (gfc_se * se, gfc_expr * expr)
/* Generate code for RRSPACING (X) intrinsic function. /* Generate code for RRSPACING (X) intrinsic function.
RRSPACING (X) = |X * POW (2, -e)| * POW (2, p) = |FRACTION (X)| * POW (2, p) RRSPACING (X) = |X * POW (2, -e)| * POW (2, p) = |FRACTION (X)| * POW (2, p)
So the result's exponenet is p. And if X is normalized, X's fraction part So the result's exponent is p. And if X is normalized, X's fraction part
is the result's fraction. If X is denormalized, to get the X's fraction we is the result's fraction. If X is denormalized, to get the X's fraction we
shift X's fraction part to left until the first '1' is removed. shift X's fraction part to left until the first '1' is removed.
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment