* gdb/source.c (source_info): Mention whether the symtab has

information about preprocessor macros.

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

* gdb/doc/gdb.texinfo (Symbols): Update documentation for `info
source' command.

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index a9d6a23f39bce011becf879c32e57efe90afc50c..99486033bbf646c44c65431012a260d5d4edc9f9 100644 (file)
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-11  Jim Blandy  <jimb@redhat.com>
 
+       * source.c (source_info): Mention whether the symtab has
+       information about preprocessor macros.
+
        Call the command `info macro', not `show macro'.
        * macrocmd.c (info_macro_command): Renamed from `show_macro_command'.
        Fix error message.

diff --git a/gdb/doc/ChangeLog b/gdb/doc/ChangeLog
index 363a3fcf87ab6e93981ba439e001af681246faff..4d1fbb581f70320a9dca4d789bf90b980e43d524 100644 (file)
--- a/gdb/doc/ChangeLog
+++ b/gdb/doc/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-11  Jim Blandy  <jimb@redhat.com>
 
+       * gdb.texinfo (Symbols): Update documentation for `info source'
+       command.
+
        * gdb.texinfo (Macros): Call the command `info macro', not
        `show macro'.
 

diff --git a/gdb/doc/gdb.texinfo b/gdb/doc/gdb.texinfo
index bff763b6a7bc215abc73c2c5e5dc127a984ec4bb..aa39d767530d33ad377cadbfc75664bb9b532095 100644 (file)
--- a/gdb/doc/gdb.texinfo
+++ b/gdb/doc/gdb.texinfo
@@ -9020,9 +9020,25 @@ collect}.
 
 @kindex info source
 @item info source
-Show the name of the current source file---that is, the source file for
-the function containing the current point of execution---and the language
-it was written in.
+Show information about the current source file---that is, the source file for
+the function containing the current point of execution:
+@itemize @bullet
+@item
+the name of the source file, and the directory containing it,
+@item
+the directory it was compiled in,
+@item
+its length, in lines,
+@item
+which programming language it is written in,
+@item
+whether the executable includes debugging information for that file, and
+if so, what format the information is in (e.g., STABS, Dwarf 2, etc.), and
+@item
+whether the debugging information includes information about
+preprocessor macros.
+@end itemize
+
 
 @kindex info sources
 @item info sources

diff --git a/gdb/source.c b/gdb/source.c
index ac74372405819de41b139f8838d2169a5aeca16b..c7c1ce2f5d29e1723ba24c9893f72d911df31f31 100644 (file)
--- a/gdb/source.c
+++ b/gdb/source.c
@@ -500,6 +500,8 @@ source_info (char *ignore, int from_tty)
 
   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
 

diff --git a/gdb/testsuite/ChangeLog b/gdb/testsuite/ChangeLog
index 2d02577bfe880432a00bc77c8721537a37cbaa31..da681a6b34e20faa2d164c0ab8891135ccf21c96 100644 (file)
--- a/gdb/testsuite/ChangeLog
+++ b/gdb/testsuite/ChangeLog
@@ -1,5 +1,8 @@
 2002-06-11  Jim Blandy  <jimb@redhat.com>
 
+       * lib/gdb.exp (get_debug_format): Tolerate message saying whether
+       preprocessor macro information is present.
+
        * macscp.exp, macscp1.c, macscp2.h, macscp3.h, macscp4.h: New
        tests.
 

diff --git a/gdb/testsuite/lib/gdb.exp b/gdb/testsuite/lib/gdb.exp
index d9285e86945032c5ed5fbee4b9e0c3839e0e1082..8d666f936ef1fd41e0de2e0cfb0d1b955d487f6f 100644 (file)
--- a/gdb/testsuite/lib/gdb.exp
+++ b/gdb/testsuite/lib/gdb.exp
@@ -1440,7 +1440,7 @@ proc get_debug_format { } {
     set debug_format "unknown"
     send_gdb "info source\n"
     gdb_expect 10 {
-       -re "Compiled with (.*) debugging format.\r\n$gdb_prompt $" {
+       -re "Compiled with (.*) debugging format.\r\n.*$gdb_prompt $" {
            set debug_format $expect_out(1,string)
            verbose "debug format is $debug_format"
            return 1;