RFA: make `info source' say whether macro info is present

[Jim Blandy <jimb@redhat.com>]

This will make it a bit easier to write tests that exit gracefully
when the test executable doesn't have any information about
preprocessor macros.  Alternative suggestions welcome.

gdb/ChangeLog:
2002-05-22  Jim Blandy  <jimb@redhat.com>

	* source.c (source_info): Mention whether the symtab has
	information about preprocessor macros.

gdb/testsuite/ChangeLog:
2002-05-22  Jim Blandy  <jimb@redhat.com>

	* lib/gdb.exp (get_debug_format): Tolerate message saying whether
	preprocessor macro information is present.

Index: gdb/source.c
===================================================================
RCS file: /cvs/src/src/gdb/source.c,v
retrieving revision 1.28
diff -c -r1.28 source.c
*** gdb/source.c	23 Apr 2002 11:09:09 -0000	1.28
--- gdb/source.c	22 May 2002 20:13:14 -0000
***************
*** 500,505 ****
--- 500,507 ----
  
    printf_filtered ("Source language is %s.\n", language_str (s->language));
    printf_filtered ("Compiled with %s debugging format.\n", s->debugformat);
+   printf_filtered ("%s preprocessor macro info.\n",
+                    s->macro_table ? "Includes" : "Does not include");
  }
  \f
  
Index: gdb/testsuite/lib/gdb.exp
===================================================================
RCS file: /cvs/src/src/gdb/testsuite/lib/gdb.exp,v
retrieving revision 1.18
diff -c -r1.18 gdb.exp
*** gdb/testsuite/lib/gdb.exp	10 May 2002 18:38:09 -0000	1.18
--- gdb/testsuite/lib/gdb.exp	22 May 2002 20:13:14 -0000
***************
*** 1435,1441 ****
      set debug_format "unknown"
      send_gdb "info source\n"
      gdb_expect 10 {
! 	-re "Compiled with (.*) debugging format.\r\n$gdb_prompt $" {
  	    set debug_format $expect_out(1,string)
  	    verbose "debug format is $debug_format"
  	    return 1;
--- 1435,1441 ----
      set debug_format "unknown"
      send_gdb "info source\n"
      gdb_expect 10 {
! 	-re "Compiled with (.*) debugging format.\r\n.*$gdb_prompt $" {
  	    set debug_format $expect_out(1,string)
  	    verbose "debug format is $debug_format"
  	    return 1;