procyberian/gcc
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

com.c (ffecom_ptr_to_expr): Do upper - lower in the native type, so as to properly handle negative indices.

Browse source 
* com.c (ffecom_ptr_to_expr) [FFEBLD_opARRAYREF]:  Do upper - lower
        in the native type, so as to properly handle negative indices.

From-SVN: r17847
This commit is contained in:
Richard Henderson 1998-02-10 16:44:03 -08:00 • committed by Jeff Law
parent a2d53b285d
commit e203760cfa
2 changed files with 10 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
gcc/f/ChangeLog.egcs
View file

@ -1,3 +1,8 @@
Wed Feb 11 01:44:48 1998 Richard Henderson (rth@cygnus.com)
* com.c (ffecom_ptr_to_expr) [FFEBLD_opARRAYREF]: Do upper - lower
in the native type, so as to properly handle negative indices.
Fri Jan 9 19:09:07 1998 Craig Burley <burley@gnu.org>
Fix -fpedantic combined with `F()' invocation,

8
gcc/f/com.c
View file

@ -13032,9 +13032,11 @@ ffecom_ptr_to_expr (ffebld expr)
item,
size_binop (MULT_EXPR,
size_in_bytes (TREE_TYPE (array)),
size_binop (MINUS_EXPR,
ffecom_expr (dims[i]),
TYPE_MIN_VALUE (TYPE_DOMAIN (array)))));
convert (sizetype,
fold (build (MINUS_EXPR,
TREE_TYPE (TYPE_MIN_VALUE (TYPE_DOMAIN (array))),
ffecom_expr (dims[i]),
TYPE_MIN_VALUE (TYPE_DOMAIN (array)))))));
}
}
return item;