gdb/energize-patches

   1 # Apply these patches to GDB to produce an Energize GDB.
   2 # To apply these patches, first cd to gdb-XX/gdb, run "patch -p0 <thisfile",
   3 # and then Sanitize.
   4
   5 ===================================================================
   6 RCS file: /local/cvsfiles/devo/gdb/.Sanitize,v
   7 retrieving revision 2.56
   8 diff -c -r2.56 .Sanitize
   9 *** 2.56        1992/06/23 06:26:00
  10 --- .Sanitize   1992/07/05 18:39:47
  11 ***************
  12 *** 76,81 ****
  13 --- 76,84 ----
  14   doc
  15   dwarfread.c
  16   elfread.c
  17 + energize
  18 + energize.c
  19 + energize.h
  20   environ.c
  21   environ.h
  22   eval.c
  23 ===================================================================
  24 *** Makefile.in Wed Jul 15 12:22:03 1992
  25 --- Makefile.in Wed Jul 15 12:15:34 1992
  26 ***************
  27 *** 123,128 ****
  28 --- 123,132 ----
  29   READLINE_DEP = $$(READLINE_DIR)
  30   RL_LIB = ./../readline${subdir}/libreadline.a
  31
  32 + # Energize libraries
  33 + ENERGIZE_DIR = ${srcdir}/../gdb/energize
  34 + ENERGIZE_LIB = ./../gdb/energize${subdir}/libconn.a
  35 +
  36   # All the includes used for CFLAGS and for lint.
  37   # -I. for config files.
  38   # -I${srcdir} possibly for regex.h also.
  39 ***************
  40 *** 155,166 ****
  41   # {X,T}M_CLIBS, defined in *config files, have host- and target-dependent libs.
  42   # TERMCAP comes after readline, since readline depends on it.
  43   CLIBS = ${BFD_LIB}  ${RL_LIB} ${TERMCAP} ${MMALLOC_LIB} ${LIBIBERTY} \
  44 !       ${XM_CLIBS} ${TM_CLIBS}
  45   CDEPS = ${XM_CDEPS} ${TM_CDEPS} ${BFD_LIB} ${MMALLOC_LIB} ${LIBIBERTY} \
  46         ${RL_LIB} ${MMALLOC_LIB}
  47
  48   ADD_FILES = ${REGEX} ${ALLOCA} ${XM_ADD_FILES} ${TM_ADD_FILES}
  49 ! ADD_DEPS = ${REGEX1} ${ALLOCA1} ${XM_ADD_FILES} ${TM_ADD_FILES}
  50
  51   VERSION = 4.6.1
  52   DIST=gdb
  53 --- 159,171 ----
  54   # {X,T}M_CLIBS, defined in *config files, have host- and target-dependent libs.
  55   # TERMCAP comes after readline, since readline depends on it.
  56   CLIBS = ${BFD_LIB}  ${RL_LIB} ${TERMCAP} ${MMALLOC_LIB} ${LIBIBERTY} \
  57 !       ${ENERGIZE_LIB} ${XM_CLIBS} ${TM_CLIBS}
  58   CDEPS = ${XM_CDEPS} ${TM_CDEPS} ${BFD_LIB} ${MMALLOC_LIB} ${LIBIBERTY} \
  59         ${RL_LIB} ${MMALLOC_LIB}
  60
  61   ADD_FILES = ${REGEX} ${ALLOCA} ${XM_ADD_FILES} ${TM_ADD_FILES}
  62 ! ADD_DEPS = ${REGEX1} ${ALLOCA1} ${XM_ADD_FILES} ${TM_ADD_FILES} \
  63 !          ${ENERGIZE_LIB}
  64
  65   VERSION = 4.6.1
  66   DIST=gdb
  67 ***************
  68 *** 190,196 ****
  69          ${DEMANGLER}.c mem-break.c target.c inftarg.c \
  70          dbxread.c coffread.c elfread.c dwarfread.c xcoffread.c \
  71          ieee-float.c language.c parse.c buildsym.c objfiles.c \
  72 !        minsyms.c mipsread.c maint.c
  73
  74   # Source files in subdirectories (which will be handled separately by
  75   #  'make gdb.tar.Z').
  76 --- 195,201 ----
  77          ${DEMANGLER}.c mem-break.c target.c inftarg.c \
  78          dbxread.c coffread.c elfread.c dwarfread.c xcoffread.c \
  79          ieee-float.c language.c parse.c buildsym.c objfiles.c \
  80 !        minsyms.c mipsread.c maint.c energize.c
  81
  82   # Source files in subdirectories (which will be handled separately by
  83   #  'make gdb.tar.Z').
  84 ***************
  85 *** 276,282 ****
  86       command.o utils.o expprint.o environ.o version.o gdbtypes.o \
  87       copying.o $(DEPFILES) ${DEMANGLER}.o mem-break.o target.o \
  88       inftarg.o ieee-float.o putenv.o parse.o language.o $(YYOBJ) \
  89 !     buildsym.o objfiles.o minsyms.o maint.o demangle.o \
  90       dbxread.o coffread.o elfread.o dwarfread.o xcoffread.o mipsread.o
  91
  92   RAPP_OBS = rgdb.o rudp.o rserial.o serial.o udp.o $(XDEPFILES)
  93 --- 281,287 ----
  94       command.o utils.o expprint.o environ.o version.o gdbtypes.o \
  95       copying.o $(DEPFILES) ${DEMANGLER}.o mem-break.o target.o \
  96       inftarg.o ieee-float.o putenv.o parse.o language.o $(YYOBJ) \
  97 !     buildsym.o objfiles.o minsyms.o maint.o demangle.o energize.o \
  98       dbxread.o coffread.o elfread.o dwarfread.o xcoffread.o mipsread.o
  99
 100   RAPP_OBS = rgdb.o rudp.o rserial.o serial.o udp.o $(XDEPFILES)
 101 ***************
 102 *** 289,295 ****
 103
 104   NTSSTART = kdb-start.o
 105
 106 ! SUBDIRS = doc
 107
 108   # For now, shortcut the "configure GDB for fewer languages" stuff.
 109   YYFILES = c-exp.tab.c m2-exp.tab.c
 110 --- 294,300 ----
 111
 112   NTSSTART = kdb-start.o
 113
 114 ! SUBDIRS = doc ${ENERGIZE_DIR}
 115
 116   # For now, shortcut the "configure GDB for fewer languages" stuff.
 117   YYFILES = c-exp.tab.c m2-exp.tab.c
 118 ***************
 119 *** 343,348 ****
 120 --- 348,367 ----
 121         #load `echo " "$(DEPFILES) | sed -e 's/\.o/.c/g' -e 's, , ../,g'`
 122         echo "Load .c corresponding to:" $(DEPFILES)
 123
 124 + ${ENERGIZE_LIB} :
 125 +       @(cd ${ENERGIZE_DIR}; \
 126 +               $(MAKE) \
 127 +                       "against=$(against)" \
 128 +                       "AR=$(AR)" \
 129 +                       "AR_FLAGS=$(AR_FLAGS)" \
 130 +                       "CC=$(CC)" \
 131 +                       "CFLAGS=$(CFLAGS)" \
 132 +                       "RANLIB=$(RANLIB)" \
 133 +                       "MAKEINFO=$(MAKEINFO)" \
 134 +                       "INSTALL=$(INSTALL)" \
 135 +                       "INSTALL_PROGRAM=$(INSTALL_PROGRAM)" \
 136 +                       "INSTALL_DATA=$(INSTALL_DATA)" \
 137 +                       "BISON=$(BISON)")
 138
 139   # This is useful when debugging GDB, because some Unix's don't let you run GDB
 140   # on itself without copying the executable.  So "make gdb1" will make
 141 ***************
 142 *** 665,670 ****
 143 --- 684,694 ----
 144
 145   xcoffexec.o: ${srcdir}/xcoffexec.c
 146         ${CC} -c ${INTERNAL_CFLAGS} -I$(BFD_DIR) ${srcdir}/xcoffexec.c
 147 +
 148 + # Energize support has dependencies on ENERGIZE header files.
 149 +
 150 + energize.o: ${srcdir}/energize.c
 151 +       ${CC} -c ${INTERNAL_CFLAGS} -I$(ENERGIZE_DIR) ${srcdir}/energize.c
 152
 153   # Drag in the files that are in another directory.
 154
 155 ===================================================================
 156 RCS file: /local/cvsfiles/devo/gdb/breakpoint.c,v
 157 retrieving revision 1.38
 158 diff -c -r1.38 breakpoint.c
 159 *** 1.38        1992/07/04 03:20:43
 160 --- breakpoint.c        1992/07/05 13:37:46
 161 ***************
 162 *** 273,278 ****
 163 --- 273,279 ----
 164             b->cond_string = NULL;
 165             if (from_tty)
 166               printf_filtered ("Breakpoint %d now unconditional.\n", bnum);
 167 +           energize_condition_breakpoint(b);
 168           }
 169         else
 170           {
 171 ***************
 172 *** 281,286 ****
 173 --- 282,288 ----
 174                typed in or the decompiled expression.  */
 175             b->cond_string = savestring (arg, strlen (arg));
 176             b->cond = parse_exp_1 (&arg, block_for_pc (b->address), 0);
 177 +           energize_condition_breakpoint(b);
 178             if (*arg)
 179               error ("Junk at end of expression");
 180           }
 181 ***************
 182 *** 316,330 ****
 183     ALL_BREAKPOINTS (b)
 184       if (b->number == bnum)
 185         {
 186 !       if (from_tty && input_from_terminal_p ())
 187 !         {
 188 !           printf_filtered ("Type commands for when breakpoint %d is hit, one per line.\n\
 189   End with a line saying just \"end\".\n", bnum);
 190 -           fflush (stdout);
 191 -         }
 192         l = read_command_lines ();
 193         free_command_lines (&b->commands);
 194         b->commands = l;
 195         return;
 196         }
 197     error ("No breakpoint number %d.", bnum);
 198 --- 318,330 ----
 199     ALL_BREAKPOINTS (b)
 200       if (b->number == bnum)
 201         {
 202 !       if ((from_tty && input_from_terminal_p ()) || energize)
 203 !         printf_filtered ("Type commands for when breakpoint %d is hit, one per line.\n\
 204   End with a line saying just \"end\".\n", bnum);
 205         l = read_command_lines ();
 206         free_command_lines (&b->commands);
 207         b->commands = l;
 208 +       energize_commands_breakpoint(b);
 209         return;
 210         }
 211     error ("No breakpoint number %d.", bnum);
 212 ***************
 213 *** 925,930 ****
 214 --- 925,931 ----
 215             {
 216               b->ignore_count--;
 217               this_bp_stop = 0;
 218 +             energize_ignore_breakpoint(b);
 219             }
 220           else
 221             {
 222 ***************
 223 *** 1365,1370 ****
 224 --- 1366,1373 ----
 225   mention (b)
 226        struct breakpoint *b;
 227   {
 228 +   energize_create_breakpoint(b);
 229 +
 230     switch (b->type)
 231       {
 232       case bp_watchpoint:
 233 ***************
 234 *** 2112,2117 ****
 235 --- 2115,2122 ----
 236     register struct breakpoint *b;
 237     register bpstat bs;
 238
 239 +   energize_delete_breakpoint(bpt);
 240 +
 241     if (bpt->inserted)
 242         target_remove_breakpoint(bpt->address, bpt->shadow_contents);
 243
 244 ***************
 245 *** 2283,2288 ****
 246 --- 2288,2294 ----
 247       if (b->number == bptnum)
 248         {
 249         b->ignore_count = count;
 250 +       energize_ignore_breakpoint(b);
 251         if (!from_tty)
 252           return;
 253         else if (count == 0)
 254 ***************
 255 *** 2307,2313 ****
 256     struct breakpoint *b;
 257
 258     ALL_BREAKPOINTS (b)
 259 !     b->ignore_count = 0;
 260   }
 261
 262   /* Command to set ignore-count of breakpoint N to COUNT.  */
 263 --- 2313,2322 ----
 264     struct breakpoint *b;
 265
 266     ALL_BREAKPOINTS (b)
 267 !     {
 268 !       b->ignore_count = 0;
 269 !       energize_ignore_breakpoint(b);
 270 !     }
 271   }
 272
 273   /* Command to set ignore-count of breakpoint N to COUNT.  */
 274 ***************
 275 *** 2374,2379 ****
 276 --- 2383,2390 ----
 277   {
 278     bpt->enable = enabled;
 279
 280 +   energize_enable_breakpoint(bpt);
 281 +
 282     if (xgdb_verbose && bpt->type == bp_breakpoint)
 283       printf ("breakpoint #%d enabled\n", bpt->number);
 284
 285 ***************
 286 *** 2421,2426 ****
 287 --- 2432,2439 ----
 288   disable_breakpoint (bpt)
 289        struct breakpoint *bpt;
 290   {
 291 +   energize_disable_breakpoint(bpt);
 292 +
 293     bpt->enable = disabled;
 294
 295     if (xgdb_verbose && bpt->type == bp_breakpoint)
 296 ===================================================================
 297 RCS file: /local/cvsfiles/devo/gdb/command.c,v
 298 retrieving revision 1.17
 299 diff -c -r1.17 command.c
 300 *** 1.17        1992/07/04 03:20:54
 301 --- command.c   1992/07/05 13:41:51
 302 ***************
 303 *** 1149,1155 ****
 304       }
 305
 306     if (pid != -1)
 307 !     while ((rc = wait (&status)) != pid && rc != -1)
 308         ;
 309     else
 310       error ("Fork failed");
 311 --- 1149,1155 ----
 312       }
 313
 314     if (pid != -1)
 315 !     while ((rc = energize_wait (&status)) != pid && rc != -1)
 316         ;
 317     else
 318       error ("Fork failed");
 319 ===================================================================
 320 RCS file: /local/cvsfiles/devo/gdb/configure.in,v
 321 retrieving revision 1.50
 322 diff -c -r1.50 configure.in
 323 *** 1.50        1992/06/23 00:25:00
 324 --- configure.in        1992/07/05 17:50:08
 325 ***************
 326 *** 1,4 ****
 327 ! configdirs="doc"
 328   srcname="GDB"
 329   srctrigger=main.c
 330   target_dependent=true
 331 --- 1,4 ----
 332 ! configdirs="energize doc"
 333   srcname="GDB"
 334   srctrigger=main.c
 335   target_dependent=true
 336 ===================================================================
 337 RCS file: /local/cvsfiles/devo/gdb/defs.h,v
 338 retrieving revision 1.41
 339 diff -c -r1.41 defs.h
 340 *** 1.41        1992/06/30 08:53:18
 341 --- defs.h      1992/07/05 13:24:31
 342 ***************
 343 *** 787,790 ****
 344 --- 787,792 ----
 345   extern CORE_ADDR
 346   push_word ();
 347
 348 + #include "energize.h"
 349 +
 350   #endif /* !defined (DEFS_H) */
 351 ===================================================================
 352 RCS file: /local/cvsfiles/devo/gdb/inflow.c,v
 353 retrieving revision 1.27
 354 diff -c -r1.27 inflow.c
 355 *** 1.27        1992/07/04 03:21:21
 356 --- inflow.c    1992/07/05 12:58:31
 357 ***************
 358 *** 81,87 ****
 359   static short pgrp_inferior;
 360   static short pgrp_ours;
 361   # else /* not def SHORT_PGRP */
 362 ! static int pgrp_inferior;
 363   static int pgrp_ours;
 364   # endif /* not def SHORT_PGRP */
 365   #else /* not def TIOCGPGRP */
 366 --- 81,87 ----
 367   static short pgrp_inferior;
 368   static short pgrp_ours;
 369   # else /* not def SHORT_PGRP */
 370 ! int pgrp_inferior;
 371   static int pgrp_ours;
 372   # endif /* not def SHORT_PGRP */
 373   #else /* not def TIOCGPGRP */
 374 ===================================================================
 375 RCS file: /local/cvsfiles/devo/gdb/infrun.c,v
 376 retrieving revision 1.52
 377 diff -c -r1.52 infrun.c
 378 *** 1.52        1992/07/04 03:21:24
 379 --- infrun.c    1992/07/05 13:46:46
 380 ***************
 381 *** 617,622 ****
 382 --- 617,623 ----
 383      Here we must get it up to actual execution of the real program.  */
 384
 385     inferior_pid = pid;         /* Needed for wait_for_inferior stuff below */
 386 +   energize_new_process();
 387
 388     clear_proceed_status ();
 389
 390 ***************
 391 *** 755,760 ****
 392 --- 756,762 ----
 393
 394     attach (pid);
 395     inferior_pid = pid;
 396 +   energize_new_process();
 397     push_target (&child_ops);
 398
 399     mark_breakpoints_out ();
 400 ===================================================================
 401 RCS file: /local/cvsfiles/devo/gdb/inftarg.c,v
 402 retrieving revision 1.11
 403 diff -c -r1.11 inftarg.c
 404 *** 1.11        1992/03/29 23:21:27
 405 --- inftarg.c   1992/07/05 13:48:05
 406 ***************
 407 *** 58,64 ****
 408   #ifdef USE_PROC_FS
 409       pid = proc_wait (status);
 410   #else
 411 !     pid = wait (status);
 412   #endif
 413       if (pid == -1)            /* No more children to wait for */
 414         {
 415 --- 58,64 ----
 416   #ifdef USE_PROC_FS
 417       pid = proc_wait (status);
 418   #else
 419 !     pid = energize_wait (status);
 420   #endif
 421       if (pid == -1)            /* No more children to wait for */
 422         {
 423 ===================================================================
 424 RCS file: /local/cvsfiles/devo/gdb/main.c,v
 425 retrieving revision 1.49
 426 diff -c -r1.49 main.c
 427 *** 1.49        1992/07/04 12:20:57
 428 --- main.c      1992/07/05 14:08:32
 429 ***************
 430 *** 397,402 ****
 431 --- 397,403 ----
 432     char *corearg = NULL;
 433     char *cdarg = NULL;
 434     char *ttyarg = NULL;
 435 +   char *energize_id = NULL;
 436
 437     /* Pointers to all arguments of +command option.  */
 438     char **cmdarg;
 439 ***************
 440 *** 495,500 ****
 441 --- 496,502 ----
 442         {"tty", required_argument, 0, 't'},
 443         {"baud", required_argument, 0, 'b'},
 444         {"b", required_argument, 0, 'b'},
 445 +       {"context", required_argument, 0, 12},
 446   /* Allow machine descriptions to add more options... */
 447   #ifdef ADDITIONAL_OPTIONS
 448         ADDITIONAL_OPTIONS
 449 ***************
 450 *** 527,532 ****
 451 --- 529,537 ----
 452           case 11:
 453             cdarg = optarg;
 454             break;
 455 +         case 12:
 456 +           energize_id = optarg;
 457 +           break;
 458           case 's':
 459             symarg = optarg;
 460             break;
 461 ***************
 462 *** 707,712 ****
 463 --- 712,719 ----
 464     free ((PTR)dirarg);
 465     do_cleanups (ALL_CLEANUPS);
 466
 467 +   energize_initialize (energize_id, execarg);
 468 +
 469     if (execarg != NULL
 470         && symarg != NULL
 471         && strcmp (execarg, symarg) == 0)
 472 ***************
 473 *** 821,827 ****
 474         if (!setjmp (to_top_level))
 475         {
 476           do_cleanups (ALL_CLEANUPS);           /* Do complete cleanup */
 477 !         command_loop ();
 478             quit_command ((char *)0, instream == stdin);
 479         }
 480       }
 481 --- 828,837 ----
 482         if (!setjmp (to_top_level))
 483         {
 484           do_cleanups (ALL_CLEANUPS);           /* Do complete cleanup */
 485 !         if (energize)
 486 !           energize_main_loop();
 487 !         else
 488 !           command_loop ();
 489             quit_command ((char *)0, instream == stdin);
 490         }
 491       }
 492 ***************
 493 *** 883,889 ****
 494         else if (c->function.cfunc == NO_FUNCTION)
 495         error ("That is not a command, just a help topic.");
 496         else
 497 !       (*c->function.cfunc) (arg, from_tty & caution);
 498      }
 499
 500     /* Tell the user if the language has changed (except first time).  */
 501 --- 893,899 ----
 502         else if (c->function.cfunc == NO_FUNCTION)
 503         error ("That is not a command, just a help topic.");
 504         else
 505 !       energize_call_command (c, arg, from_tty & caution);
 506      }
 507
 508     /* Tell the user if the language has changed (except first time).  */
 509 ***************
 510 *** 1519,1525 ****
 511     while (1)
 512       {
 513         dont_repeat ();
 514 !       p = command_line_input ((char *) NULL, instream == stdin);
 515         if (p == NULL)
 516         /* Treat end of file like "end".  */
 517         break;
 518 --- 1529,1535 ----
 519     while (1)
 520       {
 521         dont_repeat ();
 522 !       p = energize_command_line_input ((char *) NULL, instream == stdin);
 523         if (p == NULL)
 524         /* Treat end of file like "end".  */
 525         break;
 526 ***************
 527 *** 1823,1829 ****
 528   void
 529   print_prompt ()
 530   {
 531 !   printf ("%s", prompt);
 532     fflush (stdout);
 533   }
 534   \f
 535 --- 1833,1839 ----
 536   void
 537   print_prompt ()
 538   {
 539 !   printf_filtered ("%s", prompt);
 540     fflush (stdout);
 541   }
 542   \f
 543 ===================================================================
 544 RCS file: /local/cvsfiles/devo/gdb/printcmd.c,v
 545 retrieving revision 1.29
 546 diff -c -r1.29 printcmd.c
 547 *** 1.29        1992/06/25 10:58:47
 548 --- printcmd.c  1992/07/05 14:09:25
 549 ***************
 550 *** 778,783 ****
 551 --- 778,792 ----
 552       {
 553         int histindex = record_latest_value (val);
 554
 555 +       if (energize)
 556 +       {
 557 +         char buf[20];
 558 +
 559 +         sprintf(buf, "$%d", histindex);
 560 +         energize_start_variable_annotation(buf, NULL, VALUE_TYPE(val),
 561 +                                            VALUE_ADDRESS(val), "");
 562 +       }
 563 +
 564         if (inspect)
 565         printf ("\031(gdb-makebuffer \"%s\"  %d '(\"", exp, histindex);
 566         else
 567 ***************
 568 *** 784,789 ****
 569 --- 793,799 ----
 570         if (histindex >= 0) printf_filtered ("$%d = ", histindex);
 571
 572         print_formatted (val, format, fmt.size);
 573 +       energize_end_variable_annotation();
 574         printf_filtered ("\n");
 575         if (inspect)
 576         printf("\") )\030");
 577 ***************
 578 *** 1610,1620 ****
 579 --- 1620,1638 ----
 580          standard indentation here is 4 spaces, and val_print indents
 581          2 for each recurse.  */
 582         val = read_var_value (sym, FRAME_INFO_ID (fi));
 583 +
 584 +       energize_start_variable_annotation(SYMBOL_NAME(sym), sym,
 585 +                                        VALUE_TYPE(val),
 586 +                                        VALUE_ADDRESS(val), "");
 587 +
 588         if (val)
 589           val_print (VALUE_TYPE (val), VALUE_CONTENTS (val), VALUE_ADDRESS (val),
 590                    stream, 0, 0, 2, Val_no_prettyprint);
 591         else
 592         fputs_filtered ("???", stream);
 593 +
 594 +       energize_end_variable_annotation();
 595 +
 596         first = 0;
 597       }
 598
 599 ===================================================================
 600 RCS file: /local/cvsfiles/devo/gdb/stack.c,v
 601 retrieving revision 1.33
 602 diff -c -r1.33 stack.c
 603 *** 1.33        1992/07/04 03:21:45
 604 --- stack.c     1992/07/05 14:13:23
 605 ***************
 606 *** 159,165 ****
 607         if (addressprint)
 608           printf_filtered ("%s in ", local_hex_string(fi->pc));
 609
 610 !       fputs_demangled (fname, stdout, 0);
 611         fputs_filtered (" (...)\n", stdout);
 612
 613         return;
 614 --- 159,168 ----
 615         if (addressprint)
 616           printf_filtered ("%s in ", local_hex_string(fi->pc));
 617
 618 !       if (energize)
 619 !       energize_annotate_function(fname, 0, level);
 620 !       else
 621 !       fputs_demangled (fname, stdout, 0);
 622         fputs_filtered (" (...)\n", stdout);
 623
 624         return;
 625 ***************
 626 *** 218,224 ****
 627         if (addressprint)
 628         if (fi->pc != sal.pc || !sal.symtab)
 629           printf_filtered ("%s in ", local_hex_string(fi->pc));
 630 !       fputs_demangled (funname ? funname : "??", stdout, 0);
 631         wrap_here ("   ");
 632         fputs_filtered (" (", stdout);
 633         if (args)
 634 --- 221,230 ----
 635         if (addressprint)
 636         if (fi->pc != sal.pc || !sal.symtab)
 637           printf_filtered ("%s in ", local_hex_string(fi->pc));
 638 !       if (energize)
 639 !       energize_annotate_function(funname ? funname : "??", 0, level);
 640 !       else
 641 !       fputs_demangled (funname ? funname : "??", stdout, 0);
 642         wrap_here ("   ");
 643         fputs_filtered (" (", stdout);
 644         if (args)
 645 ***************
 646 *** 255,261 ****
 647         {
 648           if (addressprint && mid_statement)
 649             printf_filtered ("%s\t", local_hex_string(fi->pc));
 650 !         print_source_lines (sal.symtab, sal.line, sal.line + 1, 0);
 651         }
 652         current_source_line = max (sal.line - lines_to_list/2, 1);
 653       }
 654 --- 261,268 ----
 655         {
 656           if (addressprint && mid_statement)
 657             printf_filtered ("%s\t", local_hex_string(fi->pc));
 658 !         if (!energize)
 659 !           print_source_lines (sal.symtab, sal.line, sal.line + 1, 0);
 660         }
 661         current_source_line = max (sal.line - lines_to_list/2, 1);
 662       }
 663 ***************
 664 *** 429,435 ****
 665     if (funname)
 666       {
 667         printf_filtered (" in ");
 668 !       fputs_demangled (funname, stdout, DMGL_ANSI | DMGL_PARAMS);
 669       }
 670     wrap_here ("   ");
 671     if (sal.symtab)
 672 --- 436,446 ----
 673     if (funname)
 674       {
 675         printf_filtered (" in ");
 676 !       if (energize)
 677 !       energize_annotate_function(funname, DMGL_ANSI | DMGL_PARAMS,
 678 !                                  selected_frame_level);
 679 !       else
 680 !       fputs_demangled (funname, stdout, DMGL_ANSI | DMGL_PARAMS);
 681       }
 682     wrap_here ("   ");
 683     if (sal.symtab)
 684 ===================================================================
 685 RCS file: /local/cvsfiles/devo/gdb/symfile.c,v
 686 retrieving revision 1.55
 687 diff -c -r1.55 symfile.c
 688 *** 1.55        1992/07/04 13:58:46
 689 --- symfile.c   1992/07/05 14:14:12
 690 ***************
 691 *** 611,616 ****
 692 --- 611,618 ----
 693         fflush (stdout);
 694       }
 695
 696 +   energize_symbol_file(objfile);
 697 +
 698     return (objfile);
 699   }
 700
 701 ===================================================================
 702 RCS file: /local/cvsfiles/devo/gdb/utils.c,v
 703 retrieving revision 1.53
 704 diff -c -r1.53 utils.c
 705 *** 1.53        1992/07/04 03:21:59
 706 --- utils.c     1992/07/05 17:32:13
 707 ***************
 708 *** 694,700 ****
 709     register int ans2;
 710
 711     /* Automatically answer "yes" if input is not from a terminal.  */
 712 !   if (!input_from_terminal_p ())
 713       return 1;
 714
 715     while (1)
 716 --- 694,700 ----
 717     register int ans2;
 718
 719     /* Automatically answer "yes" if input is not from a terminal.  */
 720 !   if (!input_from_terminal_p () && !energize)
 721       return 1;
 722
 723     while (1)
 724 ***************
 725 *** 701,721 ****
 726       {
 727         va_start (args);
 728         ctlstr = va_arg (args, char *);
 729         vfprintf_filtered (stdout, ctlstr, args);
 730 -       va_end (args);
 731         printf_filtered ("(y or n) ");
 732 !       fflush (stdout);
 733 !       answer = fgetc (stdin);
 734 !       clearerr (stdin);               /* in case of C-d */
 735 !       if (answer == EOF)      /* C-d */
 736 !         return 1;
 737 !       if (answer != '\n')     /* Eat rest of input line, to EOF or newline */
 738 !       do
 739 !         {
 740 !           ans2 = fgetc (stdin);
 741 !           clearerr (stdin);
 742 !         }
 743 !         while (ans2 != EOF && ans2 != '\n');
 744         if (answer >= 'a')
 745         answer -= 040;
 746         if (answer == 'Y')
 747 --- 701,732 ----
 748       {
 749         va_start (args);
 750         ctlstr = va_arg (args, char *);
 751 +       energize_query (ctlstr, args);
 752         vfprintf_filtered (stdout, ctlstr, args);
 753         printf_filtered ("(y or n) ");
 754 !       if (energize)
 755 !       {
 756 !         char *buf;
 757 !
 758 !         buf = energize_command_line_input(0, 0);
 759 !         answer = buf ? *buf : 'Y';
 760 !         energize_acknowledge_query(buf);
 761 !       }
 762 !       else
 763 !       {
 764 !         fflush (stdout);
 765 !         answer = fgetc (stdin);
 766 !         clearerr (stdin);             /* in case of C-d */
 767 !         if (answer == EOF)    /* C-d */
 768 !           return 1;
 769 !         if (answer != '\n')   /* Eat rest of input line, to EOF or newline */
 770 !           do
 771 !             {
 772 !               ans2 = fgetc (stdin);
 773 !               clearerr (stdin);
 774 !             }
 775 !         while (ans2 != EOF && ans2 != '\n');
 776 !       }
 777         if (answer >= 'a')
 778         answer -= 040;
 779         if (answer == 'Y')
 780 ***************
 781 *** 723,728 ****
 782 --- 734,740 ----
 783         if (answer == 'N')
 784         return 0;
 785         printf_filtered ("Please answer y or n.\n");
 786 +       va_end (args);
 787       }
 788   }
 789
 790 ***************
 791 *** 989,994 ****
 792 --- 1001,1012 ----
 793     if (linebuffer == 0)
 794       return;
 795
 796 +   if (energize)
 797 +     {
 798 +       energize_fputs(linebuffer);
 799 +       return;
 800 +     }
 801 +
 802     /* Don't do any filtering if it is disabled.  */
 803     if (stream != stdout
 804      || (lines_per_page == UINT_MAX && chars_per_line == UINT_MAX))
 805 ===================================================================
 806 RCS file: /local/cvsfiles/devo/gdb/valprint.c,v
 807 retrieving revision 1.45
 808 diff -c -r1.45 valprint.c
 809 *** 1.45        1992/07/04 03:22:04
 810 --- valprint.c  1992/07/05 14:19:51
 811 ***************
 812 *** 485,490 ****
 813 --- 485,491 ----
 814        struct type **dont_print;
 815   {
 816     int i, len, n_baseclasses;
 817 +   char expr_tag[100];         /* Energize */
 818
 819     check_stub_type (type);
 820
 821 ***************
 822 *** 549,554 ****
 823 --- 550,562 ----
 824               fprint_symbol (stream, TYPE_FIELD_NAME (type, i));
 825               fputs_filtered (" = ", stream);
 826             }
 827 +
 828 +         sprintf(expr_tag, ".%s", TYPE_FIELD_NAME(type, i));
 829 +
 830 +         energize_start_variable_annotation(expr_tag, NULL,
 831 +                                            TYPE_FIELD_TYPE(type, i),
 832 +                                            (CORE_ADDR) (valaddr + TYPE_FIELD_BITPOS(type, i) / 8),
 833 +                                            "");
 834           if (TYPE_FIELD_PACKED (type, i))
 835             {
 836               value v;
 837 ***************
 838 *** 567,572 ****
 839 --- 575,581 ----
 840                          valaddr + TYPE_FIELD_BITPOS (type, i) / 8,
 841                          0, stream, format, 0, recurse + 1, pretty);
 842             }
 843 +         energize_end_variable_annotation();
 844         }
 845         if (pretty)
 846         {
 847 ***************
 848 *** 801,806 ****
 849 --- 810,816 ----
 850                   unsigned int rep1;
 851                   /* Number of repetitions we have detected so far.  */
 852                   unsigned int reps;
 853 +                 char expr_tag[100]; /* Energize */
 854
 855                   if (i != 0)
 856                     if (arrayprint)
 857 ***************
 858 *** 822,827 ****
 859 --- 832,842 ----
 860                       ++rep1;
 861                     }
 862
 863 +                 sprintf(expr_tag, "[%d]", i);
 864 +                 energize_start_variable_annotation(expr_tag, NULL,
 865 +                                                    elttype,
 866 +                                                    (CORE_ADDR) (valaddr + i * eltlen),
 867 +                                                    "");
 868                   if (reps > REPEAT_COUNT_THRESHOLD)
 869                     {
 870                       val_print (elttype, valaddr + i * eltlen,
 871 ***************
 872 *** 838,843 ****
 873 --- 853,859 ----
 874                                  recurse + 1, pretty);
 875                       things_printed++;
 876                     }
 877 +                 energize_end_variable_annotation();
 878                 }
 879               if (i < len)
 880                 fprintf_filtered (stream, "...");
 881 ===================================================================
 882 RCS file: /local/cvsfiles/devo/gdb/config/amix.mh,v
 883 retrieving revision 1.4
 884 diff -c -r1.4 amix.mh
 885 *** 1.4 1992/06/10 02:05:16
 886 --- config/amix.mh      1992/07/05 17:47:19
 887 ***************
 888 *** 22,24 ****
 889 --- 22,31 ----
 890
 891   # SVR4 puts the BSD compatible install in /usr/ucb.
 892   INSTALL = /usr/ucb/install -c
 893 +
 894 + # These are the libs that are needed for the Energize version of gdb on
 895 + # SVR4.  Note that we MUST include the standard C library before libucb.a,
 896 + # otherwise we get lots of broken stuff we don't want.
 897 + XM_CLIBS = -L/usr/lib -lm -lnet -lresolv -lform -lsocket -lc \
 898 +       /usr/ucblib/libucb.a -lnsl
 899 ===================================================================
 900 RCS file: /local/cvsfiles/devo/gdb/config/ncr3000.mh,v
 901 retrieving revision 1.4
 902 diff -c -r1.4 ncr3000.mh
 903 *** 1.4 1992/06/15 19:25:13
 904 --- config/ncr3000.mh   1992/07/05 17:49:34
 905 ***************
 906 *** 38,40 ****
 907 --- 38,46 ----
 908   # The /usr/ucb/install program is incompatible (complains about unknown
 909   # group staff).  Use good old cp...
 910   INSTALL = cp
 911 +
 912 + # These are the libs that are needed for the Energize version of gdb on
 913 + # SVR4.  Note that we MUST include the standard C library before libucb.a,
 914 + # otherwise we get lots of broken stuff we don't want.
 915 + XM_CLIBS = -L/usr/lib -lm -lnet -lresolv -lform -lsocket -lc \
 916 +       /usr/ucblib/libucb.a -lnsl
 917 ===================================================================
 918 *** demangle.c  Wed Jul 15 11:42:27 1992
 919 --- demangle.c  Wed Jul 15 11:25:14 1992
 920 ***************
 921 *** 37,43 ****
 922      the appropriate target configuration file. */
 923
 924   #ifndef DEFAULT_DEMANGLING_STYLE
 925 ! # define DEFAULT_DEMANGLING_STYLE AUTO_DEMANGLING_STYLE_STRING
 926   #endif
 927
 928   /* The current demangling style in affect.  Global so that the demangler
 929 --- 37,43 ----
 930      the appropriate target configuration file. */
 931
 932   #ifndef DEFAULT_DEMANGLING_STYLE
 933 ! # define DEFAULT_DEMANGLING_STYLE LUCID_DEMANGLING_STYLE_STRING
 934   #endif
 935
 936   /* The current demangling style in affect.  Global so that the demangler