1 /* TUI display source/assembly window.
3 Copyright (C) 1998-2019 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-io.h"
35 #include "tui/tui-stack.h"
36 #include "tui/tui-win.h"
37 #include "tui/tui-wingeneral.h"
38 #include "tui/tui-winsource.h"
39 #include "tui/tui-source.h"
40 #include "tui/tui-disasm.h"
41 #include "gdb_curses.h"
43 /* Function to display the "main" routine. */
47 if (!tui_source_windows ().empty ())
49 struct gdbarch *gdbarch;
52 tui_get_begin_asm_address (&gdbarch, &addr);
53 if (addr != (CORE_ADDR) 0)
57 tui_update_source_windows_with_addr (gdbarch, addr);
58 s = find_pc_line_symtab (addr);
60 tui_update_locator_fullname (symtab_to_fullname (s));
62 tui_update_locator_fullname ("??");
69 /* Function to display source in the source window. This function
70 initializes the horizontal scroll to 0. */
72 tui_update_source_window (struct tui_source_window_base *win_info,
73 struct gdbarch *gdbarch,
75 struct tui_line_or_address line_or_addr,
78 win_info->horizontal_offset = 0;
79 tui_update_source_window_as_is (win_info, gdbarch, s, line_or_addr, noerror);
83 /* Function to display source in the source/asm window. This function
84 shows the source as specified by the horizontal offset. */
86 tui_update_source_window_as_is (struct tui_source_window_base *win_info,
87 struct gdbarch *gdbarch,
89 struct tui_line_or_address line_or_addr,
94 if (win_info->type == SRC_WIN)
95 ret = tui_set_source_content (win_info, s, line_or_addr.u.line_no,
98 ret = tui_set_disassem_content (win_info, gdbarch, line_or_addr.u.addr);
100 if (ret == TUI_FAILURE)
102 tui_clear_source_content (win_info);
103 tui_clear_exec_info_content (win_info);
107 tui_update_breakpoint_info (win_info, nullptr, false);
108 win_info->show_source_content ();
109 win_info->update_exec_info ();
110 if (win_info->type == SRC_WIN)
114 sal.line = line_or_addr.u.line_no +
115 (win_info->content.size () - 2);
117 sal.pspace = SYMTAB_PSPACE (s);
118 set_current_source_symtab_and_line (sal);
119 /* If the focus was in the asm win, put it in the src win if
120 we don't have a split layout. */
121 if (tui_win_with_focus () == TUI_DISASM_WIN
122 && tui_current_layout () != SRC_DISASSEM_COMMAND)
123 tui_set_win_focus_to (win_info);
129 /* Function to ensure that the source and/or disassemly windows
130 reflect the input address. */
132 tui_update_source_windows_with_addr (struct gdbarch *gdbarch, CORE_ADDR addr)
136 struct symtab_and_line sal;
137 struct tui_line_or_address l;
139 switch (tui_current_layout ())
141 case DISASSEM_COMMAND:
142 case DISASSEM_DATA_COMMAND:
143 tui_show_disassem (gdbarch, addr);
145 case SRC_DISASSEM_COMMAND:
146 tui_show_disassem_and_update_source (gdbarch, addr);
149 sal = find_pc_line (addr, 0);
151 l.u.line_no = sal.line;
152 tui_show_symtab_source (TUI_SRC_WIN, gdbarch, sal.symtab, l, FALSE);
158 for (struct tui_source_window_base *win_info : tui_source_windows ())
160 tui_clear_source_content (win_info);
161 tui_clear_exec_info_content (win_info);
166 /* Function to ensure that the source and/or disassemly windows
167 reflect the input address. */
169 tui_update_source_windows_with_line (struct symtab *s, int line)
171 struct gdbarch *gdbarch;
173 struct tui_line_or_address l;
178 gdbarch = get_objfile_arch (SYMTAB_OBJFILE (s));
180 switch (tui_current_layout ())
182 case DISASSEM_COMMAND:
183 case DISASSEM_DATA_COMMAND:
184 find_line_pc (s, line, &pc);
185 tui_update_source_windows_with_addr (gdbarch, pc);
190 tui_show_symtab_source (TUI_SRC_WIN, gdbarch, s, l, FALSE);
191 if (tui_current_layout () == SRC_DISASSEM_COMMAND)
193 find_line_pc (s, line, &pc);
194 tui_show_disassem (gdbarch, pc);
201 tui_clear_source_content (struct tui_source_window_base *win_info)
203 if (win_info != NULL)
207 tui_erase_source_content (win_info);
208 for (i = 0; i < win_info->content.size (); i++)
210 struct tui_source_element *element = &win_info->content[i];
212 element->break_mode = 0;
213 element->is_exec_point = false;
220 tui_erase_source_content (struct tui_source_window_base *win_info)
223 int half_width = (win_info->width - 2) / 2;
225 if (win_info->handle != NULL)
227 werase (win_info->handle);
228 win_info->check_and_display_highlight_if_needed ();
230 const char *no_src_str;
232 if (win_info->type == SRC_WIN)
233 no_src_str = NO_SRC_STRING;
235 no_src_str = NO_DISASSEM_STRING;
236 if (strlen (no_src_str) >= half_width)
239 x_pos = half_width - strlen (no_src_str);
240 mvwaddstr (win_info->handle,
241 (win_info->height / 2),
243 (char *) no_src_str);
245 win_info->content.clear ();
246 win_info->refresh_window ();
251 /* Redraw the complete line of a source or disassembly window. */
253 tui_show_source_line (struct tui_source_window_base *win_info, int lineno)
255 struct tui_source_element *line;
258 line = &win_info->content[lineno - 1];
259 if (line->is_exec_point)
260 tui_set_reverse_mode (win_info->handle, true);
262 wmove (win_info->handle, lineno, 1);
263 tui_puts (line->line,
265 if (line->is_exec_point)
266 tui_set_reverse_mode (win_info->handle, false);
268 /* Clear to end of line but stop before the border. */
269 x = getcurx (win_info->handle);
270 while (x + 1 < win_info->width)
272 waddch (win_info->handle, ' ');
273 x = getcurx (win_info->handle);
278 tui_source_window_base::show_source_content ()
280 if (!content.empty ())
284 for (lineno = 1; lineno <= content.size (); lineno++)
285 tui_show_source_line (this, lineno);
288 tui_erase_source_content (this);
290 check_and_display_highlight_if_needed ();
294 /* See tui-data.h. */
297 tui_source_window_base::clear_detail ()
300 start_line_or_addr.loa = LOA_ADDRESS;
301 start_line_or_addr.u.addr = 0;
302 horizontal_offset = 0;
305 tui_source_window_base::tui_source_window_base (enum tui_win_type type)
306 : tui_win_info (type),
307 execution_info (new tui_exec_info_window ())
309 gdb_assert (type == SRC_WIN || type == DISASSEM_WIN);
310 start_line_or_addr.loa = LOA_ADDRESS;
311 start_line_or_addr.u.addr = 0;
315 tui_source_window_base::~tui_source_window_base ()
318 delete execution_info;
322 tui_source_window_base::reset (int height, int width,
323 int origin_x, int origin_y)
325 tui_gen_win_info::reset (height, width - 3,
326 origin_x + 3, origin_y);
327 execution_info->reset (height, 3, origin_x, origin_y);
330 /* See tui-data.h. */
333 tui_source_window_base::refresh_all ()
335 show_source_content ();
336 check_and_display_highlight_if_needed ();
337 tui_erase_exec_info_content (this);
341 /* See tui-data.h. */
344 tui_source_window_base::update_tab_width ()
346 /* We don't really change the height of any windows, but
347 calling these 2 functions causes a complete regeneration
348 and redisplay of the window's contents, which will take
349 the new tab width into account. */
350 make_invisible_and_set_new_height (height);
351 make_visible_with_new_height ();
354 /* See tui-data.h. */
357 tui_source_window_base::set_new_height (int height)
359 execution_info->make_visible (false);
360 execution_info->height = height;
361 execution_info->origin.y = origin.y;
363 execution_info->viewport_height = height - 1;
365 execution_info->viewport_height = height;
366 execution_info->viewport_height--;
370 tui_locator_window *gen_win_info = tui_locator_win_info_ptr ();
371 gen_win_info->make_visible (false);
372 gen_win_info->origin.y = origin.y + height;
376 /* See tui-data.h. */
379 tui_source_window_base::do_make_visible_with_new_height ()
381 execution_info->make_visible (true);
382 if (!content.empty ())
384 struct tui_line_or_address line_or_addr;
385 struct symtab_and_line cursal
386 = get_current_source_symtab_and_line ();
388 line_or_addr = start_line_or_addr;
389 tui_update_source_window (this, gdbarch,
390 cursal.symtab, line_or_addr, TRUE);
392 else if (deprecated_safe_get_selected_frame () != NULL)
394 struct tui_line_or_address line;
395 struct symtab_and_line cursal
396 = get_current_source_symtab_and_line ();
397 struct frame_info *frame = deprecated_safe_get_selected_frame ();
398 struct gdbarch *gdbarch = get_frame_arch (frame);
400 struct symtab *s = find_pc_line_symtab (get_frame_pc (frame));
404 line.u.line_no = cursal.line;
408 line.loa = LOA_ADDRESS;
409 find_line_pc (s, cursal.line, &line.u.addr);
411 tui_update_source_window (this, gdbarch, s, line, TRUE);
415 tui_locator_win_info_ptr ()->make_visible (true);
416 tui_show_locator_content ();
420 /* See tui-data.h. */
423 tui_source_window_base::make_visible (bool visible)
425 execution_info->make_visible (visible);
426 tui_win_info::make_visible (visible);
429 /* See tui-data.h. */
432 tui_source_window_base::refresh_window ()
434 execution_info->refresh_window ();
435 tui_win_info::refresh_window ();
438 /* See tui-data.h. */
441 tui_source_window_base::refill ()
447 symtab_and_line cursal = get_current_source_symtab_and_line ();
448 s = (cursal.symtab == NULL
449 ? find_pc_line_symtab (get_frame_pc (get_selected_frame (NULL)))
453 tui_update_source_window_as_is (this, gdbarch, s,
454 content[0].line_or_addr,
458 /* Scroll the source forward or backward horizontally. */
461 tui_source_window_base::do_scroll_horizontal (int num_to_scroll)
463 if (!content.empty ())
465 int offset = horizontal_offset + num_to_scroll;
468 horizontal_offset = offset;
474 /* Set or clear the is_exec_point flag in the line whose line is
478 tui_source_window_base::set_is_exec_point_at (struct tui_line_or_address l)
480 bool changed = false;
484 while (i < content.size ())
487 struct tui_line_or_address content_loa =
488 content[i].line_or_addr;
490 gdb_assert (l.loa == LOA_ADDRESS || l.loa == LOA_LINE);
491 gdb_assert (content_loa.loa == LOA_LINE
492 || content_loa.loa == LOA_ADDRESS);
493 if (content_loa.loa == l.loa
494 && ((l.loa == LOA_LINE && content_loa.u.line_no == l.u.line_no)
495 || (l.loa == LOA_ADDRESS && content_loa.u.addr == l.u.addr)))
499 if (new_state != content[i].is_exec_point)
502 content[i].is_exec_point = new_state;
503 tui_show_source_line (this, i + 1);
511 /* See tui-winsource.h. */
514 tui_update_all_breakpoint_info (struct breakpoint *being_deleted)
516 for (tui_source_window_base *win : tui_source_windows ())
518 if (tui_update_breakpoint_info (win, being_deleted, false))
520 win->update_exec_info ();
526 /* Scan the source window and the breakpoints to update the break_mode
527 information for each line.
529 Returns true if something changed and the execution window must be
533 tui_update_breakpoint_info (struct tui_source_window_base *win,
534 struct breakpoint *being_deleted,
538 bool need_refresh = false;
540 for (i = 0; i < win->content.size (); i++)
542 struct breakpoint *bp;
543 extern struct breakpoint *breakpoint_chain;
544 struct tui_source_element *line;
546 line = &win->content[i];
547 if (current_only && !line->is_exec_point)
550 /* Scan each breakpoint to see if the current line has something to
551 do with it. Identify enable/disabled breakpoints as well as
552 those that we already hit. */
553 tui_bp_flags mode = 0;
554 for (bp = breakpoint_chain;
558 struct bp_location *loc;
560 gdb_assert (line->line_or_addr.loa == LOA_LINE
561 || line->line_or_addr.loa == LOA_ADDRESS);
563 if (bp == being_deleted)
566 for (loc = bp->loc; loc != NULL; loc = loc->next)
568 if (win->location_matches_p (loc, i))
570 if (bp->enable_state == bp_disabled)
571 mode |= TUI_BP_DISABLED;
573 mode |= TUI_BP_ENABLED;
577 mode |= TUI_BP_CONDITIONAL;
578 if (bp->type == bp_hardware_breakpoint)
579 mode |= TUI_BP_HARDWARE;
583 if (line->break_mode != mode)
585 line->break_mode = mode;
592 /* See tui-data.h. */
594 tui_exec_info_content *
595 tui_exec_info_window::maybe_allocate_content (int n_elements)
597 if (m_content == nullptr)
598 m_content = XNEWVEC (tui_exec_info_content, n_elements);
603 /* Function to initialize the content of the execution info window,
604 based upon the input window which is either the source or
605 disassembly window. */
607 tui_source_window_base::set_exec_info_content ()
609 tui_exec_info_content *exec_content
610 = execution_info->maybe_allocate_content (height);
612 tui_update_breakpoint_info (this, nullptr, true);
613 for (int i = 0; i < content.size (); i++)
615 tui_exec_info_content &element = exec_content[i];
616 struct tui_source_element *src_element;
619 src_element = &content[i];
621 memset (element, ' ', sizeof (tui_exec_info_content));
622 element[TUI_EXECINFO_SIZE - 1] = 0;
624 /* Now update the exec info content based upon the state
625 of each line as indicated by the source content. */
626 mode = src_element->break_mode;
627 if (mode & TUI_BP_HIT)
628 element[TUI_BP_HIT_POS] = (mode & TUI_BP_HARDWARE) ? 'H' : 'B';
629 else if (mode & (TUI_BP_ENABLED | TUI_BP_DISABLED))
630 element[TUI_BP_HIT_POS] = (mode & TUI_BP_HARDWARE) ? 'h' : 'b';
632 if (mode & TUI_BP_ENABLED)
633 element[TUI_BP_BREAK_POS] = '+';
634 else if (mode & TUI_BP_DISABLED)
635 element[TUI_BP_BREAK_POS] = '-';
637 if (src_element->is_exec_point)
638 element[TUI_EXEC_POS] = '>';
644 tui_source_window_base::show_exec_info_content ()
646 struct tui_exec_info_window *exec_info = execution_info;
647 const tui_exec_info_content *exec_content = exec_info->get_content ();
649 werase (exec_info->handle);
650 for (int cur_line = 1; cur_line <= content.size (); cur_line++)
651 mvwaddstr (exec_info->handle,
654 exec_content[cur_line - 1]);
655 exec_info->refresh_window ();
660 tui_erase_exec_info_content (struct tui_source_window_base *win_info)
662 struct tui_gen_win_info *exec_info = win_info->execution_info;
664 werase (exec_info->handle);
665 exec_info->refresh_window ();
669 tui_clear_exec_info_content (struct tui_source_window_base *win_info)
671 tui_erase_exec_info_content (win_info);
674 /* Function to update the execution info window. */
676 tui_source_window_base::update_exec_info ()
678 set_exec_info_content ();
679 show_exec_info_content ();
683 tui_alloc_source_buffer (struct tui_source_window_base *win_info)
685 int i, line_width, max_lines;
687 /* The window width/height includes the highlight box. Determine actual
688 content dimensions, including string null-terminators. */
689 max_lines = win_info->height - 2;
690 line_width = win_info->width - 2 + 1;
692 /* Allocate the buffer for the source lines. */
693 win_info->content.resize (max_lines);
694 for (i = 0; i < max_lines; i++)
696 if (win_info->content[i].line == nullptr)
697 win_info->content[i].line = (char *) xmalloc (line_width);
702 /* Answer whether a particular line number or address is displayed
703 in the current source window. */
705 tui_line_is_displayed (int line,
706 struct tui_source_window_base *win_info,
709 int is_displayed = FALSE;
713 threshold = SCROLL_THRESHOLD;
717 while (i < win_info->content.size () - threshold
721 = win_info->content[i].line_or_addr.loa == LOA_LINE
722 && win_info->content[i].line_or_addr.u.line_no == line;
730 /* Answer whether a particular line number or address is displayed
731 in the current source window. */
733 tui_addr_is_displayed (CORE_ADDR addr,
734 struct tui_source_window_base *win_info,
737 int is_displayed = FALSE;
741 threshold = SCROLL_THRESHOLD;
745 while (i < win_info->content.size () - threshold
749 = win_info->content[i].line_or_addr.loa == LOA_ADDRESS
750 && win_info->content[i].line_or_addr.u.addr == addr;