From 65bb4a49e858bcd85d9c8281da0805da8cb55ff1 Mon Sep 17 00:00:00 2001 From: Jakub Jelinek Date: Fri, 31 Oct 2003 11:34:03 +0100 Subject: [PATCH] com.c (ffecom_sym_transform_): Set tree type of offset to ssizetype. * com.c (ffecom_sym_transform_): Set tree type of offset to ssizetype. From-SVN: r73127 --- gcc/f/ChangeLog | 5 +++++ gcc/f/com.c | 6 ++++-- 2 files changed, 9 insertions(+), 2 deletions(-) diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 12cdc27cf27..fe7ed0516e0 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2003-10-31 Jakub Jelinek + + * com.c (ffecom_sym_transform_): Set tree type of offset + to ssizetype. + 2003-10-21 Kelley Cook * Make-lang.in (f/g77.1): Honor $(docobjdir). diff --git a/gcc/f/com.c b/gcc/f/com.c index e992cb90b77..535ddbb87e8 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -7919,6 +7919,7 @@ ffecom_sym_transform_ (ffesymbol s) { ffetargetOffset offset; ffestorag cst; + tree toffset; cst = ffestorag_parent (st); assert (cst == ffesymbol_storage (cs)); @@ -7935,9 +7936,10 @@ ffecom_sym_transform_ (ffesymbol s) ffecom_1 (ADDR_EXPR, build_pointer_type (TREE_TYPE (ct)), ct)); + toffset = build_int_2 (offset, 0); + TREE_TYPE (toffset) = ssizetype; t = ffecom_2 (PLUS_EXPR, TREE_TYPE (t), - t, - build_int_2 (offset, 0)); + t, toffset); t = convert (build_pointer_type (type), t); TREE_CONSTANT (t) = 1;