diff options
| author | Jakub Jelinek <jakub@redhat.com> | 2003-10-31 11:34:03 +0100 |
|---|---|---|
| committer | Jakub Jelinek <jakub@gcc.gnu.org> | 2003-10-31 11:34:03 +0100 |
| commit | 65bb4a49e858bcd85d9c8281da0805da8cb55ff1 (patch) | |
| tree | eace6d25dd9b2522c4d02dd7e887035e7c32b4b1 /gcc/f | |
| parent | 2c4902b98285c240cc5e534051de7e3a1d9f0499 (diff) | |
| download | gcc-65bb4a49e858bcd85d9c8281da0805da8cb55ff1.zip gcc-65bb4a49e858bcd85d9c8281da0805da8cb55ff1.tar.gz gcc-65bb4a49e858bcd85d9c8281da0805da8cb55ff1.tar.bz2 | |
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
Diffstat (limited to 'gcc/f')
| -rw-r--r-- | gcc/f/ChangeLog | 5 | ||||
| -rw-r--r-- | gcc/f/com.c | 6 |
2 files changed, 9 insertions, 2 deletions
diff --git a/gcc/f/ChangeLog b/gcc/f/ChangeLog index 12cdc27..fe7ed05 100644 --- a/gcc/f/ChangeLog +++ b/gcc/f/ChangeLog @@ -1,3 +1,8 @@ +2003-10-31 Jakub Jelinek <jakub@redhat.com> + + * com.c (ffecom_sym_transform_): Set tree type of offset + to ssizetype. + 2003-10-21 Kelley Cook <kcook@gcc.gnu.org> * Make-lang.in (f/g77.1): Honor $(docobjdir). diff --git a/gcc/f/com.c b/gcc/f/com.c index e992cb90..535ddbb 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; |