aboutsummaryrefslogtreecommitdiff
path: root/gcc
diff options
context:
space:
mode:
authorRichard Henderson <rth@gcc.gnu.org>1998-02-10 16:54:15 -0800
committerRichard Henderson <rth@gcc.gnu.org>1998-02-10 16:54:15 -0800
commit8cd61d76f7865b537d9e4de50419789b31ab73bf (patch)
tree71eb78b396f260a12647c6b7435ad7b4df3df058 /gcc
parent8fb3ae15370ca9d3dfde796e7fc2931851c09eb8 (diff)
downloadgcc-8cd61d76f7865b537d9e4de50419789b31ab73bf.zip
gcc-8cd61d76f7865b537d9e4de50419789b31ab73bf.tar.gz
gcc-8cd61d76f7865b537d9e4de50419789b31ab73bf.tar.bz2
Copy comment to go with the subtraction patch.
From-SVN: r17850
Diffstat (limited to 'gcc')
-rw-r--r--gcc/f/com.c2
1 files changed, 2 insertions, 0 deletions
diff --git a/gcc/f/com.c b/gcc/f/com.c
index 4934134..8ccf8c3 100644
--- a/gcc/f/com.c
+++ b/gcc/f/com.c
@@ -13026,6 +13026,8 @@ ffecom_ptr_to_expr (ffebld expr)
i >= 0;
--i, array = TYPE_MAIN_VARIANT (TREE_TYPE (array)))
{
+ /* The initial subtraction should happen in the original type so
+ that (possible) negative values are handled appropriately. */
item
= ffecom_2 (PLUS_EXPR,
build_pointer_type (TREE_TYPE (array)),