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
);
85 /* Function to display source in the source/asm window. This function
86 shows the source as specified by the horizontal offset. */
88 tui_update_source_window_as_is (struct tui_source_window_base
*win_info
,
89 struct gdbarch
*gdbarch
,
91 struct tui_line_or_address line_or_addr
,
96 if (win_info
->type
== SRC_WIN
)
97 ret
= tui_set_source_content (s
, line_or_addr
.u
.line_no
, noerror
);
99 ret
= tui_set_disassem_content (gdbarch
, line_or_addr
.u
.addr
);
101 if (ret
== TUI_FAILURE
)
103 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
104 tui_clear_exec_info_content (win_info
);
108 tui_update_breakpoint_info (win_info
, 0);
109 tui_show_source_content (win_info
);
110 tui_update_exec_info (win_info
);
111 if (win_info
->type
== SRC_WIN
)
115 sal
.line
= line_or_addr
.u
.line_no
+
116 (win_info
->content
.size () - 2);
118 sal
.pspace
= SYMTAB_PSPACE (s
);
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
);
162 for (struct tui_source_window_base
*win_info
: tui_source_windows ())
164 tui_clear_source_content (win_info
, EMPTY_SOURCE_PROMPT
);
165 tui_clear_exec_info_content (win_info
);
170 /* Function to ensure that the source and/or disassemly windows
171 reflect the input address. */
173 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
175 struct gdbarch
*gdbarch
;
177 struct tui_line_or_address l
;
182 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (s
));
184 switch (tui_current_layout ())
186 case DISASSEM_COMMAND
:
187 case DISASSEM_DATA_COMMAND
:
188 find_line_pc (s
, line
, &pc
);
189 tui_update_source_windows_with_addr (gdbarch
, pc
);
194 tui_show_symtab_source (gdbarch
, s
, l
, FALSE
);
195 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
197 find_line_pc (s
, line
, &pc
);
198 tui_show_disassem (gdbarch
, pc
);
207 tui_clear_source_content (struct tui_source_window_base
*win_info
,
210 if (win_info
!= NULL
)
214 win_info
->content_in_use
= FALSE
;
215 tui_erase_source_content (win_info
, display_prompt
);
216 for (i
= 0; i
< win_info
->content
.size (); i
++)
218 struct tui_source_element
*element
= &win_info
->content
[i
];
220 element
->break_mode
= 0;
221 element
->is_exec_point
= false;
228 tui_erase_source_content (struct tui_source_window_base
*win_info
,
232 int half_width
= (win_info
->width
- 2) / 2;
234 if (win_info
->handle
!= NULL
)
236 werase (win_info
->handle
);
237 tui_check_and_display_highlight_if_needed (win_info
);
238 if (display_prompt
== EMPTY_SOURCE_PROMPT
)
240 const char *no_src_str
;
242 if (win_info
->type
== SRC_WIN
)
243 no_src_str
= NO_SRC_STRING
;
245 no_src_str
= NO_DISASSEM_STRING
;
246 if (strlen (no_src_str
) >= half_width
)
249 x_pos
= half_width
- strlen (no_src_str
);
250 mvwaddstr (win_info
->handle
,
251 (win_info
->height
/ 2),
253 (char *) no_src_str
);
255 /* elz: Added this function call to set the real contents of
256 the window to what is on the screen, so that later calls
257 to refresh, do display the correct stuff, and not the old
260 tui_set_source_content_nil (win_info
, no_src_str
);
262 win_info
->refresh_window ();
267 /* Redraw the complete line of a source or disassembly window. */
269 tui_show_source_line (struct tui_source_window_base
*win_info
, int lineno
)
271 struct tui_source_element
*line
;
274 line
= &win_info
->content
[lineno
- 1];
275 if (line
->is_exec_point
)
276 tui_set_reverse_mode (win_info
->handle
, true);
278 wmove (win_info
->handle
, lineno
, 1);
279 tui_puts (line
->line
,
281 if (line
->is_exec_point
)
282 tui_set_reverse_mode (win_info
->handle
, false);
284 /* Clear to end of line but stop before the border. */
285 x
= getcurx (win_info
->handle
);
286 while (x
+ 1 < win_info
->width
)
288 waddch (win_info
->handle
, ' ');
289 x
= getcurx (win_info
->handle
);
294 tui_show_source_content (struct tui_source_window_base
*win_info
)
296 if (!win_info
->content
.empty ())
300 for (lineno
= 1; lineno
<= win_info
->content
.size (); lineno
++)
301 tui_show_source_line (win_info
, lineno
);
304 tui_erase_source_content (win_info
, TRUE
);
306 tui_check_and_display_highlight_if_needed (win_info
);
307 win_info
->refresh_window ();
308 win_info
->content_in_use
= TRUE
;
311 /* See tui-data.h. */
314 tui_source_window_base::refill ()
320 symtab_and_line cursal
= get_current_source_symtab_and_line ();
321 s
= (cursal
.symtab
== NULL
322 ? find_pc_line_symtab (get_frame_pc (get_selected_frame (NULL
)))
326 tui_update_source_window_as_is (this, gdbarch
, s
,
327 content
[0].line_or_addr
,
331 /* Scroll the source forward or backward horizontally. */
334 tui_source_window_base::do_scroll_horizontal (int num_to_scroll
)
336 if (!content
.empty ())
338 int offset
= horizontal_offset
+ num_to_scroll
;
341 horizontal_offset
= offset
;
347 /* Set or clear the is_exec_point flag in the line whose line is
351 tui_source_window_base::set_is_exec_point_at (struct tui_line_or_address l
)
353 bool changed
= false;
357 while (i
< content
.size ())
360 struct tui_line_or_address content_loa
=
361 content
[i
].line_or_addr
;
363 gdb_assert (l
.loa
== LOA_ADDRESS
|| l
.loa
== LOA_LINE
);
364 gdb_assert (content_loa
.loa
== LOA_LINE
365 || content_loa
.loa
== LOA_ADDRESS
);
366 if (content_loa
.loa
== l
.loa
367 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
368 || (l
.loa
== LOA_ADDRESS
&& content_loa
.u
.addr
== l
.u
.addr
)))
372 if (new_state
!= content
[i
].is_exec_point
)
375 content
[i
].is_exec_point
= new_state
;
376 tui_show_source_line (this, i
+ 1);
384 /* Update the execution windows to show the active breakpoints.
385 This is called whenever a breakpoint is inserted, removed or
386 has its state changed. */
388 tui_update_all_breakpoint_info ()
390 for (tui_source_window_base
*win
: tui_source_windows ())
392 if (tui_update_breakpoint_info (win
, FALSE
))
394 tui_update_exec_info (win
);
400 /* Scan the source window and the breakpoints to update the has_break
401 information for each line.
403 Returns 1 if something changed and the execution window must be
407 tui_update_breakpoint_info (struct tui_source_window_base
*win
,
411 int need_refresh
= 0;
412 tui_source_window_base
*src
= (tui_source_window_base
*) win
;
414 for (i
= 0; i
< win
->content
.size (); i
++)
416 struct breakpoint
*bp
;
417 extern struct breakpoint
*breakpoint_chain
;
418 struct tui_source_element
*line
;
420 line
= &win
->content
[i
];
421 if (current_only
&& !line
->is_exec_point
)
424 /* Scan each breakpoint to see if the current line has something to
425 do with it. Identify enable/disabled breakpoints as well as
426 those that we already hit. */
427 tui_bp_flags mode
= 0;
428 for (bp
= breakpoint_chain
;
432 struct bp_location
*loc
;
434 gdb_assert (line
->line_or_addr
.loa
== LOA_LINE
435 || line
->line_or_addr
.loa
== LOA_ADDRESS
);
437 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
439 if ((win
== TUI_SRC_WIN
440 && loc
->symtab
!= NULL
441 && filename_cmp (src
->fullname
,
442 symtab_to_fullname (loc
->symtab
)) == 0
443 && line
->line_or_addr
.loa
== LOA_LINE
444 && loc
->line_number
== line
->line_or_addr
.u
.line_no
)
445 || (win
== TUI_DISASM_WIN
446 && line
->line_or_addr
.loa
== LOA_ADDRESS
447 && loc
->address
== line
->line_or_addr
.u
.addr
))
449 if (bp
->enable_state
== bp_disabled
)
450 mode
|= TUI_BP_DISABLED
;
452 mode
|= TUI_BP_ENABLED
;
456 mode
|= TUI_BP_CONDITIONAL
;
457 if (bp
->type
== bp_hardware_breakpoint
)
458 mode
|= TUI_BP_HARDWARE
;
462 if (line
->break_mode
!= mode
)
464 line
->break_mode
= mode
;
471 /* See tui-data.h. */
473 tui_exec_info_content
*
474 tui_exec_info_window::maybe_allocate_content (int n_elements
)
476 if (m_content
== nullptr)
477 m_content
= XNEWVEC (tui_exec_info_content
, n_elements
);
482 /* Function to initialize the content of the execution info window,
483 based upon the input window which is either the source or
484 disassembly window. */
486 tui_set_exec_info_content (struct tui_source_window_base
*win_info
)
488 if (win_info
->execution_info
!= NULL
)
490 tui_exec_info_content
*content
491 = win_info
->execution_info
->maybe_allocate_content (win_info
->height
);
493 tui_update_breakpoint_info (win_info
, 1);
494 for (int i
= 0; i
< win_info
->content
.size (); i
++)
496 tui_exec_info_content
&element
= content
[i
];
497 struct tui_source_element
*src_element
;
500 src_element
= &win_info
->content
[i
];
502 memset (element
, ' ', sizeof (tui_exec_info_content
));
503 element
[TUI_EXECINFO_SIZE
- 1] = 0;
505 /* Now update the exec info content based upon the state
506 of each line as indicated by the source content. */
507 mode
= src_element
->break_mode
;
508 if (mode
& TUI_BP_HIT
)
509 element
[TUI_BP_HIT_POS
] = (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
510 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
511 element
[TUI_BP_HIT_POS
] = (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
513 if (mode
& TUI_BP_ENABLED
)
514 element
[TUI_BP_BREAK_POS
] = '+';
515 else if (mode
& TUI_BP_DISABLED
)
516 element
[TUI_BP_BREAK_POS
] = '-';
518 if (src_element
->is_exec_point
)
519 element
[TUI_EXEC_POS
] = '>';
526 tui_show_exec_info_content (struct tui_source_window_base
*win_info
)
528 struct tui_exec_info_window
*exec_info
= win_info
->execution_info
;
529 const tui_exec_info_content
*content
= exec_info
->get_content ();
531 werase (exec_info
->handle
);
532 exec_info
->refresh_window ();
533 for (int cur_line
= 1; cur_line
<= win_info
->content
.size (); cur_line
++)
534 mvwaddstr (exec_info
->handle
,
537 content
[cur_line
- 1]);
538 exec_info
->refresh_window ();
539 exec_info
->content_in_use
= TRUE
;
544 tui_erase_exec_info_content (struct tui_source_window_base
*win_info
)
546 struct tui_gen_win_info
*exec_info
= win_info
->execution_info
;
548 werase (exec_info
->handle
);
549 exec_info
->refresh_window ();
553 tui_clear_exec_info_content (struct tui_source_window_base
*win_info
)
555 win_info
->execution_info
->content_in_use
= FALSE
;
556 tui_erase_exec_info_content (win_info
);
559 /* Function to update the execution info window. */
561 tui_update_exec_info (struct tui_source_window_base
*win_info
)
563 tui_set_exec_info_content (win_info
);
564 tui_show_exec_info_content (win_info
);
568 tui_alloc_source_buffer (struct tui_source_window_base
*win_info
)
570 int i
, line_width
, max_lines
;
572 /* The window width/height includes the highlight box. Determine actual
573 content dimensions, including string null-terminators. */
574 max_lines
= win_info
->height
- 2;
575 line_width
= win_info
->width
- 2 + 1;
577 /* Allocate the buffer for the source lines. */
578 win_info
->content
.resize (max_lines
);
579 for (i
= 0; i
< max_lines
; i
++)
581 if (win_info
->content
[i
].line
== nullptr)
582 win_info
->content
[i
].line
= (char *) xmalloc (line_width
);
587 /* Answer whether a particular line number or address is displayed
588 in the current source window. */
590 tui_line_is_displayed (int line
,
591 struct tui_source_window_base
*win_info
,
594 int is_displayed
= FALSE
;
598 threshold
= SCROLL_THRESHOLD
;
602 while (i
< win_info
->content
.size () - threshold
606 = win_info
->content
[i
].line_or_addr
.loa
== LOA_LINE
607 && win_info
->content
[i
].line_or_addr
.u
.line_no
== line
;
615 /* Answer whether a particular line number or address is displayed
616 in the current source window. */
618 tui_addr_is_displayed (CORE_ADDR addr
,
619 struct tui_source_window_base
*win_info
,
622 int is_displayed
= FALSE
;
626 threshold
= SCROLL_THRESHOLD
;
630 while (i
< win_info
->content
.size () - threshold
634 = win_info
->content
[i
].line_or_addr
.loa
== LOA_ADDRESS
635 && win_info
->content
[i
].line_or_addr
.u
.addr
== addr
;
643 /*****************************************
644 ** STATIC LOCAL FUNCTIONS **
645 ******************************************/