* 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.

git-svn-id: svn+ssh://gcc.gnu.org/svn/gcc/trunk@17575 138bc75d-0d04-0410-961f-82ee72b054a4

diff --git a/gcc/f/ChangeLog.egcs b/gcc/f/ChangeLog.egcs
index 708b9bf..7e55f91 100644 (file)
--- 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 (file)
--- 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;