diff options
| author | Kazu Hirata <kazu@cs.umass.edu> | 2004-10-04 12:00:04 +0000 |
|---|---|---|
| committer | Kazu Hirata <kazu@gcc.gnu.org> | 2004-10-04 12:00:04 +0000 |
| commit | b805ea17e55a0da7424d97eb9fb252917e51445e (patch) | |
| tree | f0cfa9b68cc56ef09442815577d9cdf737191936 /gcc/fortran/trans-intrinsic.c | |
| parent | 59c4456e0789cf3fead8522fa3cfbdcf6a5476c5 (diff) | |
| download | gcc-b805ea17e55a0da7424d97eb9fb252917e51445e.zip gcc-b805ea17e55a0da7424d97eb9fb252917e51445e.tar.gz gcc-b805ea17e55a0da7424d97eb9fb252917e51445e.tar.bz2 | |
* trans-intrinsic.c: Fix a comment typo.
From-SVN: r88481
Diffstat (limited to 'gcc/fortran/trans-intrinsic.c')
| -rw-r--r-- | gcc/fortran/trans-intrinsic.c | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/gcc/fortran/trans-intrinsic.c b/gcc/fortran/trans-intrinsic.c index 5aa2b35..3b4606a 100644 --- a/gcc/fortran/trans-intrinsic.c +++ b/gcc/fortran/trans-intrinsic.c @@ -2451,7 +2451,7 @@ gfc_conv_intrinsic_spacing (gfc_se * se, gfc_expr * expr) /* Generate code for RRSPACING (X) intrinsic function. 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 shift X's fraction part to left until the first '1' is removed. |