OpenE2K/gcc
2
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

com.c (ffecom_sym_transform_): Set tree type of offset to ssizetype.

Browse Source 
* com.c (ffecom_sym_transform_): Set tree type of offset
	to ssizetype.

From-SVN: r73127
This commit is contained in:
Jakub Jelinek 2003-10-31 11:34:03 +01:00 committed by Jakub Jelinek
parent 2c4902b982
commit 65bb4a49e8
2 changed files with 9 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
gcc/f/ChangeLog
View File

@ -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).

6
gcc/f/com.c
View File

@ -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;