From c8bec8c8be93e4002280fe8ee9f7c3c067cd83ea Mon Sep 17 00:00:00 2001 From: "J\"orn Rennecke" Date: Sun, 1 Feb 1998 11:43:05 +0000 Subject: [PATCH] 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 --- gcc/f/ChangeLog.egcs | 9 +++++++++ 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 + + * 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 * 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; -- 2.7.4