2007-08-04  Michael Snyder  <msnyder@access-company.com>

	* ada-lang.c (desc_bounds): Comparison of function address to NULL.

Index: ada-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-lang.c,v
retrieving revision 1.99
diff -p -r1.99 ada-lang.c
*** ada-lang.c	13 Jun 2007 17:11:09 -0000	1.99
--- ada-lang.c	5 Aug 2007 04:10:50 -0000
*************** desc_bounds (struct value *arr)
*** 1322,1328 ****
          desc_bounds_type (thin_descriptor_type (type));
        LONGEST addr;
  
!       if (desc_bounds_type == NULL)
          error (_("Bad GNAT array descriptor"));
  
        /* NOTE: The following calculation is not really kosher, but
--- 1322,1328 ----
          desc_bounds_type (thin_descriptor_type (type));
        LONGEST addr;
  
!       if (bounds_type == NULL)
          error (_("Bad GNAT array descriptor"));
  
        /* NOTE: The following calculation is not really kosher, but