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

	* ada-lang.c (possible_user_operator_p): Guard against NULL.

Index: ada-lang.c
===================================================================
RCS file: /cvs/src/src/gdb/ada-lang.c,v
retrieving revision 1.100
diff -p -r1.100 ada-lang.c
*** ada-lang.c	6 Aug 2007 20:07:44 -0000	1.100
--- ada-lang.c	11 Aug 2007 20:39:20 -0000
*************** possible_user_operator_p (enum exp_opcod
*** 3536,3542 ****
          ((TYPE_CODE (type0) != TYPE_CODE_ARRAY
            && (TYPE_CODE (type0) != TYPE_CODE_PTR
                || TYPE_CODE (TYPE_TARGET_TYPE (type0)) != TYPE_CODE_ARRAY))
!          || (TYPE_CODE (type1) != TYPE_CODE_ARRAY
               && (TYPE_CODE (type1) != TYPE_CODE_PTR
                   || (TYPE_CODE (TYPE_TARGET_TYPE (type1)) 
  		     != TYPE_CODE_ARRAY))));
--- 3536,3542 ----
          ((TYPE_CODE (type0) != TYPE_CODE_ARRAY
            && (TYPE_CODE (type0) != TYPE_CODE_PTR
                || TYPE_CODE (TYPE_TARGET_TYPE (type0)) != TYPE_CODE_ARRAY))
!          || (type1 != NULL && TYPE_CODE (type1) != TYPE_CODE_ARRAY
               && (TYPE_CODE (type1) != TYPE_CODE_PTR
                   || (TYPE_CODE (TYPE_TARGET_TYPE (type1)) 
  		     != TYPE_CODE_ARRAY))));