OSDN Git Service

gcc/fortran/:
[pf3gnuchains/gcc-fork.git] / gcc / fortran / constructor.c
index 12bbdc4..45228b0 100644 (file)
@@ -36,7 +36,6 @@ node_free (splay_tree_value value)
     gfc_free_iterator (c->iterator, 1);
 
   mpz_clear (c->offset);
-  mpz_clear (c->repeat);
 
   gfc_free (c);
 }
@@ -55,7 +54,6 @@ node_copy (splay_tree_node node, void *base)
   c->n.component = src->n.component;
 
   mpz_init_set (c->offset, src->offset);
-  mpz_init_set (c->repeat, src->repeat);
 
   return c;
 }
@@ -80,7 +78,6 @@ gfc_constructor_get (void)
   c->iterator = NULL;
 
   mpz_init_set_si (c->offset, 0);
-  mpz_init_set_si (c->repeat, 0);
 
   return c;
 }
@@ -172,7 +169,6 @@ gfc_constructor_insert_expr (gfc_constructor_base *base,
 gfc_constructor *
 gfc_constructor_lookup (gfc_constructor_base base, int offset)
 {
-  gfc_constructor *c;
   splay_tree_node node;
 
   if (!base)
@@ -182,22 +178,7 @@ gfc_constructor_lookup (gfc_constructor_base base, int offset)
   if (node)
     return (gfc_constructor*) node->value;
 
-  /* Check if the previous node has a repeat count big enough to
-     cover the offset looked for.  */
-  node = splay_tree_predecessor (base, offset);
-  if (!node)
-    return NULL;
-
-  c = (gfc_constructor*) node->value;
-  if (mpz_cmp_si (c->repeat, 1) > 0)
-    {
-      if (mpz_get_si (c->offset) + mpz_get_si (c->repeat) <= offset)
-       c = NULL;
-    }
-  else
-    c = NULL;
-
-  return c;
+  return NULL;
 }