1 /* TUI display source/assembly window.
3 Copyright (C) 1998-2014 Free Software Foundation, Inc.
5 Contributed by Hewlett-Packard Company.
7 This file is part of GDB.
9 This program is free software; you can redistribute it and/or modify
10 it under the terms of the GNU General Public License as published by
11 the Free Software Foundation; either version 3 of the License, or
12 (at your option) any later version.
14 This program is distributed in the hope that it will be useful,
15 but WITHOUT ANY WARRANTY; without even the implied warranty of
16 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
17 GNU General Public License for more details.
19 You should have received a copy of the GNU General Public License
20 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "breakpoint.h"
30 #include "filenames.h"
33 #include "tui/tui-data.h"
34 #include "tui/tui-stack.h"
35 #include "tui/tui-win.h"
36 #include "tui/tui-wingeneral.h"
37 #include "tui/tui-winsource.h"
38 #include "tui/tui-source.h"
39 #include "tui/tui-disasm.h"
40 #include "gdb_curses.h"
42 /* Function to display the "main" routine. */
44 tui_display_main (void)
46 if ((tui_source_windows ())->count
> 0)
48 struct gdbarch
*gdbarch
;
51 tui_get_begin_asm_address (&gdbarch
, &addr
);
52 if (addr
!= (CORE_ADDR
) 0)
54 struct symtab_and_line sal
;
56 tui_update_source_windows_with_addr (gdbarch
, addr
);
57 sal
= find_pc_line (addr
, 0);
59 tui_update_locator_fullname (symtab_to_fullname (sal
.symtab
));
61 tui_update_locator_fullname ("??");
68 /* Function to display source in the source window. This function
69 initializes the horizontal scroll to 0. */
71 tui_update_source_window (struct tui_win_info
*win_info
,
72 struct gdbarch
*gdbarch
,
74 struct tui_line_or_address line_or_addr
,
77 win_info
->detail
.source_info
.horizontal_offset
= 0;
78 tui_update_source_window_as_is (win_info
, gdbarch
, s
, line_or_addr
, noerror
);
84 /* Function to display source in the source/asm window. This function
85 shows the source as specified by the horizontal offset. */
87 tui_update_source_window_as_is (struct tui_win_info
*win_info
,
88 struct gdbarch
*gdbarch
,
90 struct tui_line_or_address line_or_addr
,
95 if (win_info
->generic
.type
== SRC_WIN
)
96 ret
= tui_set_source_content (s
, line_or_addr
.u
.line_no
, noerror
);
98 ret
= tui_set_disassem_content (gdbarch
, line_or_addr
.u
.addr
);
100 if (ret
== TUI_FAILURE
)
102 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
103 tui_clear_exec_info_content (win_info
);
107 tui_update_breakpoint_info (win_info
, 0);
108 tui_show_source_content (win_info
);
109 tui_update_exec_info (win_info
);
110 if (win_info
->generic
.type
== SRC_WIN
)
112 struct symtab_and_line sal
;
115 sal
.line
= line_or_addr
.u
.line_no
+
116 (win_info
->generic
.content_size
- 2);
118 sal
.pspace
= s
->objfile
->pspace
;
119 set_current_source_symtab_and_line (&sal
);
120 /* If the focus was in the asm win, put it in the src win if
121 we don't have a split layout. */
122 if (tui_win_with_focus () == TUI_DISASM_WIN
123 && tui_current_layout () != SRC_DISASSEM_COMMAND
)
124 tui_set_win_focus_to (TUI_SRC_WIN
);
133 /* Function to ensure that the source and/or disassemly windows
134 reflect the input address. */
136 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
140 struct symtab_and_line sal
;
141 struct tui_line_or_address l
;
143 switch (tui_current_layout ())
145 case DISASSEM_COMMAND
:
146 case DISASSEM_DATA_COMMAND
:
147 tui_show_disassem (gdbarch
, addr
);
149 case SRC_DISASSEM_COMMAND
:
150 tui_show_disassem_and_update_source (gdbarch
, addr
);
153 sal
= find_pc_line (addr
, 0);
155 l
.u
.line_no
= sal
.line
;
156 tui_show_symtab_source (gdbarch
, sal
.symtab
, l
, FALSE
);
164 for (i
= 0; i
< (tui_source_windows ())->count
; i
++)
166 struct tui_win_info
*win_info
= (tui_source_windows ())->list
[i
];
168 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
169 tui_clear_exec_info_content (win_info
);
174 /* Function to ensure that the source and/or disassemly windows
175 reflect the input address. */
177 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
179 struct gdbarch
*gdbarch
;
181 struct tui_line_or_address l
;
186 gdbarch
= get_objfile_arch (s
->objfile
);
188 switch (tui_current_layout ())
190 case DISASSEM_COMMAND
:
191 case DISASSEM_DATA_COMMAND
:
192 find_line_pc (s
, line
, &pc
);
193 tui_update_source_windows_with_addr (gdbarch
, pc
);
198 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
199 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
201 find_line_pc (s
, line
, &pc
);
202 tui_show_disassem (gdbarch
, pc
);
211 tui_clear_source_content (struct tui_win_info
*win_info
,
214 if (win_info
!= NULL
)
218 win_info
->generic
.content_in_use
= FALSE
;
219 tui_erase_source_content (win_info
, display_prompt
);
220 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
222 struct tui_win_element
*element
=
223 (struct tui_win_element
*) win_info
->generic
.content
[i
];
225 element
->which_element
.source
.has_break
= FALSE
;
226 element
->which_element
.source
.is_exec_point
= FALSE
;
233 tui_erase_source_content (struct tui_win_info
*win_info
,
237 int half_width
= (win_info
->generic
.width
- 2) / 2;
239 if (win_info
->generic
.handle
!= (WINDOW
*) NULL
)
241 werase (win_info
->generic
.handle
);
242 tui_check_and_display_highlight_if_needed (win_info
);
243 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
247 if (win_info
->generic
.type
== SRC_WIN
)
248 no_src_str
= NO_SRC_STRING
;
250 no_src_str
= NO_DISASSEM_STRING
;
251 if (strlen (no_src_str
) >= half_width
)
254 x_pos
= half_width
- strlen (no_src_str
);
255 mvwaddstr (win_info
->generic
.handle
,
256 (win_info
->generic
.height
/ 2),
260 /* elz: Added this function call to set the real contents of
261 the window to what is on the screen, so that later calls
262 to refresh, do display the correct stuff, and not the old
265 tui_set_source_content_nil (win_info
, no_src_str
);
267 tui_refresh_win (&win_info
->generic
);
272 /* Redraw the complete line of a source or disassembly window. */
274 tui_show_source_line (struct tui_win_info
*win_info
, int lineno
)
276 struct tui_win_element
*line
;
279 line
= (struct tui_win_element
*) win_info
->generic
.content
[lineno
- 1];
280 if (line
->which_element
.source
.is_exec_point
)
281 wattron (win_info
->generic
.handle
, A_STANDOUT
);
283 mvwaddstr (win_info
->generic
.handle
, lineno
, 1,
284 line
->which_element
.source
.line
);
285 if (line
->which_element
.source
.is_exec_point
)
286 wattroff (win_info
->generic
.handle
, A_STANDOUT
);
288 /* Clear to end of line but stop before the border. */
289 getyx (win_info
->generic
.handle
, y
, x
);
290 while (x
+ 1 < win_info
->generic
.width
)
292 waddch (win_info
->generic
.handle
, ' ');
293 getyx (win_info
->generic
.handle
, y
, x
);
298 tui_show_source_content (struct tui_win_info
*win_info
)
300 if (win_info
->generic
.content_size
> 0)
304 for (lineno
= 1; lineno
<= win_info
->generic
.content_size
; lineno
++)
305 tui_show_source_line (win_info
, lineno
);
308 tui_erase_source_content (win_info
, TRUE
);
310 tui_check_and_display_highlight_if_needed (win_info
);
311 tui_refresh_win (&win_info
->generic
);
312 win_info
->generic
.content_in_use
= TRUE
;
316 /* Scroll the source forward or backward horizontally. */
318 tui_horizontal_source_scroll (struct tui_win_info
*win_info
,
319 enum tui_scroll_direction direction
,
322 if (win_info
->generic
.content
!= NULL
)
324 struct gdbarch
*gdbarch
= win_info
->detail
.source_info
.gdbarch
;
326 struct symtab
*s
= NULL
;
328 if (win_info
->generic
.type
== SRC_WIN
)
330 struct symtab_and_line cursal
331 = get_current_source_symtab_and_line ();
333 if (cursal
.symtab
== NULL
)
334 s
= find_pc_symtab (get_frame_pc (get_selected_frame (NULL
)));
339 if (direction
== LEFT_SCROLL
)
340 offset
= win_info
->detail
.source_info
.horizontal_offset
344 offset
= win_info
->detail
.source_info
.horizontal_offset
349 win_info
->detail
.source_info
.horizontal_offset
= offset
;
350 tui_update_source_window_as_is (win_info
, gdbarch
, s
,
351 ((struct tui_win_element
*)
352 win_info
->generic
.content
[0])->which_element
.source
.line_or_addr
,
360 /* Set or clear the has_break flag in the line whose line is
364 tui_set_is_exec_point_at (struct tui_line_or_address l
,
365 struct tui_win_info
*win_info
)
369 tui_win_content content
= (tui_win_content
) win_info
->generic
.content
;
372 while (i
< win_info
->generic
.content_size
)
375 struct tui_line_or_address content_loa
=
376 content
[i
]->which_element
.source
.line_or_addr
;
378 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
379 gdb_assert (content_loa
.loa
== LOA_LINE
380 || content_loa
.loa
== LOA_ADDRESS
);
381 if (content_loa
.loa
== l
.loa
382 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
383 || (content_loa
.u
.addr
== l
.u
.addr
)))
387 if (new_state
!= content
[i
]->which_element
.source
.is_exec_point
)
390 content
[i
]->which_element
.source
.is_exec_point
= new_state
;
391 tui_show_source_line (win_info
, i
+ 1);
396 tui_refresh_win (&win_info
->generic
);
399 /* Update the execution windows to show the active breakpoints.
400 This is called whenever a breakpoint is inserted, removed or
401 has its state changed. */
403 tui_update_all_breakpoint_info (void)
405 struct tui_list
*list
= tui_source_windows ();
408 for (i
= 0; i
< list
->count
; i
++)
410 struct tui_win_info
*win
= list
->list
[i
];
412 if (tui_update_breakpoint_info (win
, FALSE
))
414 tui_update_exec_info (win
);
420 /* Scan the source window and the breakpoints to update the has_break
421 information for each line.
423 Returns 1 if something changed and the execution window must be
427 tui_update_breakpoint_info (struct tui_win_info
*win
,
431 int need_refresh
= 0;
432 struct tui_source_info
*src
= &win
->detail
.source_info
;
434 for (i
= 0; i
< win
->generic
.content_size
; i
++)
436 struct breakpoint
*bp
;
437 extern struct breakpoint
*breakpoint_chain
;
439 struct tui_source_element
*line
;
441 line
= &((struct tui_win_element
*)
442 win
->generic
.content
[i
])->which_element
.source
;
443 if (current_only
&& !line
->is_exec_point
)
446 /* Scan each breakpoint to see if the current line has something to
447 do with it. Identify enable/disabled breakpoints as well as
448 those that we already hit. */
450 for (bp
= breakpoint_chain
;
451 bp
!= (struct breakpoint
*) NULL
;
454 struct bp_location
*loc
;
456 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
457 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
459 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
461 if ((win
== TUI_SRC_WIN
462 && loc
->symtab
!= NULL
463 && filename_cmp (src
->fullname
,
464 symtab_to_fullname (loc
->symtab
)) == 0
465 && line
->line_or_addr
.loa
== LOA_LINE
466 && loc
->line_number
== line
->line_or_addr
.u
.line_no
)
467 || (win
== TUI_DISASM_WIN
468 && line
->line_or_addr
.loa
== LOA_ADDRESS
469 && loc
->address
== line
->line_or_addr
.u
.addr
))
471 if (bp
->enable_state
== bp_disabled
)
472 mode
|= TUI_BP_DISABLED
;
474 mode
|= TUI_BP_ENABLED
;
478 mode
|= TUI_BP_CONDITIONAL
;
479 if (bp
->type
== bp_hardware_breakpoint
)
480 mode
|= TUI_BP_HARDWARE
;
484 if (line
->has_break
!= mode
)
486 line
->has_break
= mode
;
494 /* Function to initialize the content of the execution info window,
495 based upon the input window which is either the source or
496 disassembly window. */
498 tui_set_exec_info_content (struct tui_win_info
*win_info
)
500 enum tui_status ret
= TUI_SUCCESS
;
502 if (win_info
->detail
.source_info
.execution_info
503 != (struct tui_gen_win_info
*) NULL
)
505 struct tui_gen_win_info
*exec_info_ptr
506 = win_info
->detail
.source_info
.execution_info
;
508 if (exec_info_ptr
->content
== NULL
)
509 exec_info_ptr
->content
=
510 (void **) tui_alloc_content (win_info
->generic
.height
,
511 exec_info_ptr
->type
);
512 if (exec_info_ptr
->content
!= NULL
)
516 tui_update_breakpoint_info (win_info
, 1);
517 for (i
= 0; i
< win_info
->generic
.content_size
; i
++)
519 struct tui_win_element
*element
;
520 struct tui_win_element
*src_element
;
523 element
= (struct tui_win_element
*) exec_info_ptr
->content
[i
];
524 src_element
= (struct tui_win_element
*)
525 win_info
->generic
.content
[i
];
527 memset(element
->which_element
.simple_string
, ' ',
528 sizeof(element
->which_element
.simple_string
));
529 element
->which_element
.simple_string
[TUI_EXECINFO_SIZE
- 1] = 0;
531 /* Now update the exec info content based upon the state
532 of each line as indicated by the source content. */
533 mode
= src_element
->which_element
.source
.has_break
;
534 if (mode
& TUI_BP_HIT
)
535 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
536 (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
537 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
538 element
->which_element
.simple_string
[TUI_BP_HIT_POS
] =
539 (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
541 if (mode
& TUI_BP_ENABLED
)
542 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '+';
543 else if (mode
& TUI_BP_DISABLED
)
544 element
->which_element
.simple_string
[TUI_BP_BREAK_POS
] = '-';
546 if (src_element
->which_element
.source
.is_exec_point
)
547 element
->which_element
.simple_string
[TUI_EXEC_POS
] = '>';
549 exec_info_ptr
->content_size
= win_info
->generic
.content_size
;
560 tui_show_exec_info_content (struct tui_win_info
*win_info
)
562 struct tui_gen_win_info
*exec_info
563 = win_info
->detail
.source_info
.execution_info
;
566 werase (exec_info
->handle
);
567 tui_refresh_win (exec_info
);
568 for (cur_line
= 1; (cur_line
<= exec_info
->content_size
); cur_line
++)
569 mvwaddstr (exec_info
->handle
,
572 ((struct tui_win_element
*)
573 exec_info
->content
[cur_line
- 1])->which_element
.simple_string
);
574 tui_refresh_win (exec_info
);
575 exec_info
->content_in_use
= TRUE
;
580 tui_erase_exec_info_content (struct tui_win_info
*win_info
)
582 struct tui_gen_win_info
*exec_info
583 = win_info
->detail
.source_info
.execution_info
;
585 werase (exec_info
->handle
);
586 tui_refresh_win (exec_info
);
590 tui_clear_exec_info_content (struct tui_win_info
*win_info
)
592 win_info
->detail
.source_info
.execution_info
->content_in_use
= FALSE
;
593 tui_erase_exec_info_content (win_info
);
598 /* Function to update the execution info window. */
600 tui_update_exec_info (struct tui_win_info
*win_info
)
602 tui_set_exec_info_content (win_info
);
603 tui_show_exec_info_content (win_info
);
607 tui_alloc_source_buffer (struct tui_win_info
*win_info
)
610 int i
, line_width
, max_lines
;
612 max_lines
= win_info
->generic
.height
; /* Less the highlight box. */
613 line_width
= win_info
->generic
.width
- 1;
615 * Allocate the buffer for the source lines. Do this only once
616 * since they will be re-used for all source displays. The only
617 * other time this will be done is when a window's size changes.
619 if (win_info
->generic
.content
== NULL
)
621 src_line_buf
= (char *)
622 xmalloc ((max_lines
* line_width
) * sizeof (char));
623 if (src_line_buf
== (char *) NULL
)
625 fputs_unfiltered ("Unable to Allocate Memory for "
626 "Source or Disassembly Display.\n",
630 /* Allocate the content list. */
631 if ((win_info
->generic
.content
=
632 (void **) tui_alloc_content (max_lines
, SRC_WIN
)) == NULL
)
634 xfree (src_line_buf
);
635 fputs_unfiltered ("Unable to Allocate Memory for "
636 "Source or Disassembly Display.\n",
640 for (i
= 0; i
< max_lines
; i
++)
641 ((struct tui_win_element
*)
642 win_info
->generic
.content
[i
])->which_element
.source
.line
=
643 src_line_buf
+ (line_width
* i
);
650 /* Answer whether a particular line number or address is displayed
651 in the current source window. */
653 tui_line_is_displayed (int line
,
654 struct tui_win_info
*win_info
,
657 int is_displayed
= FALSE
;
661 threshold
= SCROLL_THRESHOLD
;
665 while (i
< win_info
->generic
.content_size
- threshold
668 is_displayed
= (((struct tui_win_element
*)
669 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
671 && (((struct tui_win_element
*)
672 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.line_no
681 /* Answer whether a particular line number or address is displayed
682 in the current source window. */
684 tui_addr_is_displayed (CORE_ADDR addr
,
685 struct tui_win_info
*win_info
,
688 int is_displayed
= FALSE
;
692 threshold
= SCROLL_THRESHOLD
;
696 while (i
< win_info
->generic
.content_size
- threshold
699 is_displayed
= (((struct tui_win_element
*)
700 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.loa
702 && (((struct tui_win_element
*)
703 win_info
->generic
.content
[i
])->which_element
.source
.line_or_addr
.u
.addr
712 /*****************************************
713 ** STATIC LOCAL FUNCTIONS **
714 ******************************************/