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 auto adapter
= tui_source_windows ();
48 if (adapter
.begin () != adapter
.end ())
50 struct gdbarch
*gdbarch
;
53 tui_get_begin_asm_address (&gdbarch
, &addr
);
54 if (addr
!= (CORE_ADDR
) 0)
58 tui_update_source_windows_with_addr (gdbarch
, addr
);
59 s
= find_pc_line_symtab (addr
);
60 tui_update_locator_fullname (s
);
65 /* See tui-winsource.h. */
68 tui_copy_source_line (const char **ptr
, int line_no
, int first_col
,
69 int line_width
, int ndigits
)
71 const char *lineptr
= *ptr
;
73 /* Init the line with the line number. */
79 result
= string_printf ("%*d ", ndigits
, line_no
);
82 result
= string_printf ("%-6d", line_no
);
83 int len
= result
.size ();
84 len
= len
- ((len
/ tui_tab_width
) * tui_tab_width
);
85 result
.append (len
, ' ');
96 if (c
== '\033' && skip_ansi_escape (lineptr
, &skip_bytes
))
98 /* We always have to preserve escapes. */
99 result
.append (lineptr
, lineptr
+ skip_bytes
);
100 lineptr
+= skip_bytes
;
109 auto process_tab
= [&] ()
111 int max_tab_len
= tui_tab_width
;
114 for (int j
= column
% max_tab_len
;
115 j
< max_tab_len
&& column
< first_col
+ line_width
;
117 if (column
>= first_col
)
118 result
.push_back (' ');
121 /* We have to process all the text in order to pick up all the
123 if (column
<= first_col
|| column
> first_col
+ line_width
)
130 if (c
== '\n' || c
== '\r' || c
== '\0')
134 else if (c
< 040 && c
!= '\t')
136 result
.push_back ('^');
137 result
.push_back (c
+ 0100);
141 result
.push_back ('^');
142 result
.push_back ('?');
147 result
.push_back (c
);
149 while (c
!= '\0' && c
!= '\n' && c
!= '\r');
151 if (c
== '\r' && *lineptr
== '\n')
159 tui_source_window_base::style_changed ()
161 if (tui_active
&& is_visible ())
165 /* Function to display source in the source window. This function
166 initializes the horizontal scroll to 0. */
168 tui_source_window_base::update_source_window
169 (struct gdbarch
*gdbarch
,
170 const struct symtab_and_line
&sal
)
172 horizontal_offset
= 0;
173 update_source_window_as_is (gdbarch
, sal
);
177 /* Function to display source in the source/asm window. This function
178 shows the source as specified by the horizontal offset. */
180 tui_source_window_base::update_source_window_as_is
181 (struct gdbarch
*gdbarch
,
182 const struct symtab_and_line
&sal
)
184 bool ret
= set_contents (gdbarch
, sal
);
187 erase_source_content ();
190 update_breakpoint_info (nullptr, false);
191 show_source_content ();
195 symtab_and_line new_sal
= sal
;
197 new_sal
.line
= sal
.line
+ (content
.size () - 2);
198 set_current_source_symtab_and_line (new_sal
);
204 /* Function to ensure that the source and/or disassemly windows
205 reflect the input address. */
207 tui_update_source_windows_with_addr (struct gdbarch
*gdbarch
, CORE_ADDR addr
)
209 struct symtab_and_line sal
{};
211 sal
= find_pc_line (addr
, 0);
213 for (struct tui_source_window_base
*win_info
: tui_source_windows ())
214 win_info
->update_source_window (gdbarch
, sal
);
217 /* Function to ensure that the source and/or disassemly windows
218 reflect the input address. */
220 tui_update_source_windows_with_line (struct symtab
*s
, int line
)
222 struct gdbarch
*gdbarch
;
224 struct symtab_and_line sal
;
229 sal
.pspace
= current_program_space
;
233 gdbarch
= get_objfile_arch (SYMTAB_OBJFILE (s
));
235 switch (tui_current_layout ())
237 case DISASSEM_COMMAND
:
238 case DISASSEM_DATA_COMMAND
:
239 find_line_pc (s
, line
, &pc
);
240 tui_update_source_windows_with_addr (gdbarch
, pc
);
243 find_line_pc (s
, line
, &pc
);
245 TUI_SRC_WIN
->update_source_window (gdbarch
, sal
);
246 if (tui_current_layout () == SRC_DISASSEM_COMMAND
)
247 TUI_DISASM_WIN
->update_source_window (gdbarch
, sal
);
253 tui_source_window_base::do_erase_source_content (const char *str
)
256 int half_width
= (width
- 2) / 2;
261 werase (handle
.get ());
262 check_and_display_highlight_if_needed ();
264 if (strlen (str
) >= half_width
)
267 x_pos
= half_width
- strlen (str
);
268 mvwaddstr (handle
.get (),
278 /* Redraw the complete line of a source or disassembly window. */
280 tui_show_source_line (struct tui_source_window_base
*win_info
, int lineno
)
282 struct tui_source_element
*line
;
285 line
= &win_info
->content
[lineno
- 1];
286 if (line
->is_exec_point
)
287 tui_set_reverse_mode (win_info
->handle
.get (), true);
289 wmove (win_info
->handle
.get (), lineno
, TUI_EXECINFO_SIZE
);
290 tui_puts (line
->line
.c_str (), win_info
->handle
.get ());
291 if (line
->is_exec_point
)
292 tui_set_reverse_mode (win_info
->handle
.get (), false);
294 /* Clear to end of line but stop before the border. */
295 x
= getcurx (win_info
->handle
.get ());
296 while (x
+ 1 < win_info
->width
)
298 waddch (win_info
->handle
.get (), ' ');
299 x
= getcurx (win_info
->handle
.get ());
304 tui_source_window_base::show_source_content ()
306 gdb_assert (!content
.empty ());
308 for (int lineno
= 1; lineno
<= content
.size (); lineno
++)
309 tui_show_source_line (this, lineno
);
311 check_and_display_highlight_if_needed ();
315 tui_source_window_base::tui_source_window_base (enum tui_win_type type
)
316 : tui_win_info (type
)
318 gdb_assert (type
== SRC_WIN
|| type
== DISASSEM_WIN
);
319 start_line_or_addr
.loa
= LOA_ADDRESS
;
320 start_line_or_addr
.u
.addr
= 0;
322 gdb::observers::source_styling_changed
.attach
323 (std::bind (&tui_source_window::style_changed
, this),
327 tui_source_window_base::~tui_source_window_base ()
329 gdb::observers::source_styling_changed
.detach (m_observable
);
332 /* See tui-data.h. */
335 tui_source_window_base::update_tab_width ()
337 werase (handle
.get ());
342 tui_source_window_base::rerender ()
344 if (!content
.empty ())
346 struct symtab_and_line cursal
347 = get_current_source_symtab_and_line ();
349 if (start_line_or_addr
.loa
== LOA_LINE
)
350 cursal
.line
= start_line_or_addr
.u
.line_no
;
352 cursal
.pc
= start_line_or_addr
.u
.addr
;
353 update_source_window (gdbarch
, cursal
);
355 else if (deprecated_safe_get_selected_frame () != NULL
)
357 struct symtab_and_line cursal
358 = get_current_source_symtab_and_line ();
359 struct frame_info
*frame
= deprecated_safe_get_selected_frame ();
360 struct gdbarch
*gdbarch
= get_frame_arch (frame
);
362 struct symtab
*s
= find_pc_line_symtab (get_frame_pc (frame
));
364 find_line_pc (s
, cursal
.line
, &cursal
.pc
);
365 update_source_window (gdbarch
, cursal
);
368 erase_source_content ();
371 /* See tui-data.h. */
374 tui_source_window_base::refill ()
376 symtab_and_line sal
{};
380 sal
= get_current_source_symtab_and_line ();
381 if (sal
.symtab
== NULL
)
382 sal
= find_pc_line (get_frame_pc (get_selected_frame (NULL
)), 0);
385 if (sal
.pspace
== nullptr)
386 sal
.pspace
= current_program_space
;
388 if (start_line_or_addr
.loa
== LOA_LINE
)
389 sal
.line
= start_line_or_addr
.u
.line_no
;
391 sal
.pc
= start_line_or_addr
.u
.addr
;
393 update_source_window_as_is (gdbarch
, sal
);
396 /* Scroll the source forward or backward horizontally. */
399 tui_source_window_base::do_scroll_horizontal (int num_to_scroll
)
401 if (!content
.empty ())
403 int offset
= horizontal_offset
+ num_to_scroll
;
406 horizontal_offset
= offset
;
412 /* Set or clear the is_exec_point flag in the line whose line is
416 tui_source_window_base::set_is_exec_point_at (struct tui_line_or_address l
)
418 bool changed
= false;
422 while (i
< content
.size ())
425 struct tui_line_or_address content_loa
=
426 content
[i
].line_or_addr
;
428 if (content_loa
.loa
== l
.loa
429 && ((l
.loa
== LOA_LINE
&& content_loa
.u
.line_no
== l
.u
.line_no
)
430 || (l
.loa
== LOA_ADDRESS
&& content_loa
.u
.addr
== l
.u
.addr
)))
434 if (new_state
!= content
[i
].is_exec_point
)
437 content
[i
].is_exec_point
= new_state
;
438 tui_show_source_line (this, i
+ 1);
446 /* See tui-winsource.h. */
449 tui_update_all_breakpoint_info (struct breakpoint
*being_deleted
)
451 for (tui_source_window_base
*win
: tui_source_windows ())
453 if (win
->update_breakpoint_info (being_deleted
, false))
454 win
->update_exec_info ();
459 /* Scan the source window and the breakpoints to update the break_mode
460 information for each line.
462 Returns true if something changed and the execution window must be
466 tui_source_window_base::update_breakpoint_info
467 (struct breakpoint
*being_deleted
, bool current_only
)
470 bool need_refresh
= false;
472 for (i
= 0; i
< content
.size (); i
++)
474 struct tui_source_element
*line
;
477 if (current_only
&& !line
->is_exec_point
)
480 /* Scan each breakpoint to see if the current line has something to
481 do with it. Identify enable/disabled breakpoints as well as
482 those that we already hit. */
483 tui_bp_flags mode
= 0;
484 iterate_over_breakpoints ([&] (breakpoint
*bp
) -> bool
486 struct bp_location
*loc
;
488 if (bp
== being_deleted
)
491 for (loc
= bp
->loc
; loc
!= NULL
; loc
= loc
->next
)
493 if (location_matches_p (loc
, i
))
495 if (bp
->enable_state
== bp_disabled
)
496 mode
|= TUI_BP_DISABLED
;
498 mode
|= TUI_BP_ENABLED
;
502 mode
|= TUI_BP_CONDITIONAL
;
503 if (bp
->type
== bp_hardware_breakpoint
)
504 mode
|= TUI_BP_HARDWARE
;
509 if (line
->break_mode
!= mode
)
511 line
->break_mode
= mode
;
518 /* Function to initialize the content of the execution info window,
519 based upon the input window which is either the source or
520 disassembly window. */
522 tui_source_window_base::update_exec_info ()
524 update_breakpoint_info (nullptr, true);
525 for (int i
= 0; i
< content
.size (); i
++)
527 struct tui_source_element
*src_element
= &content
[i
];
528 char element
[TUI_EXECINFO_SIZE
] = " ";
530 /* Now update the exec info content based upon the state
531 of each line as indicated by the source content. */
532 tui_bp_flags mode
= src_element
->break_mode
;
533 if (mode
& TUI_BP_HIT
)
534 element
[TUI_BP_HIT_POS
] = (mode
& TUI_BP_HARDWARE
) ? 'H' : 'B';
535 else if (mode
& (TUI_BP_ENABLED
| TUI_BP_DISABLED
))
536 element
[TUI_BP_HIT_POS
] = (mode
& TUI_BP_HARDWARE
) ? 'h' : 'b';
538 if (mode
& TUI_BP_ENABLED
)
539 element
[TUI_BP_BREAK_POS
] = '+';
540 else if (mode
& TUI_BP_DISABLED
)
541 element
[TUI_BP_BREAK_POS
] = '-';
543 if (src_element
->is_exec_point
)
544 element
[TUI_EXEC_POS
] = '>';
546 mvwaddstr (handle
.get (), i
+ 1, 1, element
);