* breakpoint.c (breakpoint_1): Annotate each field of the headers.

	Explicitly annotate each record.

2 files changed, 96 insertions, 17 deletions

diff --git a/gdb/ChangeLog b/gdb/ChangeLog
index 23ab19a..396ad2f 100644
--- a/gdb/ChangeLog
+++ b/gdb/ChangeLog
@@ -1,3 +1,8 @@
+Fri Apr 29 18:15:04 1994  Jim Kingdon  (kingdon@lioth.cygnus.com)
+
+	* breakpoint.c (breakpoint_1): Annotate each field of the headers.
+	Explicitly annotate each record.
+
 Fri Apr 29 15:56:18 1994  Stan Shebs  (shebs@andros.cygnus.com)
 
 	* xcoffexec.c: Reformat to standards and lint.
diff --git a/gdb/breakpoint.c b/gdb/breakpoint.c
index 28cbeeb..b9efd05 100644
--- a/gdb/breakpoint.c
+++ b/gdb/breakpoint.c
@@ -1539,14 +1539,49 @@ breakpoint_1 (bnum, allflag)
 	  continue;
 
 	if (!found_a_breakpoint++)
-	  printf_filtered ("Num Type           Disp Enb %sWhat\n",
-			   addressprint ? "Address    " : "");
-
-	printf_filtered ("%-3d %-14s %-4s %-3c ",
-			 b->number,
-			 bptypes[(int)b->type],
-			 bpdisps[(int)b->disposition],
-			 bpenables[(int)b->enable]);
+	  {
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032breakpoints-headers\n");
+
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 0\n");
+	    printf_filtered ("Num ");
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 1\n");
+	    printf_filtered ("Type           ");
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 2\n");
+	    printf_filtered ("Disp ");
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 3\n");
+	    printf_filtered ("Enb ");
+	    if (addressprint)
+	      {
+		if (annotation_level > 1)
+		  printf_filtered ("\n\032\032field 4\n");
+		printf_filtered ("Address    ");
+	      }
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 5\n");
+	    printf_filtered ("What\n");
+
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032breakpoints-table\n");
+	  }
+
+	if (annotation_level > 1)
+	  printf_filtered ("\n\032\032record\n\n\032\032field 0\n");
+	printf_filtered ("%-3d ", b->number);
+	if (annotation_level > 1)
+	  printf_filtered ("\n\032\032field 1\n");
+	printf_filtered ("%-14s ", bptypes[(int)b->type]);
+	if (annotation_level > 1)
+	  printf_filtered ("\n\032\032field 2\n");
+	printf_filtered ("%-4s ", bpdisps[(int)b->disposition]);
+	if (annotation_level > 1)
+	  printf_filtered ("\n\032\032field 3\n");
+	printf_filtered ("%-3c ", bpenables[(int)b->enable]);
+
 	strcpy (wrap_indent, "                           ");
 	if (addressprint)
 	  strcat (wrap_indent, "           ");
@@ -1554,6 +1589,11 @@ breakpoint_1 (bnum, allflag)
 	  {
 	  case bp_watchpoint:
 	  case bp_hardware_watchpoint:
+	    /* Field 4, the address, is omitted (which makes the columns
+	       not line up too nicely with the headers, but the effect
+	       is relatively readable).  */
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 5\n");
 	    print_expression (b->exp, gdb_stdout);
 	    break;
 
@@ -1567,7 +1607,19 @@ breakpoint_1 (bnum, allflag)
 	  case bp_watchpoint_scope:
 	  case bp_call_dummy:
 	    if (addressprint)
-	      printf_filtered ("%s ", local_hex_string_custom ((unsigned long) b->address, "08l"));
+	      {
+		if (annotation_level > 1)
+		  printf_filtered ("\n\032\032field 4\n");
+		/* FIXME-32x64: need a print_address_numeric with
+                   field width */
+		printf_filtered
+		  ("%s ",
+		   local_hex_string_custom
+		   ((unsigned long) b->address, "08l"));
+	      }
+
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 5\n");
 
 	    last_addr = b->address;
 	    if (b->source_file)
@@ -1592,26 +1644,45 @@ breakpoint_1 (bnum, allflag)
 
 	if (b->frame)
 	  {
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 6\n");
+
 	    printf_filtered ("\tstop only in stack frame at ");
 	    print_address_numeric (b->frame, gdb_stdout);
 	    printf_filtered ("\n");
 	  }
+
 	if (b->cond)
 	  {
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 7\n");
+
 	    printf_filtered ("\tstop only if ");
 	    print_expression (b->cond, gdb_stdout);
 	    printf_filtered ("\n");
 	  }
+
 	if (b->ignore_count)
-	  printf_filtered ("\tignore next %d hits\n", b->ignore_count);
+	  {
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 8\n");
+
+	    printf_filtered ("\tignore next %d hits\n", b->ignore_count);
+	  }
+
 	if ((l = b->commands))
-	  while (l)
-	    {
-	      fputs_filtered ("\t", gdb_stdout);
-	      fputs_filtered (l->line, gdb_stdout);
-	      fputs_filtered ("\n", gdb_stdout);
-	      l = l->next;
-	    }
+	  {
+	    if (annotation_level > 1)
+	      printf_filtered ("\n\032\032field 9\n");
+
+	    while (l)
+	      {
+		fputs_filtered ("\t", gdb_stdout);
+		fputs_filtered (l->line, gdb_stdout);
+		fputs_filtered ("\n", gdb_stdout);
+		l = l->next;
+	      }
+	  }
       }
 
   if (!found_a_breakpoint)
@@ -1626,6 +1697,9 @@ breakpoint_1 (bnum, allflag)
        that a comparison of an unsigned with -1 is always false.  */
     if (last_addr != (CORE_ADDR)-1)
       set_next_address (last_addr);
+
+  if (annotation_level > 1)
+    printf_filtered ("\n\032\032breakpoints-table-end\n");
 }
 
 /* ARGSUSED */