diff --git a/gcc/ChangeLog b/gcc/ChangeLog
index 2cfe0c100fa7c4b086ad772a5ebdd09a24716f4f..ea5a37daabe7d59980dd957f1e6d4be39a1fe9b9 100644
--- a/gcc/ChangeLog
+++ b/gcc/ChangeLog
@@ -1,3 +1,8 @@
+2004-03-17  Jan Hubicka  <jh@suse.cz>
+
+	* cfgrtl.c (rtl_create_basic_block): Pre-allocate basic_block_info
+	array.
+
 2004-03-17  James E Wilson  <wilson@specifixinc.com>
 
 	* config/mips/mips.md (zero_extendsidi2): Add length attribute.
diff --git a/gcc/cfgrtl.c b/gcc/cfgrtl.c
index 3363a2d9720453400dde629bdbf05ff11bcbc9c1..f38c53c5eda684c7a5c7f0bbc64711bf0e2bb5c1 100644
--- a/gcc/cfgrtl.c
+++ b/gcc/cfgrtl.c
@@ -338,8 +338,12 @@ rtl_create_basic_block (void *headp, void *endp, basic_block after)
   rtx head = headp, end = endp;
   basic_block bb;
 
-  /* Place the new block just after the end.  */
-  VARRAY_GROW (basic_block_info, last_basic_block + 1);
+  /* Grow the basic block array if needed.  */
+  if ((size_t) last_basic_block >= VARRAY_SIZE (basic_block_info))
+    {
+      size_t new_size = last_basic_block + (last_basic_block + 3) / 4;
+      VARRAY_GROW (basic_block_info, new_size);
+    }
 
   n_basic_blocks++;