diff options
| author | J"orn Rennecke <amylaar@cygnus.co.uk> | 1998-02-01 11:43:05 +0000 |
|---|---|---|
| committer | Jeff Law <law@gcc.gnu.org> | 1998-02-01 04:43:05 -0700 |
| commit | c8bec8c8be93e4002280fe8ee9f7c3c067cd83ea (patch) | |
| tree | 00e46734e3d727d7501daa8f857ccd05b1186747 | |
| parent | 8d0f1540f87cf2cb595ae4cf6cb874329e7310e1 (diff) | |
| download | gcc-c8bec8c8be93e4002280fe8ee9f7c3c067cd83ea.zip gcc-c8bec8c8be93e4002280fe8ee9f7c3c067cd83ea.tar.gz gcc-c8bec8c8be93e4002280fe8ee9f7c3c067cd83ea.tar.bz2 | |
com.c (ffecom_tree_canonize_ptr_): Place bitsizetype typed expr as first agument in MULT_EXPR.
* com.c (ffecom_tree_canonize_ptr_): Place bitsizetype typed expr
as first agument in MULT_EXPR.
Use bitsize_int (0L, 0L) as zero for bitsizes.
(ffecom_tree_canonize_ref_):
Use bitsize_int (0L, 0L) as zero for bitsizes.
(ffecom_init_0): Use set_sizetype.
From-SVN: r17575
| -rw-r--r-- | gcc/f/ChangeLog.egcs | 9 | ||||
| -rw-r--r-- | gcc/f/com.c | 22 |
2 files changed, 16 insertions, 15 deletions
diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs index 708b9bf..7e55f91 100644 --- a/gcc/f/ChangeLog.egcs +++ b/gcc/f/ChangeLog.egcs @@ -1,3 +1,12 @@ +Sun Feb 1 12:43:49 1998 J"orn Rennecke <amylaar@cygnus.co.uk> + + * com.c (ffecom_tree_canonize_ptr_): Place bitsizetype typed expr + as first agument in MULT_EXPR. + Use bitsize_int (0L, 0L) as zero for bitsizes. + (ffecom_tree_canonize_ref_): + Use bitsize_int (0L, 0L) as zero for bitsizes. + (ffecom_init_0): Use set_sizetype. + Sun Feb 1 02:26:58 1998 Richard Henderson <rth@cygnus.com> * runtime directory -- moved into "libfc2" in the toplevel diff --git a/gcc/f/com.c b/gcc/f/com.c index 6d33573..49b2f24 100644 --- a/gcc/f/com.c +++ b/gcc/f/com.c @@ -9458,8 +9458,8 @@ ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, /* Convert offset (presumably in bytes) into canonical units (presumably bits). */ *offset = size_binop (MULT_EXPR, - *offset, - TYPE_SIZE (TREE_TYPE (TREE_TYPE (t)))); + TYPE_SIZE (TREE_TYPE (TREE_TYPE (t))), + *offset); break; } /* Not a COMMON reference, so an unrecognized pattern. */ @@ -9468,7 +9468,7 @@ ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, case PARM_DECL: *decl = t; - *offset = size_zero_node; + *offset = bitsize_int (0L, 0L); break; case ADDR_EXPR: @@ -9476,7 +9476,7 @@ ffecom_tree_canonize_ptr_ (tree *decl, tree *offset, { /* A reference to COMMON. */ *decl = TREE_OPERAND (t, 0); - *offset = size_zero_node; + *offset = bitsize_int (0L, 0L); break; } /* Fall through. */ @@ -9597,7 +9597,7 @@ ffecom_tree_canonize_ref_ (tree *decl, tree *offset, case VAR_DECL: case PARM_DECL: *decl = t; - *offset = size_zero_node; + *offset = bitsize_int (0L, 0L); *size = TYPE_SIZE (TREE_TYPE (t)); return; @@ -11809,16 +11809,8 @@ ffecom_init_0 () pushdecl (build_decl (TYPE_DECL, get_identifier ("long long unsigned int"), long_long_unsigned_type_node)); - sizetype - = TREE_TYPE (IDENTIFIER_GLOBAL_VALUE (get_identifier (SIZE_TYPE))); - - TREE_TYPE (TYPE_SIZE (integer_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (char_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (unsigned_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (long_unsigned_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (long_integer_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (long_long_integer_type_node)) = sizetype; - TREE_TYPE (TYPE_SIZE (long_long_unsigned_type_node)) = sizetype; + set_sizetype + (TREE_TYPE (IDENTIFIER_GLOBAL_VALUE (get_identifier (SIZE_TYPE)))); error_mark_node = make_node (ERROR_MARK); TREE_TYPE (error_mark_node) = error_mark_node; |