* trans-intrinsic.c: Comment fixes.

From-SVN: r88126
2004-09-26 16:24:07 +02:00 · 2004-09-26 16:24:07 +02:00 · 68629d160e
commit 68629d160e
parent 628f3b6363
2 changed files with 5 additions and 1 deletions
--- a/gcc/fortran/ChangeLog
+++ b/gcc/fortran/ChangeLog
@ -1,3 +1,7 @@
+2004-09-26  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>
+
+	* trans-intrinsic.c: Comment fixes.
+
 2004-09-25  Tobias Schlueter  <tobias.schlueter@physik.uni-muenchen.de>

 	* decl.c (add_init_expr_to_sym, variable_decl): Comment fixes.
--- a/gcc/fortran/trans-intrinsic.c
+++ b/gcc/fortran/trans-intrinsic.c
@ -2410,7 +2410,7 @@ call_builtin_clz (tree result_type, tree op0)
 }

 /* Generate code for SPACING (X) intrinsic function. We generate:
-                                                                                
+
    t = expn - (BITS_OF_FRACTION)
    res = t << (BITS_OF_FRACTION)
    if (t < 0)